Discussion :

[COCONUT2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Log_polmed]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Button.Caption = "Lenomdubouton"

Tout comme tu feras

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Button.OnAction = "macro"

pour la macro a executer lorsque tu cliques...

[COCONUT2]

j'ai donc modifié le code comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Log_polmed]

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

[mordrhim]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[COCONUT2]

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.

[Log_polmed]

Mordrhim +1,

Comme quoi ca sert a rien de tourner autour du pot

[COCONUT2]

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


@+