Cacher une ligne avec une variable

Bonjour,

Je suis en train de faire une macro attachee a un formulaire (liste deroulante a choix multiple).
Dans excel, j'ai des lignes qui contiennent en colonne C les noms de services de ma listbox (ceux qui apparaissent ds ma liste deroulante). Ce que je veux, c'est que les lignes contenant les noms de services qui ne sont pas selectionnees dans la liste deroulante du formulaire soient cachees.

Ma macro ressemble donc a ca:

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

Private Sub CommandButton2_Click()   Dim G, H As Integer   'H, la ligne du premier service, G les membres selectionnes   H = 43 'Netoyer les selections precedentes Worksheets("REV ANALYSIS").Activate Range("E43:H54").ClearContents     'assure que toutes les lignes ne sont pas cachees Worksheets("REV ANALYSIS").Activate Rows("43:54").EntireRow.Hidden = False   For G = 0 To 11 H = 43 If ListBox1.Selected(G) = True Then   If Worksheets("REV ANALYSIS").Cells(H, 3) <> ListBox1.List(G) Then   Rows("H:H").Hidden = True   End If   H = H + 1   End If Next G   UserForm2.Hide   End Sub

---

Le bug intervient au niveau de la ligne "Rows("H:H").Hidden = True", il semble qu'il ne reconnaisse pas ma variable H.

Quelqu'un peut il m'aider, je suis vraiment bloquee......

Merci beaucoup,
anais

attention, tu confonds row et column...

Comment ca?
Il s'agit bien des lignes que mon tableau excel que je veux cacher....

alors

Code:

---

rows(h &":" & h)

---

C'est que H n'est pas un numero de colonne, c'est ma variable.
Mais peut etre que le dormat est mauvais? Qu'est ce que je devrais avoir pour faire appel a ma ligne H ?

bon alors il faut t'exprimer un poil mieux stp...
ton rows("h:h") ne peut pas marcher car tu lui files deux lettres => des colonnes dans des lignes, ca fait désordre.

au fait pense à mettre ton premier post avec les balises code stp, c'est un peu illisible :aie:

Quand je mets Rows("H"), j'ai toujours une erreur....

row désigne des lignes, hors une ligne comporte un numéro, pas une lettre, si tu veux juste la ligne avec la valeur de ta variable h :

Code:

---

Rows(h).hidden = True

---

Merci, je n'ai plus l'erreur..

Mais maintenant, j'en ai une autre, c'est que la "H=H+1" ne semble pas se declencher: Il se bloque a H=43.

Merci de ta patience...

ton imbrication dans ta boucle for g n'est à ce moment pas juste.
Jusqu'où est sensé aller H ?
je recommande une deuxième boucle

Code:

---

For H = 43 to ...

---

Bonne idee...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

For G = 0 To 11     If ListBox1.Selected(G) = True Then   For H = 43 To 54   If Worksheets("REV ANALYSIS").Cells(H, 3) <> ListBox1.List(G) Then   Rows(H).Hidden = True   Else   Rows(H).Hidden = False     End If   Next H   End If Next G

---

Ici, il ne m'applique la fonction que pour la derniere ligne selectionnee dans mon formulaire.... Je ne comprends pas pourquoi...

ici, on va avoir un auter soucis : tu passes plusieurs fois sur la les lignes 43 à 54 (boucle h) hors, si tu souhaites cacher les lignes qui figurent dans ta listbox, tu enlèves la partie qui figure dans le else, en te limitant à :

Code:

---

1 2 3 4 5

If Worksheets("REV ANALYSIS").Cells(H, 3) <> ListBox1.List(G) Then   Rows(H).Hidden = True   End If

---

tu pourras faire précéder une "remise à zéro" de toutes les lignes avant le passage dans les boucle g et h.

Quand je retire le else, il me cache direct toutes les lignes allant de 43 a 54...

A quoi tu te referes quand tu dis remettre a zero les lignes?

l'idée est de cacher toute les lignes au départ, et de les faire apparaitre petit à petit, ou l'inverse. Il faut effectuer un test du type = plutôt que <> entre
Wor

Code:

---

ksheets("REV ANALYSIS").Cells(H, 3)

---

et

Code:

---

ListBox1.List(G)

---

Super! Ca a marche!!

Merci beaucoup pour ton aide, et bonne soiree..

Anais

pense au tag résolu :king: