Simplifier le code

[Ilino]

Bonsoir Forum
je souhaite simplifier le code d'un bouton qui affiche / masque des colonnes ( dans mon cas de la colonne 29 a la colonne 38)

Private Sub CommandButton108_Click() 'afficher/masquer les delais
ActiveCell.Select 'enlève le focus au bouton
If Me.CommandButton108.Caption = "Masquer les délais" Then 'condition : si le texte du bouton est "Masquer"
    Columns(29).Hidden = True 
    Columns(30).Hidden = True
    Columns(31).Hidden = True
    Columns(32).Hidden = True
    Columns(33).Hidden = True
    Columns(34).Hidden = True
    Columns(35).Hidden = True
    Columns(36).Hidden = True
    Columns(37).Hidden = True
    Columns(38).Hidden = True
    Me.CommandButton108.Caption = "Afficher les délais" 'modifie le texte du bouton
    
Else 'sinon
    Columns(29).Hidden = False 
    Columns(30).Hidden = False
    Columns(31).Hidden = False
    Columns(32).Hidden = False
    Columns(33).Hidden = False
    Columns(34).Hidden = False
    Columns(35).Hidden = False
    Columns(36).Hidden = False
    Columns(37).Hidden = False
    Columns(38).Hidden = False
    Me.CommandButton108.Caption = "Masquer les délais" 'modifie le texte du bouton
End If 'fin de la condition
End Sub

GRAZIE

 

[mapomme]

Re : Simplifier le code

Bonsoir Ilino,

Ce code peut-être ?:

Range(Cells(1, 29), Cells(1, 38)).EntireColumn.Hidden = True

 

[Ilino]

Re : Simplifier le code

Bonsoir mapomme
Merci, et si j'ai des colonnes séparés ?
A+

 

[camarchepas]

Re : Simplifier le code

Bonjour MaPomme , Ilino

Petite variante d'écriiture
masque les colonnes Ac à AE at la conne AL

Range("AC1:AE1,AL1").EntireColumn.Hidden = True

 

[mapomme]

Re : Simplifier le code

Bonjour Ilino, camarchepas,

Une autre écriture?:

For Each s In Split("2 5 8 10 13 15 18 19"): Columns(Val(s)).Hidden = True: Next

 

[Ilino]

Re : Simplifier le code

Bonjour MAPOMME, camarchepas,
merci pour les varaintes
GRAZIE