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

Clark · 3 Octobre 2005

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 · 3 Octobre 2005

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 · 3 Octobre 2005

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 · 3 Octobre 2005

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

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

Clark

Guest

Robert

XLDnaute Barbatruc

Clark

Guest

Robert

XLDnaute Barbatruc

Discussions similaires