Bonjour tout le monde,
Je viens de commencer des cours de VBA, mais reste très très novice. Et de ce fait j'ai découvert ce site formidable surlequel je passe beaucoup de temps
Pour mon travail, j'essaye tant bien que mal de pouvoir créer un repertoire basé sur deux liste déroulante:
- une liste commerciale
- une liste statut dossier
J'ai donc créer deux variables dans mon VBA pourtant les données ne sont pas pris en compte et la macro recherche les termes TRUE dans le filtre.
Voilà le code (j'imagine qu'il est tout nul mais il faut bien commencer par quelquepart)))
Sheets("Input").Select
a = Range("C8").Select
b = Range("C11").Select
Sheets("Data").Select
Selection.AutoFilter Field:=2, Criteria1:=a
Selection.AutoFilter Field:=3, Criteria1:=b
Rows("1:9").Select
Selection.Copy
Sheets("Tableau").Select
Range("A1").Select
ActiveSheet.Paste
Je ne sais pas si je suis clair ce pourquoi je me permets de joindre une partie du fichier (2000 entrées en tout) afin que vous puissiez avoir une idée de mon problème.
D'avance je vous remercie infiniment du temps que vous voudrez bien me consacrer.
Je viens de commencer des cours de VBA, mais reste très très novice. Et de ce fait j'ai découvert ce site formidable surlequel je passe beaucoup de temps
Pour mon travail, j'essaye tant bien que mal de pouvoir créer un repertoire basé sur deux liste déroulante:
- une liste commerciale
- une liste statut dossier
J'ai donc créer deux variables dans mon VBA pourtant les données ne sont pas pris en compte et la macro recherche les termes TRUE dans le filtre.
Voilà le code (j'imagine qu'il est tout nul mais il faut bien commencer par quelquepart)))
Sheets("Input").Select
a = Range("C8").Select
b = Range("C11").Select
Sheets("Data").Select
Selection.AutoFilter Field:=2, Criteria1:=a
Selection.AutoFilter Field:=3, Criteria1:=b
Rows("1:9").Select
Selection.Copy
Sheets("Tableau").Select
Range("A1").Select
ActiveSheet.Paste
Je ne sais pas si je suis clair ce pourquoi je me permets de joindre une partie du fichier (2000 entrées en tout) afin que vous puissiez avoir une idée de mon problème.
D'avance je vous remercie infiniment du temps que vous voudrez bien me consacrer.
Pièces jointes
Dernière édition: