Discussion :

[david87220]

Bonjour,

je travaille actuellement sur un tableau regroupant des donnés (pour le moment 60 colonnes) et je souhaite filtrer les colonnes par rapport a mon besoin visuel. j'ai déjà créer un code qui fonctionne à priori très bien.
mais il y a une problématique :

quand je sélectionne la première checkbox tout fonctionne, mais quand je demande la deuxième checkbox, celui-ci ne se réinitialise pas et je sais pas comment faire!
pouvez-vous m'aider?
merci d'avance


voici la ligne de code :

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
Private Sub CommandButton1_click()
Unload Me
End Sub
 
Private Sub CheckBox1_Click()
  Range("f:g,i:i,m:bh").EntireColumn.Hidden = CheckBox1
End Sub
 
Private Sub CheckBox2_Click()
  Range("c:d,j:k,m:bh").EntireColumn.Hidden = CheckBox2
End Sub
 
Private Sub CheckBox3_Click()
  Range("c:d,f:i,k:o,aj:bh").EntireColumn.Hidden = CheckBox3
End Sub
 
Private Sub CheckBox4_Click()
  Range("c:d,f:g,i:i,l:l,p:bh").EntireColumn.Hidden = CheckBox4
End Sub
 
Private Sub CheckBox5_Click()
  Range("b:b,e:ai").EntireColumn.Hidden = CheckBox5
End Sub
 
Private Sub UserForm2_Initialize()
 
End Sub
 
Private Sub UserForm2_Click()
 
End Sub

[parmi]

Bonjour,

Dans chacune de tes procédures, avant de masquer tes colonnes, affiche-les toutes

Code :

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

Columns.Hidden=False

Ceci dit, quand tu mets du code utilise le bouton #
Et va dans le forum dédié aux macros...

[david87220]

Super ça fonctionne à la perfection!
merci beaucoup pour ta réponse et tes conseils pour les nouvelles conversations!

[parmi]

Y a pas de quoi...

Et si tu veux que ça se fasse plus "doucement", tu peux y aller ainsi

Code :

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

1
2
3
4
5
6
Private Sub CheckBox1_Click()
    Application.ScreenUpdating = False
    Columns.Hidden=False
    Range("f:g,i:i,m:bh").EntireColumn.Hidden = CheckBox1
    Application.ScreenUpdating = True
End Sub