Filtre avancé en VBA qui ne marche pas
Bonjours tous le monde.
J'essaye d'utiliser un filtre avancée en VBA à l'aide de l'enregistreur de macro mais cela ne fonctionne pas.
Quand je passe par le bouton filtre avancée de l'onglet données et que je sélectionne manuellement ma plage et ma zone de critère sa marche.
J'ai ensuite fait de même avec l'enregistreur de macro mais la macro ne fonctionne pas ??
Les critères sont les suivants:
Alias DateTime DateTime Act Position Act Position Heure Heure
F022 >=41011,0069444444 <=41012,0625 >=100 <=200 >=0 <=23
la macro:
Sub testfiltre()
Application.ScreenUpdating = False
'Choix des données à filtrer.
Sheets("Feuil1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range("A1:U65535").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Feuil3").Range("AH7:AN8"), Unique:=False
Bonsoir,
Peux tu joindre ton fichier, ce sera plus facile pour t'apporter de l'aide.
cdt.
Voici les fichier.
Les critères de filtre se trouve à droite du tableau feuil3.
Je t'envoie également un fichier csv que tu peux charger à l'aide du bouton charger csv.
Les données sont alors copié en feuil1, c'est ici que le trie doit être effectué.
Actuellement ma macro pour filtrer est dans le module1 (testfiltre).
Elle est fonctionnelle sauf quand les valeurs rentrées sont des chiffres avec un zéro juste derrière la virgule (0.0) par exemple car ma foumule remplacer "," par "." ne marche pas avec ce type de nombre (0,0).
Je voudrais donc remplacer mon filtre par un filtre de ce style:
Sheets("feuil1").Activate
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range("A1:U65535").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Feuil3").Range("AH7:AN8"), Unique:=False
Worksheets("Feuil1").AutoFilterMode = False
EDIT: je viens de comprendre pourquoi mon filtre avancée ne marche pas non plus, le problème est identique à l'autre filtre.
Quand on transformer un filtre en VBA il faut remplacer les "," de nos nombre en ".".
Es ce que tu connais une forume différente de "=REMPLACER(B7;CHERCHE(",";B7);1;".")" qui marche pour 0,0 par exemple ?
Merci d'avance
Je vois que Nad a répondu sur un autre post, ton problème est résolu?
cdt.
ketamacanna a écrit :Je vois que Nad a répondu sur un autre post, ton problème est résolu?
cdt.
Oui problème résolu.
Merci quand même.