Recherche dans une liste
thburg
Messages postés
1
Date d'inscription
vendredi 10 janvier 2003
Statut
Membre
Dernière intervention
13 janvier 2003
-
13 janv. 2003 à 09:08
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 13 janv. 2003 à 20:17
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 13 janv. 2003 à 20:17
A voir également:
- Recherche dans une liste
- Isbn recherche - Forum Visual Basic
- Parcourir une liste java - Forum Java
- Barre de recherche php ✓ - Forum PHP
- Barre de recherche - Forum PHP
- Moteur de recherche PHP - MySQL ✓ - Forum PHP
2 réponses
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
2
13 janv. 2003 à 20:15
13 janv. 2003 à 20:15
Dim indexListe as integer
Dim débutMot as string
Dim longueurMot as integer
débutMot = "Mai"
longueurMot = Len(débutMot)
For indexListe = 0 To MaListe.ListCount -1
If Ucase(Left(MaListe.List(indexListe), longueurMot) = Ucase (débutMot) Then
'CODE LORSQU'ON A TROUVE
(...)
Exit For
End If
Next
'SI ON ARRIVE ICI, AUCUN MOT NE CORRESPOND AU CRITERE DE RECHERCHE
Dim débutMot as string
Dim longueurMot as integer
débutMot = "Mai"
longueurMot = Len(débutMot)
For indexListe = 0 To MaListe.ListCount -1
If Ucase(Left(MaListe.List(indexListe), longueurMot) = Ucase (débutMot) Then
'CODE LORSQU'ON A TROUVE
(...)
Exit For
End If
Next
'SI ON ARRIVE ICI, AUCUN MOT NE CORRESPOND AU CRITERE DE RECHERCHE
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
2
13 janv. 2003 à 20:17
13 janv. 2003 à 20:17
Oups... Mon commentaire après la boucle est erroné puisque je fais un Exit For, mieux vaudrait un Exit Sub ou Exit Function en fonction des besoins du code.
