Changement texture bouton à chaque clic
Bonjour
Comme au titre je veux changer le texture du bouton du marbre gris au marbre vert si on clique su chaque bouton
Remarque : le fichier exemple contient un exemple réel mais je n’ai pas pu l’appliquer sur mon fichier classeur 1
Si quelqu’un peut m’aider ça me fait vraiment un grand plaisir
Salutations
Salut,
Pour changer la couleur de fond:
Sheets(1).Shapes("Rectangle 32").Fill.ForeColor.RGB = RGB(240, 255, 250)Après je viens de test sur ton fichier classeur1, cela ne fonctionne pas car il y a une couleur spécifique (ton vert marbre) ou je ne sais pas trop comment tu l'as obtenus.
Soit tu mets un vert unis en RGB soit il faudrait l'avis de quelqu'un d'autre du forum
ECG
Bonjour saber, le forum,
je te retourne ton fichier modifié :
bien sûr, à toi de rajouter à chaque bouton la fonction adéquate
(c'est-à- dire le travail que tu veux que le bouton exécute).
merci de me donner ton avis.
dhany
@saber
relis mon message précédent : je l'ai modifié.
sauf si tu as autre chose à demander,
merci de passer le sujet en résolu.
dhany
Bonjour dany
Merci pour votre aide c'est très gentille de ta part
Lorsque je l’applique les liens hypertexte sur chaque bouton (comme à mon premier fichier car lorsque je clique sur chaque bouton je besoin d’afficher la ligne du jour correspondant sur la feuille 1 le changement des couleurs ne se fait pas
ci joint liste des liens hypertexte sur chaque bouton
Merci
ah ben pour ça, désolé : j'connais pas d'moyen pour pouvoir affecter à un bouton à la fois une macro et un lien hypertexte ; c'est pour ça que j'avais enlevé tous les liens qui y étaient pour pouvoir affecter une macro à chaque bouton (et j'pensais qu't'avais pas mis les liens toi-même, que c'était arrivé involontairement suite à un copier / coller des boutons du fichier exemple.xlsm).
d'après-moi, la seule possibilité est d'ajouter une instruction VBA pour l'appel du lien hypertexte adéquat, cela dans le code VBA de chaque bouton (donc 31×) ; à commencer par la sub Btn01() ; bon courage !
dhany
comme tu sais je suis presque nul au langage VBa
Quesque j’ajoute à ces lignes pour afficher la cellule
Bouton Cellule à afficher
1 A11
2 A102
3 A173
Sub Btn01_Click()
ToggleButtons 1
End Sub
Sub Btn02_Click()
ToggleButtons 2
End Sub
Sub Btn03_Click()
ToggleButtons 3
End Sub
Et je vais faire les autres boutons
En effet j'ai fait un petit recherche sur le net j’ai trouvé l'Application.Goto [A11], True
La ligne devient :
Sub Btn01_Click()
ToggleButtons 1
Application.Goto [A11], True
End Sub
Ça marche nickel
Je dois remercier mon sauveur habituel le gentil @dhany et tous les membres de notre forum
voilà, c'est maint'nant fait pour tes 31 boutons :
⚠ dans ta liste des liens hypertexte, je pense que tu as inversé pour les boutons 13 et 14 !
j'ai donc corrigé en mettant pour le bouton 13 : A854 ; pour le bouton 14 : A883
edit : j'viens d'voir ton nouveau post de 10:38 ; c'est bien Application.Goto
(j'espère que t'as pas oublié d'corriger ton inversion)
dhany
@saber
merci pour les ♡ et pour avoir passé le sujet en résolu !
bonne continuation !
dhany