Cacher une ligne avec une variable

**anaisanais** · 03/01/2008, 15h12

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 :

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
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

**Jean-Philippe André** · 03/01/2008, 15h15

attention, tu confonds row et column...

**anaisanais** · 03/01/2008, 15h17

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

**Jean-Philippe André** · 03/01/2008, 15h19

alors

Code :

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

rows(h &":" & h)

**anaisanais** · 03/01/2008, 15h22

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 ?

**Jean-Philippe André** · 03/01/2008, 15h26

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

**anaisanais** · 03/01/2008, 15h31

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

**Jean-Philippe André** · 03/01/2008, 15h38

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 :

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

Rows(h).hidden = True

**anaisanais** · 03/01/2008, 15h43

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...

**Jean-Philippe André** · 03/01/2008, 15h50

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 :

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

For H = 43 to ...

**anaisanais** · 03/01/2008, 16h06

Bonne idee...

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
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...

**Jean-Philippe André** · 03/01/2008, 16h36

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 :

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

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.

**anaisanais** · 03/01/2008, 16h41

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?

**Jean-Philippe André** · 03/01/2008, 17h04

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 :

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