[Résolu][Base]Réinitialiser couleur bouton

[Eric99]

Bonjour,
Après quelques recherches j'ai trouvé la macro suivante pour changer la couleur d'un bouton (Bouton1 "Valider enregistrement") après avoir cliqué sur ce dernier. Cela fonctionne bien.

Code : Tout sélectionner

Sub BoutonCouleur(oEv as Object)
   Select Case oEv.Source.Model.State
   Case 1
      oEv.Source.Model.BackgroundColor = RGB(255,255,0) 'Jaune
      oEv.Source.Model.TextColor  = RGB(0,0,255) 'Bleu
   Case Else
      oEv.Source.Model.BackgroundColor =RGB(0,0,255) 'Bleu
      oEv.Source.Model.TextColor  = RGB(255,255,0) 'Jaune
   End Select

Je voudrais à présent pouvoir réinitialiser la couleur de ce Bouton1 "Valider enregistrement" à partir d'un autre bouton (Bouton2 "Saisir nouvel enregistrement") qui ne se trouve pas dans le même sous-formulaire. Sauriez-vous m'aider pour construire la macro ?

Merci
Éric

[DLE]

Bonsoir,
Une sugestion, le bouton du deuxième formulaire met en rouge le fond du bouton1, à modifier selon votre convenance.
A+

[Eric99]

Bonjour,

Bonsoir,
Une sugestion, le bouton du deuxième formulaire met en rouge le fond du bouton1, à modifier selon votre convenance.
A+

C'est tout à fait cela. Merci.
Éric