Discussion :

[Yamiral]

Bonjour,

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

Code :

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

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.

[gFZT82]

Bonjour,

Peut-être une inversion entre CheckBox8 et CheckBox9.

Cordialement.

[Yamiral]

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.

[napo123]

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 :

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

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

[Yamiral]

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.