Discussion :

[pokemonsupeur]

Bonjour,
voici mon problème :
Je voudrais utiliser la fonction "trier et filtrer" de Excel via un code VBA, et avec les critère suivant :
une liste de personne (écrite sous Excel) que je récupère grâce au premier code que je vous montre

je récupère donc la liste de cette manière (je met des " pour correspondre au code VBA crée par le générateur de macro (je pars de cela avant de coder pour comprendre comment faire))

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
liste = """" & ActiveCell & """"
 
    ActiveCell.Offset(0, 2).Select
 
    While ActiveCell <> ""
        liste = liste & ", " & """" & ActiveCell & """"
        ActiveCell.Offset(0, 1).Select
    Wend

Puis j'essaye de trier avec le code suivant :

Code :

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

1
2
3
4
5
6
 
 
Application.Workbooks("modele_RC_NC_en_cour").Worksheets("extraction").Activate
    ActiveSheet.Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I").AutoFilter Field:=9, Criteria1:=Array( _
        liste), _
        Operator:=xlFilterValues

J'espère ne pas vous avoir perdu :/
(j'ai utiliser le créateur de macro pour avoir une idée de comment faire mais quelque chose doit m'échapper)
Merci d'avance pour votre temps ^^

[Menhir]

As-tu vérifié le contenu de la variable liste avant qu'elle soit utilisée dans l'Autofilter ?

[pokemonsupeur]

Déjà merci de ta réponse rapide ^^
Et oui avec une MsgBox , la variable "liste" contient

Code :

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

1
2
 
"Jean XX", "Alex YY", "Emi ZZ", "Nikola WW"

pour expliquer pourquoi je procède de cette manière je voudrais refaire le code crée par l'enregistreur de macro mais avec mes données, je donne ce code au cas ou.

Code :

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

1
2
3
4
 
ActiveSheet.Range("$A$1:$I$1281").AutoFilter Field:=9, Criteria1:=Array( _
         "Allan XX", "Adeline YY", "Francois ZZ"), _
        Operator:=xlFilterValues

[Menhir]

Array( "Allan XX", "Adeline YY", "Francois ZZ") n'est pas une chaîne de caractères. C'est une liste.

[pokemonsupeur]

Ha ! oui je n'y avais pas penser ^^ merci beaucoup

je vérifie ça demain (ce soir je ne peut pas), je tiens au courant si ça marche

Je continu a réfléchir au cas ou il y aurait autre chose

[pokemonsupeur]

Me revoilà,
J'ai remplacer la chaîne de caractère par un liste comme tu me l'a proposer

[code]
While ActiveCell <> ""
a = a + 1
texte = ActiveCell
liste(a) = "=*" & ActiveCell & "*"
ActiveCell.Offset(0, 1).Select
MsgBox (liste(a))
Wend
[code]
Mais j'ai un nouveau problème avec la liste maintenant, je ne sais pas comment dire a la formule que je veut qu'i prenne toute ma liste

quand je lui donne par exemple

[code]

Application.Workbooks("modele_RC_NC_en_cour").Worksheets("extraction").Activate
ActiveSheet.Range("A:A,B:B,C:C,D,E:E,F:F,G:G,H:H,I:I").AutoFilter Field:=9, Criteria1:=Array( _
liste(2)), _
Operator:=xlFilterValues

[code]

Le programme est content et il tri mon tableau par la donnée en 3eme place dans la liste : liste(2)
Mais j'aimerai qu'il prenne tout les elements de ma liste

j'ai essayer avec : liste liste() liste(0 TO 5)
et j'ai essayer de mettre une fonction ( For i to 5 ____ Next i ) mais comme je le pensais il ne prend pas de fonction ( ce qui me paraît logique mais on ne sais jamais)


Je viens d'essayer en mettant a la mains liste(0) , liste(1) etc
Le programme ne marche que quand il y a soit un soit deux entrer ( si je met plus de deux fois liste(0) etc il ne fonctionne plus )