Discussion :

[quent-fgx]

Bonjour à tous,

Pour un projet VBA et l'utilisation d'un userform, j'utilise la fonction "AdvancedFilter" dans une classe Module, voici un extrait du programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub filtreAvance1()
 
    'Déclaration des variables
    Dim rgDonnees As Range
    Dim rgCritere As Range
    Dim rgDestination As Range
 
    'Affectation des variables
    Set rgDonnees = Feuil4.Range("A1").CurrentRegion 'Feuil4 est un tableau correspondant à ma "base de données"
    Set rgCritere = Feuil3.Range("I1").CurrentRegion 'Feuil3 est ma feuille "Liste" où sont définis entre autre les tableaux de critère et listes pour combobox de l'userform
    Set rgDestination = Feuil2.Range("A1") 
 
    'Suppression l'ancien filtre
    Feuil2.Cells.ClearContents
 
    'Exécute l'outil FiltreAvancee
    rgDonnees.AdvancedFilter xlFilterCopy, rgCritere, rgDestination
 
End Sub

Avec ce programme, je souhaite filtrer ma base de données (Feuil4) avec un numéro de série particulier en guise de critère et copier le résultat du filtre dans la "Feuil2".
rgCritère est donc un tableau dont l'en-tête est "Numéro de série" et dont l'unique ligne correspond au numéro de série cherché (type String).
Dans l'utilisation de mon userform, voici l'extrait du code qui appelle cette fonction de filtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Feuil3.Range("I2").Value = txtSN.Value 'On copie le SN à la cellule I2 de la feuille "Liste"
Call filtreAvance1

Cela fonctionne correctement mais pour simplifier mon fichier excel, j'aimerai supprimer la feuille "Liste" et je cherche un moyen de me passer de la première ligne du 2ème code (Feuil3.Range("I2").Value = txtSN.Value).
Est-ce possible de définir "rgCritere" sans sélectionner une plage de cellules ? Dans l'idéal je souhaiterai avoir :
rgCritere = {"Numéro de série"; numSerie} où numSerie serait une variable publique dont j'affecterai la valeur de "txtSN.Value". Cela m'éviterai de "copier" la valeur dans la feuille Liste puis de lire cette valeur dans la fonction de filtre.

Je débute sur VBA, merci pour vos retours,

En espérant que vous ayiez compris ma demande

Bonne journée

[Philippe Tulliez]

Bonjour,
Je ne suis pas certain d'avoir compris.
La zone de critère d'un filtre avancé doit contenir au minimum un titre et un critère et ce dans dans deux cellules distinctes situées l'une en dessous de l'autre. Cette plage peut être nommée à l'aide du gestionnaire des noms et peut se situer dans n'importe quelle feuille du classeur.
Vous pouvez bien entendu associer le critère à une liste déroulante et intercepter l'événement pour lancer l'exportation.

Pour en savoir plus, je vous invite à lire mon tutoriel sur le sujet Les filtres avancés ou élaborés dans Excel

[quent-fgx]

Bonjour,

Merci pour votre retour.

Mon problème concerne la définition de la zone de critère, je voulais savoir s'il était possible d'écrire quelques chose comme rgCritere = tab('titre du critère' ; 'numéro de série critère').
J'aimerai que la plage ne soit pas stockée sur une des feuilles comme c'est le cas actuellement (feuille 'Liste') mais définis uniquement dans le programme VBA. Je cherche donc à savoir si je peux me passer de la feuille 'Liste'. Je sais qu'en argument, CriteriaRange doit être de type "Range", un 'Range' ne peut être défini qu'à partir de cellules d'une feuille de calcul ? Ne peut-on pas définir un range sans faire référence à des cellules ? Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim tableau(1)
tableau(0) = "Numéro de série" 'titre du critère
tableau(1) = txtSN.Value 'critère que l'utilisateur a entré dans l'userform

J'ai lu votre tutoriel, merci mais je ne trouve pas la réponse à ma question.

[Philippe Tulliez]

Bonjour,
Non, ce n'est pas possible. Il faut stocker le critère dans une plage de cellules mais rien ne vous empêche de cacher la feuille.