Parcourir un filtre auto en VBA

Bonjour,
le for each est bon, il faut avant, faire une extraction de toutes tes
occurrences à traiter par la cde filtre élaboré extraction dans un autre
emplacement sans doublon, puis pointer ta boucle sur cette liste
--
Cordialement
jpmonnier-nospam@neuf.fr
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news:5332ABF4-C447-413E-BCE3-364A13CC9BF8@microsoft.com...

Bonjour,
Je voudrais par VBA faire un filtre auto de toutes les valeurs contenu
dans
une colonne... dy style
For each val in colonne B
Selection.AutoFilter Field:=2, Criteria1:=val
next

Merci de votre aide

Merci mais je pensais qu'il y avait plus simple...

"JPMonnier" wrote:

Bonjour,
le for each est bon, il faut avant, faire une extraction de toutes tes
occurrences à traiter par la cde filtre élaboré extraction dans un autre
emplacement sans doublon, puis pointer ta boucle sur cette liste
--
Cordialement
jpmonnier-nospam@neuf.fr
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news:5332ABF4-C447-413E-BCE3-364A13CC9BF8@microsoft.com...
> Bonjour,
> Je voudrais par VBA faire un filtre auto de toutes les valeurs contenu
> dans
> une colonne... dy style
> For each val in colonne B
> Selection.AutoFilter Field:=2, Criteria1:=val
> next
>
> Merci de votre aide
>

Bonjour StDonat,
si tu veux filtrer la colonne B :
Columns(2).autofilter Field:=1, Criteria1:=val
si tu veux filtrer les colonnes A et B sur la colonne B
Columns("A:B").autofilter Field:=2, Criteria1:=val
Si tu veux parcourir les lignes affichées d'une colonne filtrée
For Each XXX In Columns("B").Rows
If XXX.EntireRow.Hidden Then
MsgBox "Ligne " & XXX.Row & " Filtrée"
Else
MsgBox "Ligne " & XXX.Row & " non Filtrée"
End If
Next XXX

Corto

StDonat a écrit :

Bonjour,
Je voudrais par VBA faire un filtre auto de toutes les valeurs contenu dans
une colonne... dy style
For each val in colonne B
Selection.AutoFilter Field:=2, Criteria1:=val
next

Merci de votre aide

Un exemple de code pour boucler sur la colonne "B"
d'une plage A1:Gx sur une feuille dont le nom d'objet
d'icelle dans la fenêtre de l'éditeur de code pour le nom
de "Feuil1"

With Feuil1
With .Range("A2:G" & .Range("B" & .Cells.Rows.Count).End(xlUp).Row)
For Each cell In .Columns(2).Cells
.AutoFilter field:=2, Criteria1:Îll
Next
End With
End With




"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 5332ABF4-C447-413E-BCE3-364A13CC9BF8@microsoft.com...
Bonjour,
Je voudrais par VBA faire un filtre auto de toutes les valeurs contenu dans
une colonne... dy style
For each val in colonne B
Selection.AutoFilter Field:=2, Criteria1:=val
next

Merci de votre aide