Discussion :

[whisper]

bonjour,

j'ai un tout petit problème , j'arrive pas à parcourir la liste d'un datacombo.
voila le code que j'utilise:
IsInListe = False
For i = 0 To dataCombo1.listcount - 1 ' listcount n'est une proprité de datacombo
If Text3.Text = dataCombo1.listcount(i) then
IsInListe = True
Exit For
End If

rmq: j'aimerai savoir si dans le datacombo1 une valeur egal à celle de text3.text

merci d'avance de vote aide.

[Danyel]

Tout d'abord, pense a utiliser la balise code pour tous les codes.
Sinon pour ton code, il manque le next du i

[quentincabo]

Bonjour,
ton test devrai ressembler à cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If (CBbox.Items.Item(i) = 28) Then
          MsgBox("ok")
End If

tu dois le mettre dans ta boucle

Bonne chance

[quentincabo]

Tu dois remplacer le 28 par textbox3.text et cbbox par le nom de ta combo

[whisper]

Merci pour vos réponse

Je n’arrive pas à trouver la solution.
En fait il s’agit d’un datacombo et non pas un combobox
L’algo peut être comme suit :
Dim i,n
Liste Booléen
Liste=false
Pour i allant de 1 à datacombo(n)
Si text3.text=datacombo(i) alors
Liste=true
Fin pour
Fin si

n: le dernier ligne de la liste de datacombo.
pour plus de detail le datacombo ne dispose pas des proprités items et listcount.
Résultat : si le contenu de text3.text existe dans la liste de datacombo alors
Liste=true
Sinon
Liste=false

Merci pour vos réponses

[quentincabo]

Bonjour,
Tu n'aurais pas oublier le tag resolu??

[olsimare]

Bonjour.

Tout d'abord, pense a utiliser la balise code pour tous les codes.

Et c'est quoi un datacombo ? C'est un control perso non ?

Cdt.

[Danyel]

Et c'est quoi un datacombo ? C'est un control perso non ?

Quoi ?
Je vois pas le rapport avec la balise code mon cher