Filtres auto en VBA

[Will-e-coyote]

Bonjour le forum !

Voila mon probleme :

Je veux importer des données (Un tableau + precisement) a partir d'un autre classeur excel. Jusque la je sais faire et ca fonctionne: je copie toutes les données et je filtre dans mon fichier cible..., ce qui prends un peut de temps....

Pour faire plus rapide je ne veux importer que les données correspondant a ces memes critères (3). Ca tombe bien, ma feuille source contient des filtres automatiques.

Le probleme est que lorsque j'essaie de définir mes filtres (avant de copier la selection pour la coller dans le fichier destination) VBA me retourne une erreur....

selection.Autofilter Field:=1, Criteria1:= Range("Code").Value

Je precise que la cellule Code peut contenir du texte ou des nombres....


Merci d'avance pour vos eclaircissements !

PS: Je ne puis malheureusement faire sortir de fichier du reseau....😡

 

[Will-e-coyote]

Re : Filtres auto en VBA

Bon ok je sais pas lire il fallait mettre un string 😱

Du coup je transforme mon critere en utilisant la function CStr()... Mais ca marche tjrs po 😕

 

[Efgé]

Re : Filtres auto en VBA

Bonjour Will-e-coyote,
A essayer:

Sub Macro3()
Dim Toto As String
Toto = Range("Code").Value
Selection.AutoFilter Field:=1, Criteria1:=Toto
End Sub

Cordialement

 

[Will-e-coyote]

Re : Filtres auto en VBA

Desole....

J'ai trop honte de ma betise.😱😱😱... probleme reglé

 

[Will-e-coyote]

Re : Filtres auto en VBA

Merci quand meme efgé 😱