Faire des recherches dans la liste "MSFlexGrid1"
accent19811
Messages postés
149
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'ai une liste contient des données, mais j'ai fait un code de rechercher dans la liste.
je vous passe le rechercher Entrée : ( TEXT1.TEXT et Liste,)
Voir :
TEXT1.TEXT = "P1482"
Liste :
-------------------------------------------------------
N°ARTICLE|Prix TTC
-------------------------------------------------------
P1122------|500.00
P1144------|400.00
P1482------|500.00
P3366------|600.00
P8855------|700.00
P9955------|200.00
P4411------|100.00
P1548------|900.00
------------------------------------------------------
Mon code VB , si le numéro d'article (TEXT1.TEXT) existe dans La Liste s'affiche "OUI"
dans la text2.text sinon s'affiche "NON"
Mais ce code marche pas !!!!!!!!!!!!!!!!!!!!!!
j'ai une liste contient des données, mais j'ai fait un code de rechercher dans la liste.
je vous passe le rechercher Entrée : ( TEXT1.TEXT et Liste,)
Voir :
TEXT1.TEXT = "P1482"
Liste :
-------------------------------------------------------
N°ARTICLE|Prix TTC
-------------------------------------------------------
P1122------|500.00
P1144------|400.00
P1482------|500.00
P3366------|600.00
P8855------|700.00
P9955------|200.00
P4411------|100.00
P1548------|900.00
------------------------------------------------------
Mon code VB , si le numéro d'article (TEXT1.TEXT) existe dans La Liste s'affiche "OUI"
dans la text2.text sinon s'affiche "NON"
If TEXT1.Text <> "" Then
TEXT2.Text = ""
For i = 1 To MSFlexGrid1.Rows - 1
If MSFlexGrid1.TextMatrix(i, 0) = TEXT1.TEXT Then
TEXT2.TEXT = "OUI"
ElseIf MSFlexGrid1.TextMatrix(i, 0) <> TEXT1.TEXT Then
TEXT2.TEXT = "NON"
End If
Next I
End If
Mais ce code marche pas !!!!!!!!!!!!!!!!!!!!!!
A voir également:
- Faire des recherches dans la liste "MSFlexGrid1"
- Liste déroulante excel - Guide
- Liste code ascii - Guide
- Liste des appareils connectés - Guide
- Liste déroulante en cascade - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
2 réponses
yg_be
Messages postés
23437
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 587
bonsoir, "marche pas", message, d'erreur résultat inattendu?
petre-être ainsi:
petre-être ainsi:
TEXT2.Text = "NON"
For i = 1 To MSFlexGrid1.Rows - 1
If MSFlexGrid1.TextMatrix(i, 0) = TEXT1.TEXT Then
TEXT2.TEXT = "OUI"
End If
Next I
End If