[VBA] Comparer variable avec un tableau

[suistrop]

Bonjour,

J'aurai voulu savoir si il existe une fonction sous VBA permettant de rechercher si une chaine de caractere se trouve à l'intérieur d'un tableau.
Comme ci dessous

if "toto" in array("tata","tutu","titit") then top = 1

Je n'ai pas envie de faire :

tableau = array("tata","tutu","titit") 
for z = ubound(tableau) to ubound(tableau)
if "toto" = tableau(z) then top = 1
next z

Merci d'avance

 

[BOISGONTIER]

Re : [VBA] Comparer variable avec un tableau

Bonjour,

If IsError(Application.Match("toto", Array("tata", "tutu", "titit", "toto"), 0)) Then
  MsgBox "ko"
Else
  MsgBox "ok"
End If

JB

 

[suistrop]

Re : [VBA] Comparer variable avec un tableau

Salut BOISGONTIER,

Compliqué mais ca me va !

Merci.

 

[pierrejean]

Re : [VBA] Comparer variable avec un tableau

bonjour suistrop

Si le tableau n'est pas utilisé par ailleurs:

laliste="tata;tutu;titit;"
if instr(laliste,"toto" & ";" )<> 0 then top=1

D'autre part il vaut mieux

tableau = array("tata","tutu","titit") 
for z = [COLOR=blue]lbound[/COLOR](tableau) to ubound(tableau)
if "toto" = tableau(z) then top = 1
next z

Edit : Salut JB

 

[mromain]

Re : [VBA] Comparer variable avec un tableau

bonjour suistrop

Si le tableau n'est pas utilisé par ailleurs:

laliste="tata;tutu;titit;"
if instr(laliste,"toto" & ";" )<> 0 then top=1

D'autre part il vaut mieux

tableau = array("tata","tutu","titit") 
for z = [COLOR=blue]lbound[/COLOR](tableau) to ubound(tableau)
if "toto" = tableau(z) then top = 1
next z

Edit : Salut JB

bonjour suistrop, pierrejean, JB,

Une autrre solution à partir de la première solution proposée par pierrejean :

tableau = array("tata","tutu","titit")
if instr(Join(tableau, ";"),"toto" & ";" )<> 0 then top=1

a+

 

[suistrop]

Re : [VBA] Comparer variable avec un tableau

Salut pierrejean,

Tu laisses rien passé, meme pas le droit de faire une erreur en tapant un code bidon

Ton idée est pas mal pour comparer. Je me suis pas encore pencher sur les différentes méthodes de comparaison en VBA...