Macro pour Rechercher une valeur dans une colonne

[BOCARAMEL]

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

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

 

[xhudi69]

Re : Macro pour Rechercher une valeur dans une colonne

Bonjour BOCARAMEL, le Forum,

un essais si j'ai compris

@+

 

[BOCARAMEL]

Re : Macro pour Rechercher une valeur dans une colonne

Merci Beaucoup xhudi69

je suis une quiche
j'avais pas percuter (select et activecell)

bon week-end xhudi69

 

[xhudi69]

Re : Macro pour Rechercher une valeur dans une colonne

Re bonjour BOCARAMEL, le Forum,

Une quiche au CARAMEL, faut que j'essaie

Bon week-end à toi

 

[BOCARAMEL]

Re : Macro pour Rechercher une valeur dans une colonne

Re,

J'ai encore besoin d'aide

Effectivement cela fonctionne trés bien quand les cellules contiennent un nom (toto, riri, fifi.......)

Moi j'ai des nombres (15462, 45678, 2134......) dans la colonne (b)

et la ça fonctionne plus

Merci

 

[xhudi69]

Re : Macro pour Rechercher une valeur dans une colonne

Re bonjour BOCARAMEL

et voilà

@+

 

[BOCARAMEL]

Re : Macro pour Rechercher une valeur dans une colonne

encore parfait et merci xhudi69