recherche et compare [Résolu]

[moi244]

Bonjour,
J'ai un UserForm1 avec un Combobox1 et un TextBox1, j'aimerais chercher dans la colonne A ce qui est dans le combobox1, une fois trouvé, jaimerais comparer ce qui est dans le TextBox1 avec la cellule à droite (B) du ComboBox1.
Exemple: cherche ComboBox1 dans la colonne A; réponse : A5
Vérifies si texteBox1 = à droite de la cellule trouvée précédemment B5.
Merci.

[jfontaine]

Bonjour,

Étudies ce code qui devrait répondre à ton besoin

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim rg As Range
 
'Cherche la valeur de la Combobox1 dans la colonne A
Set rg = Worksheets("feuil1").Range("A:A").Find(what:=Combobox1.Texte, lookat:=xlWhole)
 
'Si trouvé
If Not rg Is Nothing Then
    'Test la valeur de la textbox
    If rg.Offset(0, 1).Value = Tetxbox1.Text Then
        MsgBox "Textbox OK"
    Else
        MsgBox "Textbox KO"
    End If
Else
    MsgBox "Pas trouvé"
End If

[moi244]

Merci beaucoup!