Mettez le Masque

[zeltron24]

Bonsoir le forum,

Je demande juste un peu d'aide sur cette macro. qui m'indique en erreur "Fonction ou variable attendue".
J'ai beau me creuser la tête je ne trouve pas.

Private Sub CmdMasq_Click()

' Gestion de l'affichage des colonnes F à K
If CmdMasq.Caption = "Masquer Colonnes" Then
CmdMasq.Caption = "Afficher Colonnes"

' Masquage des colonnes F à K

Columns("F:K").Select
Range("F2").Activate
Selection.ColumnWidth = 10
Range("A2").Select

Else

If CmdMasq.Caption = "Afficher Colonnes" Then
CmdMasq.Caption = "Masquer Colonnes"

' Affichage des colonnes F à K
Columns("F:K").Select
Range("F2").Activate
' Selection.ColumnWidth = 0
Range("A2").Select
End If
End If
End Sub

Merci d'avance pour votre aide.

 

[mécano41]

Re : Mettez le Masque

Bonsoir,

J'ai juste inversé les largeurs (0 et 10) des colonnes et je n'ai aucun problème ; ça masque et ça démasque

Private Sub CmdMasq_Click()

' Gestion de l'affichage des colonnes F à K
If CmdMasq.Caption = "Masquer Colonnes" Then
CmdMasq.Caption = "Afficher Colonnes"

' Masquage des colonnes F à K

Columns("F:K").Select
Range("F2").Activate
Selection.ColumnWidth = 0
Range("A2").Select

Else

If CmdMasq.Caption = "Afficher Colonnes" Then
CmdMasq.Caption = "Masquer Colonnes"

' Affichage des colonnes F à K
Columns("F:K").Select
Range("F2").Activate
 Selection.ColumnWidth = 10
Range("A2").Select
End If
End If
End Sub

Cordialement

 

[zeltron24]

Re : Mettez le Masque

Merci pour ton aide J'avais essayé de remplacé Selection.ColumWidth par Columns("F:K").ColumnWidth = 10
et cela marché aussi.
encore merci et bonne soirée
Cordialement

 

[mécano41]

Re : Mettez le Masque

Effectivement, j'ai oublié de te signaler qu'il y avait des choses inutiles...

Cordialement