Discussion :

[canorra]

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 :

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

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

[SfJ5Rpw8]

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

Code :

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

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

[canorra]

Merci !

[canorra]

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 :

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

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

[SfJ5Rpw8]

le nombre de ligne

Code :

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

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

la valeur de la cellule

Code :

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

1
2
 
  MsgBox c.Cells(5).value

[canorra]

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 :

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

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

[SfJ5Rpw8]

le nombre de ligne

Code :

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

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

la valeur de la cellule

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 :

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

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