Discussion :

[Coxtox]

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,

[Daniel.C]

Bonjour,

Enlève le nom des feuilles.

[Coxtox]

Bonjour Daniel,

Le problème est que si la feuille change, les colonnes a masquer ne sont pas les mêmes

Cordialement

[HopPopPop]

Bonsoir à tous,
Utiliser l'instruction ActiveSheet.Name pour connaître le nom de la feuille.
Ex. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Feuille As string   ' déclaration dans 1 module

puis,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuille = ActiveSheet.Name

puis,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Select Case Feuille
   Case "Synthèse Atteinte Norme"
   Case "Toto"

Mais le mieux serait d'utiliser le CodeName des feuilles car il reste le même, même si l'utilisateur change le nom des feuilles.

[Coxtox]

Bonjour,

Merci de ta réponse cependant, je n'ai jamais utilisé cette syntaxe ... j'ai testé de la manière suivante :

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
30
31
32
33
34
35
36
Public Sub DefinitionDomaine_Initialize()
 
Public Feuille As String
Feuille = ActiveSheet.Name
 
Select Case Feuille
 
    Case "Synthèse Atteinte Norme"
    'Fermeture du UserForm lors du clic sur le bouton valider
    'Sélection de la feuille SAN
    Public Sub Valider_Click()
    Unload DefinitionDomaine
    Feuille.Select
    Range("A25").Select
    End Sub
 
 
'Action CheckBox Activité
Private Sub CheckBox_Activite_Click()
 
Feuille = ActiveSheet.Name
Select Case Feuille
Case "Synthèse Atteinte Norme"
 If DefinitionDomaine.CheckBox_Activite.Value = True Then
    Feuille.Range("C:E").EntireColumn.Hidden = False
 Else
    Feuille.Range("C:E").EntireColumn.Hidden = True
 End If
Case "Moyenne"
 If DefinitionDomaine.CheckBox_Activite.Value = True Then
    Feuille.Range("C:M").EntireColumn.Hidden = False
 Else
    Feuille.Range("C:M").EntireColumn.Hidden = True
 End If
End Select
End Sub

J'ai l'erreur qualificateur incorrect sur feuille (If DefinitionDomaine.CheckBox_Activite.Value = True)..

[Theze]

Bonjour,

Teste ceci et adapte :

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
 
'Action CheckBox Activité
Private Sub CheckBox_Activite_Click()
 
    Dim Feuille As Worksheet
 
    Set Feuille = ActiveSheet
 
    With DefinitionDomaine.CheckBox_Activite
 
        Select Case Feuille.Name
 
            Case "Synthèse Atteinte Norme"
 
                Feuille.Range("C:E").EntireColumn.Hidden = Not .Value
 
            Case "Moyenne"
 
                Feuille.Range("C:M").EntireColumn.Hidden = Not .Value
 
        End Select
 
    End With
 
End Sub

Le code "Initialize" du formulaire n'est pas complet !

Hervé.

[Coxtox]

Parfait ! ça fonctionne !

Je te remercie !