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
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
A voir également:
- Peut on affecter un nom ou une couleur à un bouton dynamiquement
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
- Copiez l'image dans un logiciel d'édition d'images ou un outil en ligne comme js paint ou pixlr e. remplissez les cases en suivant le code couleur. des cases supplémentaires vont se remplir automatiquement. que représente le dessin ? ✓ - Forum Windows
- Trouver un nom avec une adresse ✓ - Forum Réseaux sociaux
- Annuaire portable gratuit a partir d'un nom - Forum Réseaux sociaux
- Nom de l'adresse - Forum Consommation & Internet
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
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.
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
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 :
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
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
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
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
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
29 juin 2016 à 00:00
Exemple :
https://www.cjoint.com/c/FFCv7UMYuaR
https://www.cjoint.com/c/FFCv7UMYuaR
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
29 juin 2016 à 01:16
merci beaucoup !
cdt
sm
cdt
sm