Code VBA pour faire l'opération inverse?

[Ptit Clown]

Bonjour à tous,
Voila mon ptit probleme, j ai creer un bouton pour masquer quelques colonnes, voici ce que j ai mis dans le code:

Private Sub ToggleButton1_Click()
Columns('I:M').Select
Selection.EntireColumn.Hidden = True
End Sub

et en fait je voudrai quand reklik dessus faire afficher ces collones.

Quels codes je dois mettre svp?

 

[Hervé]

Bonsoir

Essaye comme ceci :

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Columns('I:M').EntireColumn.Hidden = True
Else
Columns('I:M').EntireColumn.Hidden = False
End If
End Sub

A plus

Salut

 

[Ptit Clown]

Merci beaucoup Hervé.

 

[Ptit Clown]

Encore une ptite question,

Peut on faire la même manip mais plutôt pour une zone par exemple B2:E5?

Ou encore pour un Graphique, le faire apparaitre et disparaitre?

 

[Hervé]

re

Plus court :

Private Sub ToggleButton1_Click()
Columns('I:M').EntireColumn.Hidden = ToggleButton1
End Sub

salut

 

[Ptit Clown]

Merci pour tes reponses, mais comme on a repondu en meme temps je pense que tu n as pas du voir ma derniere requette!
Je te la remet, et encore merci pour ton aide.

Peut on faire la même manip mais plutôt pour une zone par exemple B2:E5?

Ou encore pour un Graphique, le faire apparaitre et disparaitre?

 

[Hervé]

re

Si si j'avais vu :

pour un graphique :

Private Sub ToggleButton1_Click()
ActiveSheet.ChartObjects('Graphique 5').Visible = ToggleButton1
End Sub

Par contre pour une plage de cellule je ne crois pas que ceci soit possible, tu ne peux pas masquer une seule cellule.Seule la ligne ou la colonne entière sont masquable.

A plus.

Salut

 

[Ptit Clown]

Nikel chrome Hérvé merci beaucoup, je vais tout de suite essayer.

 

[Ptit Clown]

MEEEEEEEEEERRRRRRRRRRRRRRCCCCCCCCCCCCCCCCCIIIIIIIIIIIIIIIIIIIIIIIIIII BBBBBBBBBBBEEEEEEEEEEEEEEAAAAAAAAAAAAUUUUUUUUUCCCCCCCCCCCOOOOOOOUUUUUUUUUUUUUPPPPPPPPPPPPPPPPPP ca marche nikel!!!!