Discussion :

[nianko]

Bonjour,

J'ai une macro qui masque certaines plages de cellules dans ma feuille, et une autre qui les affiche.
Comment creer un bouton de commande avec "afficher" ecrit lorsque les colonnes sont cachees, qui se transformerait ensuite en "masquer" quand je clique dessus et que les colonnes sont affichees.
En gros je veux eviter d'avoir 2 boutons de commandes (1 pour afficher et 1 pour masquer). Je souhaite cliquer sur le meme bouton pour afficher et masquer les colonnes.

J'espere que c'est clair, merc!

[casefayere]

Bonjour à tou(te)s

exemple à adapter

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
If Columns("C:C").Hidden = True Then
    CommandButton1.Caption = "affiché"
Else
    CommandButton1.Caption = "masqué"
End If
End Sub

Bonne journée

allez, un peu plus loin

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
If Columns("C:C").Hidden = True Then
    Columns("C:C").Hidden = False
    CommandButton1.Caption = "affiché"
Else
    Columns("C:C").Hidden = True
    CommandButton1.Caption = "masqué"
End If
End Sub

[nianko]

Genial merci

[mercatog]

En compactant

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Columns(3).Hidden = Not Columns(3).Hidden
CommandButton1.Caption = IIf(Columns(3).Hidden, "Affich", "Masqu") & "er colonne C"
End Sub