[VBA] Comparer variable avec un tableau

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 14 Avril 2010

• #2

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

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 14 Avril 2010

• #3

Re : [VBA] Comparer variable avec un tableau

Salut BOISGONTIER,

Compliqué mais ca me va !

Merci.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Avril 2010

• #4

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 14 Avril 2010

• #5

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 14 Avril 2010

• #6

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

 

Vote positif 0 Vote négatif