Macro "Si" Têtue !

Bonjour,

Je fais à nouveau appel à vos services suite à une macro « têtue »
Voici un extrait de la macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test2() Rows("1:172").EntireRow.Hidden = False   If CheckBox6 And CheckBox7 And CheckBox9 = True Then Rows("1:172").EntireRow.Hidden = False   ElseIf CheckBox6 And CheckBox8 = True Then Rows("56:90").EntireRow.Hidden = True Rows("130:149").EntireRow.Hidden = True End If End Sub

---

Le souci que je rencontre est simple, quand je coche mes 3 checkbox 6,7 et 9 les lignes 56 à 90 Restent cachés.

Pouvez vous me donner un indice ou bien m’expliquer mon erreur ??

Cordialement.

Bonjour,

Peut-être une inversion entre CheckBox8 et CheckBox9.

Cordialement.

Bonjour et merci pour ta réponse,

Mais si j'inverse checkbox 8 et 9, ma requette n'est plus la même sachant que je cherche à afficher les lignes 1 à 172 quand les checkbox 6,7et9 sont cochés.
et masquer les lignes 50 à 90 et 130 à 149 quand uniquement les checkbox 6 et 8 sont cochées.

D'autres idées ??

Merci d'avence.

Cordialement.

Essaie de parcourir pas à pas ton code une fois que tu as coché tes checkbox pour voir ce qui se passe.

As-tu du code ailleurs qui pourrait faire conflit ?

Edit : Je pense que la suggestion précédente était plutôt que tu considères pas les bonnes checkbox : essaie de vérifier leur nom. Il est possible que celle que tu crois être la 8 et en fait la 9.

De plus, de façon général, tu es mieux à donner des noms explicites à tes checkbox, variables et autres objets histoire de t'y retrouver dans ton code.

Re-edit, une autre idée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test2() Rows("1:172").EntireRow.Hidden = False   If CheckBox6 = True And CheckBox7 = True And CheckBox9 = True Then Rows("1:172").EntireRow.Hidden = False   ElseIf CheckBox6 = True And CheckBox8 = True Then Rows("56:90").EntireRow.Hidden = True Rows("130:149").EntireRow.Hidden = True End If End Sub

---

Merci beaucoup à tous !!

Cyril ton idée fut la bonne, j'ai respecter ta façon d'écrire le code et Bingo.

Bonne journée à tous et merci :)

Cordialement.