Problème d'initialisation

Résolu/Fermé

AntoineDr Messages postés 15 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 11 janvier 2015 - 11 janv. 2015 à 11:57
AntoineDr Messages postés 15 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 11 janvier 2015 - 11 janv. 2015 à 14:09

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

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

A voir également:

1 réponse

Réponse 1 / 1

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
11 janv. 2015 à 14:07

Bonjour,
??????? TextBox1 = a
i = a + 1 d'ou sort ce a ???????????????

pour regarder les valeurs des variables de votre code, mettre un point d'arret sur la ligne end Sub, lancer le programme et apres l'arret passer le curseur de la souris sur les variables et vous verrez ce qui cloche

A+

AntoineDr Messages postés 15 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 11 janvier 2015
11 janv. 2015 à 14:09

J'avoue que je me suis un peu égaré ! Cela fonctionne dans le TextBox1 = a ...

Discussions similaires

L'initialisation du Rockstart Games Launcher a échoué

Échec de l'initialisation d'ouverture de session

erreur initialisation adobe reader

MSI Neuf Dragon center bloqué sur "waiting for sdk initialization"

certificat SCEP