Recherche si 2 valeurs sont sur la même ligne à partir d'un userform

Bonsoir,

Dans mon fichier, je cherche à réaliser un système d'identification vraiment très très simplifié. En gros, je souhaiterais que lorsque je rentre mon adresse mail et numéro de téléphone sur le userform, cela vérifie que ces derniers existent bien dans mon tableau et que surtout que les 2 informations sont exactement sur la même ligne.

Pour l'instant j'ai essayé avec des Find mais le soucis est que cela engendre des bugs comme le fait qu'on peux entrer dans le excel en ayant l'adresse mail d'une personne et le numéro d'une autre, et je ne vois pas comment réaliser le fait de savoir si les 2 valeurs sont sur la même ligne et du coup me permettre de savoir quel profil est utilisé.

Merci d'avance

Bonjour

Ci joint ma solution

A+ François

Bonjour à tous,

une autre solution:

Private Sub CommandButton1_Click()
Dim sel As Range, sel2 As Range

    Set sel = Sheets("Utilisateur").Cells.Find(Me.TextBox1.Value, , xlValues, xlWhole)
    Set sel2 = Sheets("Utilisateur").Cells.Find(Me.TextBox2.Value, , xlValues, xlWhole)

    If sel Is Nothing Then
        MsgBox "Utilisateur inexistant ou mot de passe erroné"
    Else
        If sel2 Is Nothing Then
            MsgBox "Utilisateur inexistant ou mot de passe erroné"
        Else
            If sel.Row = sel2.Row Then ' si sur même ligne
                MsgBox "Bienvenue !"
                Sheets("Menu").Range("F3").Value = TextBox1.Value
                Unload Me
                Sheets("Menu").Activate
            Else
                MsgBox "Utilisateur inexistant ou mot de passe erroné"
            End If
        End If
    End If

End Sub

ou bien

Private Sub CommandButton1_Click()
Dim sel As Range, sel2 As Range

    Set sel = Sheets("Utilisateur").Cells.Find(Me.TextBox1.Value, , xlValues, xlWhole)
    Set sel2 = Sheets("Utilisateur").Cells.Find(Me.TextBox2.Value, , xlValues, xlWhole)

    If sel Is Nothing Then
        MsgBox "Utilisateur inexistant ou mot de passe erroné"
        Exit Sub
    End If
    If sel2 Is Nothing Then
        MsgBox "Utilisateur inexistant ou mot de passe erroné"
        Exit Sub
    End If
    If sel.Row = sel2.Row Then ' si sur même ligne
        MsgBox "Bienvenue !"
        Sheets("Menu").Range("F3").Value = TextBox1.Value
        Unload Me
        Sheets("Menu").Activate
    Else
        MsgBox "Utilisateur inexistant ou mot de passe erroné"
    End If

End Sub

A+

Bonjour

Merci beaucoup FanFan38 et AlgoPlus vos solutions marchent parfaitement !

A bientôt