VBA : stoker (et alimenter) un array ?

[Charly88]

Bonjour, comment faire pour stoker une array ?

J'ai cette ligne de code :
ActiveSheet.Range("$E$5:$T$579").AutoFilter Field:=8, Criteria1:=Array("truc", "machin", "bazar"), Operator:=xlFilterValues


Je souhaite faire une variable du contenu de la parenthèse et donc stocker dans une variable la ligne ci-dessous :
"truc", "machin", "bazar"

Le nombre d'éléments dans l'array peut être variable... Et je me pose également la question de la déclaration : i = "truc", "machin", "bazar" plante logiquement

Merci d'avance.

 

[Pierrot93]

Re : VBA : stoker (et alimenter) un array ?

Bonjour,

A ma connaissance, tu ne pourras passer qu'une seule valeur dans l'argument "Criteria1" du filtre automatique... ton "array" provoquera une erreur vba...

bon après midi
@+

 

[Charly88]

Re : VBA : stoker (et alimenter) un array ?

Non là-dessus, pas de souci, cela passe. J'ai obtenu la ligne de code en enregistrant un filtrage de ce type.

 

[Pierrot93]

Re : VBA : stoker (et alimenter) un array ?

Re

regarde le code ci-dessous :

Dim t() As Variant
t = Array("chien", "chat", "poule")

mais je serais curieux de voir le fonctionnement final de ceci....

 

[CBernardT]

Re : VBA : stoker (et alimenter) un array ?

Bonjour Charly88, Pierrot93,

En utiliser une syntaxe de ce style, SANS GARANTIE :

1- Déclarer la variable :

Dim Valeur as string

2- La définir :

Valeur = Cstr("truc" & "," & "machin" & "," & "bazar")

3- Criteria1:=Array(Valeur)

 

[Pierrot93]

Re : VBA : stoker (et alimenter) un array ?

Re,
bonjour Bernard
fonctionne en l'état :

Dim valeur As String
valeur = CStr("truc") & "," & CStr("machin") & "," & CStr("bazar")
Range("J1").AutoFilter field:=2, Criteria1:=Array(valeur)

mais envoie vers le filtre un seul critère ainsi libellé :

truc,machin,bazar

A voir si c'est ce que recherche Charly....

 

[Hervé]

Re : VBA : stoker (et alimenter) un array ?

bonjour les copains

chez moi ceci fonctionne :

Dim t
t = Array("CHIEN", "MAURICE", "POULE")
ActiveSheet.Range("$A$1:$B$15").AutoFilter Field:=2, Criteria1:=t, Operator:=xlFilterValues

a plus

 

[Pierrot93]

Re : VBA : stoker (et alimenter) un array ?

Re, bonjour Hervé🙂,

Aarf, chez moi sous 2003 la constante "xlFilterValues" n'est pas reconnue.... sans doute es tu sous 2007 ou + ...

bon après midi
@+

 

[Hervé]

Re : VBA : stoker (et alimenter) un array ?

re

oui en effet xl2007 pour moi

a plus

 

[Charly88]

Re : VBA : stoker (et alimenter) un array ?

Je pense qu'on le tient mais je précise le besoin, je récupère ma liste "chien", "chat", "poule" d'une cellule dont le contenu est actuellement :
=chien,chat,poule

Voyez-vous un moyen pour déclarer l'array t= en mettant les guillemets où nécessaire ?
Soit : au début, avant et après chaque virgule et enfin à la fin.
... peut-être qu'avec un replace... je tente.

 

[Charly88]

Re : VBA : stoker (et alimenter) un array ?

Champs8 = Replace(Range("K7").Value, ",", "", "")

Plantage : Type mismatch.
Lui faire identifier la virgule n'est pas gênant mais la remplacer guillemet virgule guillemet, je bloque :-/

 

[Pierrot93]

Re : VBA : stoker (et alimenter) un array ?

Re,

j'ai du mal à comprendre... c'est quoi le contenu de tes cellules ? et tu veux filtrer sur qul critére ? as tu la version 2007 ? un petit fichier avec résultat attendu serait bien...

@+

 

[Charly88]

Re : VBA : stoker (et alimenter) un array ?

Pardon, donc je reprends :
- 2007
- Sur une feuille, j'ai mes critères contenus dans des cellules
- Sur une autre feuille, je fais mon classement en fonction des critères récupérés.

Jusque là je n'avais classé qu'avec "chien" ou "chat" ou "poule" que je trouve dans la cellule K7 avec pour contenu :
=chien

Là je veux tenter de classer avec les 3 élémements, avec K7 qui contient :
=chien,chat,poule

Problème : comment passer de 'chien,chat,poule' à "chien","chat","poule" ?

 

[Pierrot93]

Re : VBA : stoker (et alimenter) un array ?

Re

essaye ainsi :

Dim t As Variant
t = Split(Range("K7").Value, ",")

 

[Charly88]

Re : VBA : stoker (et alimenter) un array ?

Dim t As Variant
t = Split(Range("K7").Value, ",")

Toujours pas, le filtre ne se fait que sur le dernier élément.


Juste avant que tu ne postes, j'étais arrivé à mon résultat théorique avec :
Replace(Range("K7").Value, ";", Chr(34) & "," & Chr(34))

Seulement avec t = array(Replace(Range("K7").Value, ";", Chr(34) & "," & Chr(34)))
t n'est pas correctement compris ensuite :-/