Bonsoir,
Je suis à la recherche d'un code plus simple pour cacher et afficher deux zones de colonnes.
Un très grand merci à tout ceux qui pourront m'aider...
Cordialement
Max
Je suis à la recherche d'un code plus simple pour cacher et afficher deux zones de colonnes.
Code:
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Masquer" Then
CommandButton1.Caption = "Afficher"
' Worksheets(1).Columns("E:S").Hidden = True
Columns("E:S").Select
Selection.EntireColumn.Hidden = True
Columns("V:AC").Select
Selection.EntireColumn.Hidden = True
Else
CommandButton1.Caption = "Masquer"
' Worksheets(1).Columns("E:S").Hidden = False
Columns("E:S").Select
Selection.EntireColumn.Hidden = False
Columns("V:AC").Select
Selection.EntireColumn.Hidden = False
End If
End Sub
Un très grand merci à tout ceux qui pourront m'aider...
Cordialement
Max
Pièces jointes
Dernière édition: