Masquer colonnes avec checkbox d'un userform suivant la feuille active

Version imprimable

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:

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,

03/08/2015, 15h50
Daniel.C

Bonjour,

Enlève le nom des feuilles.
03/08/2015, 16h05
Coxtox

Bonjour Daniel,

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

Cordialement
03/08/2015, 19h43
HopPopPop
Bonsoir à tous,
Utiliser l'instruction ActiveSheet.Name pour connaître le nom de la feuille.
Ex. :

Code:

Public Feuille As string ' déclaration dans 1 module

puis,

Code:

Feuille = ActiveSheet.Name

puis,
Code:

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.

Bonjour,

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

Code:

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)..

Bonjour,

Teste ceci et adapte :

Code:

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é.

05/08/2015, 10h58
Coxtox

Parfait ! ça fonctionne !

Je te remercie !