I
ISA
Guest
bonjour à tous,
encore une petite question sur mon projet: pourquoi il m'ouvre la msgbox 'erreur d'identification' alors que les identifiants sont bons?
Private Sub CmdButtonok_Click()
fin = 4
For i = 2 To fin
If boite_utilisateur = Range('a' & i).Value And boite_mot_de_passe = Range('b' & i).Value Then
MsgBox 'utilisateur_identifié'
Else: MsgBox 'erreur_identification'
End If
Next
End Sub
merci
à bientôt
encore une petite question sur mon projet: pourquoi il m'ouvre la msgbox 'erreur d'identification' alors que les identifiants sont bons?
Private Sub CmdButtonok_Click()
fin = 4
For i = 2 To fin
If boite_utilisateur = Range('a' & i).Value And boite_mot_de_passe = Range('b' & i).Value Then
MsgBox 'utilisateur_identifié'
Else: MsgBox 'erreur_identification'
End If
Next
End Sub
merci
à bientôt