[VBA-E] Autofilter : lecture ligne par ligne

Bonjour,

Besoin d'un coup de pouce sur le sujet suivant :

J'ai trois zones de filtre dont les critères se trouvent dans les cellules A1 (pays) et B1 (ville) :

- comment filtrer mon onglet en spécifiant les critères de A1 et B1
exemple :

Code:

---

1 2 3

Sheets("feuil1").AutoFilter field:=1, Criteria1:="France" Sheets("feuil1").AutoFilter field:=2, Criteria1:="Pau"

---

- après avoir filtrer sur les deux colonnes, comment parcourir la plage resultat ligne par ligne afin d'en extraire les donnees de la cellule C

Merci par avance

je pense qu'il va te falloir effectuer un truc du genre :

Code:

---

1 2 3 4 5

Dim c For Each c In Sheets("feuil1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows Debug.Print c.Cells(3).Address Next

---

PS : Attention je n'ai pas vérifier les effets de bords si rien n'est sélectionné...

Merci !

Mais je remarque un point :

si les cellules de filtre ne se situe pas sur la 1er ligne et la 1e colonne (des infos sont notés au dessus) alors le code renvoie des adresses fausses (du moins ne correspondant pas au résultats attendus) :

exemple : les deux cellules de filtre sont sur C4 (pays) et D4 (ville)

Ci-dessous le code testé :

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim c Sheets("Feuil1").Range("C4:E45").AutoFilter field:=1, Criteria1:="France" Sheets("Feuil1").Range("C4:E45").AutoFilter field:=2, Criteria1:="Pau" For Each c In Sheets("feuil1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows MsgBox c.Cells(5).Address Next End Sub

---

- est-il possible de connaître le nombre de ligne renvoyer sans faire toute la boucle
- comment récupérer la valeur de la cellule plutôt que l'adresse

Merci

le nombre de ligne

Code:

---

Sheets("feuil1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows.count

---

la valeur de la cellule

Code:

---

1 2	MsgBox c.Cells(5).value

---

Merci bbil pour les infos mais je pense mal comprendre l'importance du range dans cette méthode.

En effet, je n'obtiens ni le nombre de lignes correct ni les bonnes valeurs!

Dans la méthode :

Code:

---

1 2	Sheets("Feuil1").Range("C4:E45").AutoFilter field:=1, Criteria1:="France"

---

A quoi doit correspondre la valeur du range ?
Je rappelle (sur un exemple simple) :
- Trois colonnes Pays / Villes / Valeurs
- Deux critères de sélection : Pays et Villes

Valeurs à récupérer :
- le nombre de lignes résultats
- chaque valeur d'une ligne (colonne Valeurs)

Merci

Citation:

---

Envoyé par bbil

le nombre de ligne

Code:

---

Sheets("feuil1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows.count

---

la valeur de la cellule

---

:oops: désolé je me suis laissé emporté.. .ce code ne marche pas :?
-----------------------------------------------------------------
bon je ne vois pas d'autre solution que de "compter" les lignes :

Code:

---

1 2 3 4 5

Dim iNbLigne As Integer For Each r In Sheets("feuil1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows iNbLigne = iNbLigne + 1 Next

---

Merci bbil

Dernière info : le choix de la plage (Range) dans la méthode AutoFilter est assez mal renseigné dans l'aide Excel.

Je pense que le choix de ma plage est à l'origine de mes erreurs (mauvaise compréhension dans cette méthode).

Je vais creuser la question en effectuant des tests.


Merci !

Pour avoir tes N° des lignes filtrées, si tu ne trouves pas plus simple, tu peux essayer ça

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim NoLigne(), i, j For Each ligne In Sheets("feuil1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows i = i + 1 ReDim Preserve NoLigne(i) NoLigne(i) = ligne.Row Next For j = 1 To i 'Affichage MsgBox NoLigne(j) Next

---

A+

Si c'est l'adresse des cellules que tu veux, tu remplaces Row par Address

Code:

---

1 2	NoLigne(i) = ligne.Address(RowAbsolute:=False, ColumnAbsolute:=False)

---

Pense à te placer dans la colonne filtrée avant de faire tout ça

A+

Merci à tous