Test de la présence d'une valeur dans une combo

[Clark]

Bonjour à tout le monde,

une petite question pour commecer la semaine!

J'ai dans un userform, une combo (liste déroulante). Lorsque je lui passe une valeur avec cette syntaxe:

Liste.value='toto'

si 'toto' ne fait pas partis de la liste j'ai une erreur 380. Je voulais savoir s'il existe une syntaxe permettant de tester auparavant si 'toto' est bien dans la liste.

Merki pour votre attention
Clark

 

[Robert]

Bonjour Clark, bonjour le forum,

Ce petit bout de code devrait te convenir :

'...
'boucle sur tous les éléments de la ComboBox
For x = 0 To ComboBox1.ListCount - 1
'condition : Si l'élément de la ComboBox = 'Toto'
If ComboBox1.List(x) = 'Toto' Then
GoTo suite 'va à la balise 'suite'
End If 'fin de la condition
Next x
Exit Sub 'sort de la procédure (si la condition n'est pas vérifiée)

suite: 'balise
'le reste de ton code...

 

[Clark]

Salut Robert, elle me convient mais j'espérais qu'il existait peut-être une fonction traitant ce problème! Un truc du genre if Combobox.Value('toto').Exist=true then...

Autrement j'étais partis sur une gestion du type on error goto...


En tout cas, merci pour ton aide!
Clark

🙂

 

[Robert]

Bonjour Clark, bonjour le forum,

J'avais mal compris car tu peux bien sûr faire :

If ComboBox1.Value = 'Toto' Then GoTo suite
Exit Sub

suite:
'la suite de ton code