Discussion :

[starius]

Bonjour,

Je fais un filtre sur des données, que je veux rapatrier dans un listbox. Seulement, je veux le faire cellule par cellule et non ligne par ligne, afin de ne prendre que les cellules qui m'intéressent mais en rajoutant, dans la première colonne, le n° de la ligne concernée.

Ex :

NOM - Prénom - Age - Date de naissance

Je récupère dans mon filtre tous ceux qui s'appellent MARTIN mais je n'affiche dans mon listbox que : N° ligne - NOM - Prénom.

Voici le code que j'ai commencé à faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'Voici le nombre de lignes affichées par le filtre :
    Nbre_lignes_filtrees = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
 
For i = 2 To Nbre_lignes_filtrees
 
numero_ligne = Range("_filterdatabase").SpecialCells(xlCellTypeVisible).Areas(i).Row
Lst_Recherche.AddItem
Lst_Recherche.List(i - 2, 0) = numero_ligne 'Ajout du n° ligne
'valeur = Cells(numero_ligne, 1).Value
'...
next

Mon soucis est que cela marche très bien pour la première ligne, mais que pour la seconde, j'ai un message d'erreur sur areas(i).row et que je comprends pas pourquoi.
"Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet"

Merci d'avance pour votre aide ou pour une autre solution...

Au secours !!

[ouskel'n'or]

Tu comprends bien que si tu mets "For i = 2 To Nbre_lignes_filtrees" tu as les lignes de 2 à Nbre_lignes_filtrees et non les N° des seules lignes filtrées.
Pour obtenir ce que tu veux, tu ne dois "visiter" que les lignes visibles.
En supposant ta liste dans un userform, ça donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Activate()
Dim Plage as range, cell as range
    Set plage = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
    For Each cell In plage
         Lst_Recherche.AddItem cell
         Lst_Recherche.list(Lst_Recherche.Listcount - 1, 1) = Cell.Row
    Next
    Set plage = nothing
End Sub

[starius]

Merci beaucoup !!

Et pour l'explication et pour le code

Je vais travailler ça.