Pages

XL 2003 Vérifier si valeur présente dans Listbox sujet

jeudi 30 janvier 2014




Bonjour,
Je bloque (une fois de plus :( ). J'ai trois objets différents :
- 1 Listbox (contenant des valeurs définies) - Name folders
- 1 zonne de texte (contenant une valeur a entrer manuellement) - Name f_name
- 1 bouton valider - Name btn_créer

Mon but est, aprés avoir valider, vérifier si la valeur entrer dans la zonne de texte est présente dans la listbox. si oui, afficher msgbox "oui", si non afficher msgbox "non". j'avais réalisé ce code a partir d'aide, mais il ne fonctionne pas :


Code :


Private Sub Btn_créer_Click()
    Dim i As Integer
   
    For i = 0 To Me.folders.ListCount - 1
        If Me.folders.ItemData(i) = Me.f_name.Value Then
            MsgBox "Oui": Exit For
        Else:
            MsgBox "Non": Exit For
        End If
    Next i
End Sub



Pourriez-vous m'aider svp?

Merci,
Bonne journée,
Fab.




Aucun commentaire:

Enregistrer un commentaire