Chercher dans une colonne en VBA (Ex : Méthode Find)

Salut le forum,

j'aimerais savoir comment retrouver une valeur dans une colonne en VBA, la comparer à une valeur saisie dans un textbox et vérifier la valeur adjacente dans une autre colonne et la comparer à la valeur saisie dans un autre textbox.

Par exemple, En colonne A de la feuille "Feuil1" j'ai des noms d'utilisateurs. En colonne B de la même feuille, j'ai le mot de passe rattaché à l'utilisateur de la colonne A.

Dans un USF, j'ai deux textbox. Le premier demande le nom de l'utilisateur et le deuxième, son mot de passe. En appuyant sur bouton OK, si les données sont valables et compatibles, passage au USF suivant sinon, msgbox d'erreur.

Merci pour votre aide.

Salut le forum

Eric voilà un code qui correspond un peu à ta demande, je te laisse l'adaptation finale...

Sub TrouverVoisin()

Dim Cellule As Range
Dim Art As String

Art = InputBox("Article à rechercher")

With ActiveSheet.Range("A1:A20")
    Set Cellule = .Find(Art, Lookat:=xlWhole)
    If Not Cellule Is Nothing Then
        firstAddress = Cellule.Address
        Do
            MsgBox Cellule.Offset(0, 1).Value
            Exit Sub
            Set Cellule = .FindNext(Cellule)
        Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
    End If
End With
    MsgBox "Rien trouvé"
End Sub

A+

Mytå