M
maxime54
Guest
Bonjours,
Voilà je suis nouveau sur ce forum, ainsi que sur VBA
Je créer un programme permettant de s'identifier, puis ensuite de passer sur une deuxieme feuille/programme (userform)
Le problème commence dés le début de cette commande :
If TextBox1.Text = "maxime" And TextBox2.Text = "123" Then (maxime étant le login et 123 le mot de passe)
GoTo : (UserForm3) (userform3 étant la nouvelle feuille que je souhaite ouvrir)
End If
End Sub
mon erreur est apparemment une erreur de syntaxe, je ne comprend pas où?
Je joint mes lignes de codes complètes ci dessous pour ceux qui veulent plus d'infos ...
Private Sub CommandButton1_Click()
If TextBox1.Text = "maxime" = True Then
MsgBox ("LOGIN VALIDE")
Else
MsgBox ("LOGIN INVALIDE") 'login valide ou invalide
End If
If TextBox2.Text = "123" = True Then
MsgBox ("PASSWORD VALIDE")
Else
MsgBox ("PASSWORD INVALIDE") 'password valide ou invalide
End If
If TextBox1.Text <> "maxime" Or TextBox2.Text <> "123" Then
MsgBox ("ERROR!") 'erreur si mdp ou login erroné
End If
Fin_Proc:
If TextBox1.Text = "maxime" And TextBox2.Text = "123" Then
GoTo : (UserForm3)
End If
End Sub
Merci d'avance à vous
Cordialement,
Max 😉
Voilà je suis nouveau sur ce forum, ainsi que sur VBA
Je créer un programme permettant de s'identifier, puis ensuite de passer sur une deuxieme feuille/programme (userform)
Le problème commence dés le début de cette commande :
If TextBox1.Text = "maxime" And TextBox2.Text = "123" Then (maxime étant le login et 123 le mot de passe)
GoTo : (UserForm3) (userform3 étant la nouvelle feuille que je souhaite ouvrir)
End If
End Sub
mon erreur est apparemment une erreur de syntaxe, je ne comprend pas où?
Je joint mes lignes de codes complètes ci dessous pour ceux qui veulent plus d'infos ...
Private Sub CommandButton1_Click()
If TextBox1.Text = "maxime" = True Then
MsgBox ("LOGIN VALIDE")
Else
MsgBox ("LOGIN INVALIDE") 'login valide ou invalide
End If
If TextBox2.Text = "123" = True Then
MsgBox ("PASSWORD VALIDE")
Else
MsgBox ("PASSWORD INVALIDE") 'password valide ou invalide
End If
If TextBox1.Text <> "maxime" Or TextBox2.Text <> "123" Then
MsgBox ("ERROR!") 'erreur si mdp ou login erroné
End If
Fin_Proc:
If TextBox1.Text = "maxime" And TextBox2.Text = "123" Then
GoTo : (UserForm3)
End If
End Sub
Merci d'avance à vous
Cordialement,
Max 😉