VBA - Filtre dynamique

[n_xeon]

Bonjour à tous

Je cherche à ''variabiliser'' un champ de filtre dans une fonction VBA :

ActiveSheet.ListObjects("Tableau_mrs_vs_00658_APPLCOMMON_PRD_OperationPlanDB"). _
Range.AutoFilter Field:=9, Criteria1:=Array(liste_n), Operator _
:=xlFilterValues

liste_n est une valeur définie dans une cellule via une fonction et ressemble à :
"AFE", "AMO", "JPB"

Si je rentre en dur ces caractères, le filtre fonctionne. Via la varaiable, que nenni...

Une idée pour me dépanner ?

Merci d'avance !!!

 

[Modeste]

Bonjour n_xeon,

Comme souvent, un petit fichier exemple serait utile: il permettrait notamment de comprendre (ou visualiser) ce qu'il y a dans cette fameuse cellule nommée liste_n (les 3 chaînes séparées par des virgules, une des trois chaînes citées, ...)

 

[n_xeon]

Voilou...
La chaîne de caractère en question est sur la sheet ''Data''.

Cdlt

 

[Modeste]

Re,

Euh ... et la sheet Data en question serait ... dans un classeur, qui, lui-même, se serait égaré!? 😉

 

[Modeste]

Re²,

J'vous jure, un fichier de 5Mo avec les feuilles utiles masquées (et pas de tableau au doux nom de "Tableau_mrs_vs_00658_APPLCOMMON_PRD_OperationPlanDB") 🙄
... Et il ne contient pas d'infos confidentielles, au moins??

[Edit:] Allons bon, voilà que le fichier et le message de l'auteur ont disparu (c'est vrai qu'on peut apparemment supprimer ses messages, maintenant!?) ... Dommage pour ceux qui passeront par ici plus tard!

Chez moi, ceci semble fonctionner:

  ActiveSheet.ListObjects("Tableau_mrs_vs_00658_APPLCOMMON_PRD_OperationPlanDB"). _
  Range.AutoFilter Field:=9, Criteria1:=Split(Replace(liste_n, Chr(34), ""), ","), Operator _
  :=xlFilterValues

 

[n_xeon]

Ca marche, merci beaucoup !
Si je comprends bien la fonction replace enlève les " que je me suis escrimé à ajouter...
Mais quid de Split ? Ca fait quoi cette fonction ?

Merci encore !

 

[Modeste]

Bonsoir,

Mais quid de Split ? Ca fait quoi cette fonction ?

L'aide t'aura peut-être fourni la réponse avant moi ... Split renvoie un tableau composé d'autant d'éléments qu'il y avait de parties -dans la chaîne de départ- séparées par un certain délimiteur:
Si liste_n contient, au départ "AFE", "AMO", "JPB", alors Split(liste_n, ",") donne un tableau de 3 éléments (indices 0, 1, 2) contenant chacun une des trois parties de départ qu'une virgule séparait.