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

Résolu/Fermé
sam130242 Messages postés 72 Date d'inscription samedi 9 avril 2016 Statut Membre Dernière intervention 2 janvier 2017 - 28 juin 2016 à 19:49
sam130242 Messages postés 72 Date d'inscription samedi 9 avril 2016 Statut Membre Dernière intervention 2 janvier 2017 - 29 juin 2016 à 01:16
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

4 réponses

thev Messages postés 1889 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 25 novembre 2024 691
Modifié par thev le 28/06/2016 à 20:10
D'après mes souvenirs, je répondrais : oui mais ces changements ne dureront que le temps de la macro.
 
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié par Patrice33740 le 28/06/2016 à 21:16
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
0
sam130242 Messages postés 72 Date d'inscription samedi 9 avril 2016 Statut Membre Dernière intervention 2 janvier 2017
28 juin 2016 à 23:34
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
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
29 juin 2016 à 00:00
0
sam130242 Messages postés 72 Date d'inscription samedi 9 avril 2016 Statut Membre Dernière intervention 2 janvier 2017
29 juin 2016 à 01:16
merci beaucoup !
cdt
sm
0