Discussion :

[allergique]

Bonsoir, j'aurai besoin de votre aide SVP pour régler un petit problème.

Avec une macro je fais un filtre auto avec un certain nombre de critères.

Ensuite, je souhaite ajouter les éléments filtrés dans une listbox.

Mon problème est qu'avec mon code les lignes masquées sont quand même prises en compte au lieu de traiter uniquement les lignes qui sont apparentes.

Exemple:

Le filtre masque la ligne 4.
Je dois copier le contenu des cellules "I3" et "I5" dans ma listbox.
--> La macro copie "I3", "I4", "I5" dans la listbox.

Voici mon code sur lequel je bloque :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Ajoute les résultats trouvés dans les listbox
 
tableau = Range("A1:L" & Range("L65536").End(xlUp).Row)
 
For i = 2 To UBound(tableau)
    resultat.Add tableau(i, 9), CStr(tableau(i, 9))
Next i
 
For i = 1 To resultat.Count
        ListBoxnom.AddItem resultat(i)
Next i

Merci d'avance pour votre aide

[Etienne2323]

Bonjour allergique,
je vous envoi une piste de solution. J'ajouterais une condition dans votre boucle qui ressemblerait à ceci :

Code :

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

1
2
3
4
5
6
7
8
For i = 1 To resultat.Count
    If resultat(i).Hidden = True Then
         Goto Suite
    Else
         ListBoxnom.AddItem resultat(i)
    End if
Suite:
Next i

Le but serait de lui dire, si la cellule est cachée, passe à la cellule suivante, de là le Goto. Je n'ai pas testé toutefois.

Cordialement,

Étienne

[allergique]

Bonsoir Etienne,

J'ai adapté mon code sur le principe que tu m'as indiqué et ça fonctionne.

Voici le code tel qu'il fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = 2 To UBound(tableau)
    If Rows(i).Hidden = False Then
        resultat.Add tableau(i, 9), CStr(tableau(i, 9))
    End If
Next i

For i = 1 To resultat.Count
        ListBoxnom.AddItem resultat(i)
Next i

Merci beaucoup

Bonne soirée

[Etienne2323]

Bonjour allergique,
votre méthode est beaucoup plus efficace et esthétique que celle que je vous avait proposée. Content d'avoir pu vous donner un peu d'inspiration !

Passez une bonne fin de journée !

Cordialement,

Étienne