[VBA] Comparer variable avec un tableau

suistrop · 14 Avril 2010

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

Code:

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

Je n'ai pas envie de faire :

Code:

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 · 14 Avril 2010

Re : [VBA] Comparer variable avec un tableau

Bonjour,

Code:

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

JB

suistrop · 14 Avril 2010

Re : [VBA] Comparer variable avec un tableau

Salut BOISGONTIER,

Compliqué mais ca me va !

Merci.

pierrejean · 14 Avril 2010

Re : [VBA] Comparer variable avec un tableau

bonjour suistrop

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

Code:

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

D'autre part il vaut mieux

Code:

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 · 14 Avril 2010

Re : [VBA] Comparer variable avec un tableau

pierrejean à dit:
bonjour suistrop

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

Code:

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

D'autre part il vaut mieux

Code:

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 :

Code:

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

a+

suistrop · 14 Avril 2010

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...

[VBA] Comparer variable avec un tableau

suistrop

XLDnaute Impliqué

BOISGONTIER

XLDnaute Barbatruc

suistrop

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

mromain

XLDnaute Barbatruc

suistrop

XLDnaute Impliqué

Discussions similaires