Bonjour à tous,

Alors voila, j'ai un userform permettant de masquer des colonnes suivant les checkbox cochées.

Mon code est fonctionnel pour une feuille, voici le code associé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub DefinitionDomaine_Initialize()
 
'Fermeture du UserForm lors du clic sur le bouton valider
'Sélection de la feuille SAN
Private Sub Valider_Click()
    Unload DefinitionDomaine
    Worksheets("Synthèse Atteinte Norme").Select
    Range("A25").Select
End Sub
 
 
'Action CheckBox Activité
Private Sub CheckBox_Activite_Click()
 If DefinitionDomaine.CheckBox_Activite.Value = True Then
    Worksheets("Synthèse Atteinte Norme").Range("C:E").EntireColumn.Hidden = False
 Else
    Worksheets("Synthèse Atteinte Norme").Range("C:E").EntireColumn.Hidden = True
 End If
 
End Sub
 
'Action CheckBox Epargne
Private Sub CheckBox_Epargne_Click()
 If DefinitionDomaine.CheckBox_Epargne.Value = True Then
    Worksheets("Synthèse Atteinte Norme").Range("F:J").EntireColumn.Hidden = False
 Else
    Worksheets("Synthèse Atteinte Norme").Range("F:J").EntireColumn.Hidden = True
 End If
End Sub
J'aimerais savoir si il est possible d'étendre ce code avec d'autres feuilles ? A savoir si l'userform est lancé sur une autre feuille alors masquer des colonnes différentes.

Cordialement,