Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel filtre automatique avec macro

filtre automatique avec macro

2 réponses
Avatar
hervecanto
Bonjour
comment faire mieux (c'est surement facile....) lol
pour traiter toutes les donn=E9es d'un filtre automatique.
et ensuite je cherche =E0 remplacer le n=B0 de filtre (64) par une "boite
=E0 question" afin de choisir chaque semaine un nouveau filtre....
merci a tous


Workbooks.Open Filename:=3D"D:\Mes documents\tourn.xls"
'
Windows("Base TL.xls").Activate
Selection.AutoFilter Field:=3D64, Criteria1:=3D"A"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:=3D64, Criteria1:=3D"B"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:=3D64, Criteria1:=3D"C"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:=3D64, Criteria1:=3D"D"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:=3D64, Criteria1:=3D"E"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:=3D64, Criteria1:=3D"F"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:=3D64, Criteria1:=3D"G"
Application.Run "'Base TL.xls'!macrojour"

Selection.AutoFilter Field:=3D64, Criteria1:=3D"<>"
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Des exemples:
http://boisgontierj.free.fr/fichiers/jb-filtreautomatique.xls

JB
Bonjour
comment faire mieux (c'est surement facile....) lol
pour traiter toutes les données d'un filtre automatique.
et ensuite je cherche à remplacer le n° de filtre (64) par une "boite
à question" afin de choisir chaque semaine un nouveau filtre....
merci a tous


Workbooks.Open Filename:="D:Mes documentstourn.xls"
'
Windows("Base TL.xls").Activate
Selection.AutoFilter Field:d, Criteria1:="A"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:d, Criteria1:="B"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:d, Criteria1:="C"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:d, Criteria1:="D"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:d, Criteria1:="E"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:d, Criteria1:="F"
Application.Run "'Base TL.xls'!macrojour"
Selection.AutoFilter Field:d, Criteria1:="G"
Application.Run "'Base TL.xls'!macrojour"

Selection.AutoFilter Field:d, Criteria1:="<>"
End Sub


Avatar
hervecanto
merci, je m'y plonge dès à présent
a+


Bonjour,

Des exemples:
http://boisgontierj.free.fr/fichiers/jb-filtreautomatique.xls

JB