Boutons masquer/afficher colonnes

[annov]

Bonjour,

Je souhaite masquer et réafficher les colonnes d'un classeur par 1 ou 2 boutons
J'ai éssayé par le mode enregistrement macro çà fonctionne mais pas très propre.

Selection.EntireColumns("B:I").Hidden = True
Columns("A:J").Select
Selection.EntireColumn.Hidden = False

Pourriez vous m'aider svp?

Merci d'avance

 

[phlaurent55]

Re : Boutons masquer/afficher colonnes

Bonjour annov,

voir fichier joint avec un seul bouton

Sub Bouton1_Clic()
If Columns("B:I").Hidden = True Then
Columns("B:I").Hidden = False
Exit Sub
End If
If Columns("B:I").Hidden = False Then
Columns("B:I").Hidden = True
Exit Sub
End If
End Sub

à+
Philippe

 

[annov]

Re : Boutons masquer/afficher colonnes

Bonjour, Philippe

Et un grand merci pour la solution et la rapidité.

A+ annov