Discussion :

[fidoust]

bonjour à tous,

j'essaye depuis un certain temps de réaliser un filtre par une variable qui contient plusieurs variables...

criteria1:=array(variable), avec variable qui est une composition de plusieurs variables.

Je vous ai joins un fichier excel avec ma problématique.
Le but serait d'afficher seulement les termes bonjour, voiture et méditerranée dans une variable (que l'on va appeler variable) et que j'appelle lorsque je fais mon filtre.

Merci de votre aide.

[mercatog]

Code :

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

1
2
3
4
Dim Tb
 
Tb = Array("bonjour", "méditerranée", "voiture")
Feuil1.Range("B1:B20").AutoFilter Field:=1, Criteria1:=Tb, Operator:=xlFilterValues

[fidoust]

Bonjour,

Je précise que mon but est de mettre une variable dans Array.
Merci tout de même.

[Philippe Tulliez]

Bonsoir,

Bonjour,
Je précise que mon but est de mettre une variable dans Array.
Merci tout de même.

La proposition faites par Mercatog utilise un Array

[fidoust]

Bonsoir,

sa réponse remplaçait le array.

Je souhaite mettre une variable entre les parenthèse de array, plus précisement : Array(variable) avec variable qui comprend par exemple boujour, méditerranée ou d'autres valeurs.

Ma question repose sur la composition de variable pour que lorsque je lance le array(variable) Excel comprenne les différents mots que je souhaites filtrer.

cordialement,

[mercatog]

Qu'est ce que tu as dans variable? et quel est sont type?

Tu dis

avec variable qui est une composition de plusieurs variables

Ensuite

avec variable qui comprend par exemple boujour, méditerranée ou d'autres valeurs.

Il t'est difficile d'être plus clair dans ta formulation de la demande?

[Philippe Tulliez]

Bonjour,

Bonsoir,
sa réponse remplaçait le array.
Je souhaite mettre une variable entre les parenthèse de array, plus précisement : Array(variable) avec variable qui comprend par exemple boujour, méditerranée ou d'autres valeurs.
cordialement,

Un exemple ci-dessous mais qui n'ajoute rien à la réponse de Mercatog.

Code :

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

1
2
3
4
5
6
7
 Dim myTable, Elem As Integer
 Dim Var1 As String, Var2 As String
 Var1 = "Bonjour": Var2 = "Hello"
 myTable = Array(Var1, Var2)
 For Elem = 0 To UBound(myTable)
  MsgBox myTable(Elem)
 Next