Peut on affecter un nom ou une couleur à un bouton dynamiquement
Résolu
sam130242
Messages postés
72
Date d'inscription
Statut
Membre
Dernière intervention
-
sam130242 Messages postés 72 Date d'inscription Statut Membre Dernière intervention -
sam130242 Messages postés 72 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Peut on affecter un nom ou une couleur à un bouton dynamiquement
- Bouton couleur telecommande - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Comment faire une capture d'écran sur un samsung sans bouton ? - Guide
- Bouton on/off comment savoir ✓ - Forum Matériel & Système
- Trouver un nom avec une adresse ✓ - Forum Réseaux sociaux
4 réponses
D'après mes souvenirs, je répondrais : oui mais ces changements ne dureront que le temps de la macro.
Bonjour,
Oui, et les changement restent après l'exécution de la macro.
Par exemple :
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
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
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
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