Problème d'initialisation
Résolu
AntoineDr
Messages postés
15
Statut
Membre
-
AntoineDr Messages postés 15 Statut Membre -
AntoineDr Messages postés 15 Statut Membre -
Bonjour,
voici mon code pour rentrer dans mon programme client (j'ai au préalable ajouté des clients sur la feuille 2). Lorsque je rentre un numéro client correct et un mot de passe correct ca ne me marche pas..
Merci
voici mon code pour rentrer dans mon programme client (j'ai au préalable ajouté des clients sur la feuille 2). Lorsque je rentre un numéro client correct et un mot de passe correct ca ne me marche pas..
Merci
Private Sub Valider_Click()
Dim i As Integer
If Not IsNumeric(Right(TextBox1, 1)) Then
MsgBox ("Numéro client incorrect")
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
TextBox1 = a
i = a + 1
If Feuil2.Cells(i, 1) = "" Then
MsgBox ("Numéro client incorrect")
TextBox1 = ""
Else
If TextBox2 <> Feuil2.Cells(i, 5) Then
MsgBox ("Veuillez entrer un mot de passe correct")
TextBox2 = ""
Else
TextBox1 = ""
TextBox2 = ""
gestion.Show
End If
End If
End Sub
