peut on affecter un nom ou une couleur à un bouton dynamiquement Résolu

Question

Bonjour, 
j'ai des boutons de commande (ceux issus de "formes")
est-il possible de changer le nom sur le bouton ou sa couleur en fonction des résultats de la macro qu'il commande
en fonction du résultat, la macro peut modifier sa couleur ou son intitulé ?
merci
sm

thev · Answer

D'après mes souvenirs, je répondrais : oui mais ces changements ne dureront que le temps de la macro.

Patrice33740 · Answer

Bonjour,

Oui, et les changement restent après l'exécution de la macro.
Par exemple :
Sub Test()
Const vert& = 65280     'RGB(  0, 255,   0)
Const rose& = 13158655  'RGB(255, 200, 200)
Dim Ok As Boolean
  With ActiveSheet
    Ok = .Shapes("Rectangle 1").TextFrame.Characters.Text = "Valider"
    If Not Ok Then
      .Shapes("Rectangle 1").TextFrame.Characters.Text = "Valider"
      .Shapes("Rectangle 1").Fill.ForeColor.RGB = vert
    Else
      .Shapes("Rectangle 1").TextFrame.Characters.Text = "Annuler"
      .Shapes("Rectangle 1").Fill.ForeColor.RGB = rose
    End If
  End With
End Sub 

PS. il suffit de :
- copier la macro dans le module d'une feuille vierge,
- poser un rectangle sur cette feuille et d'y affecter la macro Test

Cordialement
Patrice

sam130242 · Answer

merci pour le code!
j'ai fait ce que tu suggères : 
- la macro test dans le module1
- dessiner un bouton sur la dite feuille et lui affecter cette macro
>>>>>>> plantage sur la ligne "OK......
"l'élément portant ce nom est introuvable"
la ligne OK est surlignée en jaune !
sm

sam130242 · Answer

merci beaucoup !
cdt
sm

Peut on affecter un nom ou une couleur à un bouton dynamiquement

4 réponses

Discussions similaires

Newsletters