Zone de liste non modifiable et ListBox
cs_nicolasheurtevin
Messages postés
88
Date d'inscription
samedi 8 février 2003
Statut
Membre
Dernière intervention
29 août 2006
-
17 oct. 2003 à 15:13
cs_noe Messages postés 38 Date d'inscription mardi 28 mai 2002 Statut Membre Dernière intervention 24 décembre 2003 - 17 oct. 2003 à 15:34
cs_noe Messages postés 38 Date d'inscription mardi 28 mai 2002 Statut Membre Dernière intervention 24 décembre 2003 - 17 oct. 2003 à 15:34
A voir également:
- Liste de courses modifiable word
- Parcourir une liste java - Forum Java
- Remplir une liste de listes ✓ - Forum Java
- Séparateur de liste vba - Forum Visual Basic 6
- Php word ✓ - Forum PHP
- Delphi word to string - Forum Delphi / Pascal
1 réponse
cs_noe
Messages postés
38
Date d'inscription
mardi 28 mai 2002
Statut
Membre
Dernière intervention
24 décembre 2003
17 oct. 2003 à 15:34
17 oct. 2003 à 15:34
Salut
j'ai mis ce code dans mon application
Dim i, o, Contenu_Nom
'Nom dans la liste
If Trim(Nom <> "") Then
For i = o To Nom.ListCount - 1
If Nom = Nom.List(i) Then
Contenu_Nom = "OK"
End If
Next
If Contenu_Nom = "" And Nom.Text <> "" Then
MsgBox "Pour le nom vous devez choisir un nom dans la liste", vbExclamation + vbOKOnly, "Problème dans la saisie"
Nom.SetFocus
Exit Sub
End If
End If
j'espere avoir repondu a ton attente
bonne prog
j'ai mis ce code dans mon application
Dim i, o, Contenu_Nom
'Nom dans la liste
If Trim(Nom <> "") Then
For i = o To Nom.ListCount - 1
If Nom = Nom.List(i) Then
Contenu_Nom = "OK"
End If
Next
If Contenu_Nom = "" And Nom.Text <> "" Then
MsgBox "Pour le nom vous devez choisir un nom dans la liste", vbExclamation + vbOKOnly, "Problème dans la saisie"
Nom.SetFocus
Exit Sub
End If
End If
j'espere avoir repondu a ton attente
bonne prog