Afficher dans mon userform si les colonnes sont masquées ou non

[Tophe2]

Bonjour le forum
J'ai un fichier où je souhaite masquer ou non des colonnes par le biais d'un userform cela fonctionne grace à des cases à cocher (cela fonctionne). J'aimerai si cela est possible que lors de l'ouverture de l'userform il me prenne déjà en compte l'état de mon fichier c'est à dire si certaines colonnes sont masquées, la case est coché sinon elle apparait non coché. En espérant avoir était clair.
Dans mon exemple seul les 2 premiers case à cochés sont active.
Cordialement
Christophe.

 

[porcinet82]

Re : Afficher dans mon userform si les colonnes sont masquées ou non

Salut,

Tu n'as qu'a rajouter le bout de code suivant :

Private Sub UserForm_Initialize()
If Columns("F:I").EntireColumn.Hidden = True Then
    Controls("checkbox1").Caption = "Masquer"
    Controls("checkbox1").Value = True
Else
    Controls("checkbox1").Caption = "Masquer"
    Controls("checkbox1").Value = False
End If
End Sub

De plus, si je peux me permettre, tu peux modifier le code suivant pour éviter d'appeler 2 macro :

Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = True Then
    Columns("F:I").EntireColumn.Hidden = True
    Controls("checkbox1").Caption = "Masquer"
Else
    Controls("checkbox1").Caption = "Afiicher"
    Columns("F:I").EntireColumn.Hidden = False
End If
End Sub

@+