BOCARAMEL
XLDnaute Occasionnel
Bonjour à tous,
J'essaye de monter une macro qui depuis un userform recherche une valeur dans la colonne (B)
Je n'arrive pas à rendre la cellule ACTIVE correspondante à ma recherche
Merci de votre aide
J'essaye de monter une macro qui depuis un userform recherche une valeur dans la colonne (B)
Je n'arrive pas à rendre la cellule ACTIVE correspondante à ma recherche
Code:
Private Sub CommandButton2_Click()
Sheets("VL").Select
Dim x As Integer
Dim derniere_ligne As Integer
Dim valeur As Variant
valeur = UserForm2.TextBox13.Value ' valeur cherchée
derniere_ligne = Range("A65536").End(xlUp).Row 'valeur de la derniere ligne de la colonne A
For x = 1 To derniere_ligne Step 1
If Range("b" & x) = valeur Then
Range("b" & x).ActiveCell
End If
Next x
End Sub
Merci de votre aide