Vérification d'un mot de passe lors d'une identification

J'ai trouvé cette solution pour la vérification du mot de passe :

Ben.. ça ne fait rien à part incrémenter la variable I tant que la cellule n'est pas vide...
ce qui , donc.. , semble correspondre à la recherche de la dernière ligne non vide d'une plage de cellule.. et donc .. aucun rapport avec l'éventuelle recherche d'un user Login/mot de pass.....

Par contre existe-t-il d'autres moyens
Pour chercher une valeur existante dans une feuille excel ?

Oui.. il existe la méthode FIND
Plus simple.... pas sûr .. plus efficace par contre !
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel


PS: Pour l'utilisation des balises de code... c'est TOUT le code qu'il faut mettre ENTRE les balises.. pas juste une mot ou une instruction...

Toi tu as écris ( par exemple ) :

While

Feuil2.Cells(i, 1) <> Empty
i = i + 1

Wend

Alors que tu aurais du avoir :

While Feuil2.Cells(i, 1) <> Empty
i = i + 1
Wend

Nb2 : Si tu regardes le lien que je t'avais donné à ce sujet.. il montre également comment CHOISIR le LANGAGE correspondant.. ( ici..pour le VBA .. tu prendras BASIC )

Mon problème de recherche du client dans la base de données est là

Dim i As Integer

n = 2    'j ai rajouté ça...
While Feuil2.Cells(n, 1) <> Empty
n = n + 1
Wend


For i = 2 To n 'On veut vérifier que le numéro client existe via feuil.2
If TextBox1 <> Feuil2.Cells(i, 1) Then
MsgBox ("Veuillez entrer un numéro correct")

ElseIf TextBox2 <> Feuil2.Cells(i, 5) Then 'Trouver mdp qui correspond au n° client de la feuil.2
MsgBox ("Veuillez entrer un mot de passe correct")

Else
 

End If

Next

Tu ne prend pas en compte les remarques que je te fais... à quoi bon continuer à t'aider .. hein ??

Enfin bon essayons encore...

Ce code là :

n = 2    'j ai rajouté ça...
While Feuil2.Cells(n, 1) <> Empty
n = n + 1
Wend

Doit être remplacé par :

n= Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row

et cette partie là :

For i = 2 To n 'On veut vérifier que le numéro client existe via feuil.2
If TextBox1 <> Feuil2.Cells(i, 1) Then
MsgBox ("Veuillez entrer un numéro correct")

ElseIf TextBox2 <> Feuil2.Cells(i, 5) Then 'Trouver mdp qui correspond au n° client de la feuil.2
MsgBox ("Veuillez entrer un mot de passe correct")

Else
 

End If

Next

Par ... l'utilisation de la méthode FIND ! (voir le lien que je t'ai donné !!!

Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String

'********* à adapter ***********
'affectation de valeurs aux variables :
    'on cherche le mot  qui se trouve dans la TextBox1
Valeur_Cherchee = TextBox1
    'dans la première colonne de la feuille active
Set PlageDeRecherche = Feuil2.Columns(1)
'*******************************
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
    MsgBox ("Veuillez entrer un numéro correct")
Else
    'ici, traitement pour le cas où la valeur est trouvée
   If TextBox2 <> Feuil2.Cells(Trouve.row, 5) Then 'Trouver mdp qui correspond au n° client de la feuil.2
     MsgBox ("Veuillez entrer un mot de passe correct")
   End if
End If
'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing

Je tente d'adapter ça alors, merci !!