Modifier le nom d'un bouton par macro

Bonjour,

Pour gérer l'affichage d'un tableau par mois ou par trimestre j'ai d'abord tenté de mettre 2 boutons.
mais lorsque je masque les colonnes, les boutons viennent à se superposer et ce n'est visuellement pas propre.

J'aimerais alors n'avoir qu'un seul bouton mais qui change de nom en fonction de l'affichage.
J'ai tenté le code ci dessous mais, forcément, ca ne fonctionne pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub CB_AFFICHAGE()   If ButtonName = "AFF/mois" Then   Range("C:H,K:P,S:X").EntireColumn.Hidden = False ButtonName = "AFF/trimestre"   Else   Range("C:H,K:P,S:X").EntireColumn.Hidden = True ButtonName = "AFF/Mois" end if End Sub

---

Je pense que ButtonName n'est pas bon puisque dans les propriétés, je cherche Caption mais ButtonCaption n'existe apparement pas.

merci d'avance

Salut,

ButtonName est le nom de ton objet. Ce que tu veux faire c'est renseigner la propriété "Caption" de ce même objet.

Donc utilises plutot

Code:

---

Button.Caption = "Lenomdubouton"

---

Tout comme tu feras

Code:

---

Button.OnAction = "macro"

---

pour la macro a executer lorsque tu cliques...

j'ai donc modifié le code comme suit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CB_AFFICHAGE_Click()   If Button.Caption = "AFF/mois" Then   Range("C:H,K:P,S:X").EntireColumn.Hidden = False Button.Caption = "AFF/trimestre"   Else   Range("C:H,K:P,S:X").EntireColumn.Hidden = True Button.Caption = "AFF/Mois" End If   End Sub

---

Mais il me bloque sur la boucle if en me disant

Code erreur 424: Objet requis.

Faut il lui pointer plus précisément le bouton en question?

Merci d'avance

Ok,

Alors il faut déjà le créer.

Tu vas lui donner un "Name" c'est a dire une sorte d'identifiant, mais ce n'est en rien son "Caption" qui lui sera ce qui sera affiché sur le bouton.

Tu créées donc ton bouton a l'aide de l'interface graphique d'excel, et tu remplis, le premier attribut (en haut normalement) 'Name' et tu lui donnes le nom que tu veux. (disons ici "Button").

Et c'est grace a ce nom là que tu vas le reconnaitre lorsque tu l'appelles en tant qu'objet.

Donc : fais donc bien al différence entre Name (identifiant) et Caption ( affichage)

Je sais pas si j'ai été clair :roll:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CB_AFFICHAGE_Click()   If CB_AFFICHAGE.Caption = "AFF/Mois" Then   Range("C:H,K:P,S:X").EntireColumn.Hidden = False CB_AFFICHAGE.Caption = "AFF/Trimestre"   Else   Range("C:H,K:P,S:X").EntireColumn.Hidden = True CB_AFFICHAGE.Caption = "AFF/Mois" End If   End Sub

---

Button n'est pas référencé, il faut que tu le remplace par son nom (ici CB_AFFICHAGE) ensuite tu as une erreur dans ton test : VBA respecte la casse donc AFF/mois à remplacer par AFF/Mois

Il a déjà un Name qui est CB_AFFICHAGE

donc peut etre devrais je mettre

CB_AFFICHAGE.caption
à la place de
Button.caption

Q'en penses tu?
Je fais le test en parallele.

Mordrhim +1,

Comme quoi ca sert a rien de tourner autour du pot :roll:

Ca marche

Donc pour résumer pour les suivants


Changer le nom d'un bouton via la macro:

Si la propriété name du bouton s'appelle AFFICHAGE

AFFICHAGE.caption = "Nouveau nom"


Merci beaucoup pour les réponses


@+