Réponse acceptée !
Salut,
voilà ce que je te propose, tu as besoin d'un Listbox et 2 zones de saisie(un textbox indéxé)
Option Explicit
Dim SVar As String
Private Sub Command1_Click()
' Variables de travail
Dim i As Integer
' Vérifie que toutes les zones soit remplies(TextBox indéxés)
For i = 0 To 1
If Text1(i).Text = vbNullString Then
MsgBox "Vous devez remplir toutes les zones de text !"
Exit Sub
End If
Next i
' Vérifie que l'user à bien choisi un item dans List1
If SVar = vbNullString Then
MsgBox "Vous devez séléctionnez un élément dans la List1 !"
Exit Sub
End If
End Sub
Private Sub Form_Load()
' Variables de travail
Dim i As Integer
' Remplie la List1
For i = 0 To 10
List1.AddItem "toto"
Next i
End Sub
Private Sub List1_Click()
SVar = List1.Text
End Sub
Note : On peux faire une sub, mais disont que là c'est simple pour comprendre
A+
Exploreur
Linux a un noyau, Windows un pépin