Masquer des colonnes avec checkbox

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:

---

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

---

Bonjour,

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

Code:

---

Columns.Hidden=False

---

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

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

Y a pas de quoi...

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

Code:

---

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

---