XL 2016 Recherche code vba pour se déplacer en utilisant une recherche de valeur

[arnaudguerin]

Bonjour à tous,
qui peut m'aider pour un code vba malgré la période de vacances ?
je souhaiterai créer un bouton avec un code vba ayant la fonction recherche d'une valeur dans une plage afin que le curseur se déplace dessus automatiquement afin de m'éviter de scroller sans arrêt.
J'ai trouvé un code pour déplacer le curseur sur une cellule précise mais sans la fonction recherche ...
Merci d'avance

 

[pierrejean]

Bonjour Arnaud

Peux-tu poster un petit fichier exemple en précisant ton problème (plage a scruter ? , comparaison exacte ? ,...)

 

[arnaudguerin]

bonjour pierrejean,
ci-joint le fichier en exemple
merci de prendre du temps

 

[pierrejean]

Re

Vois si cela te convient:
Il faut sélectionner une ligne entre 5 et 14 (1 et 10 pour N° de prix et cliquer sur détail

 

[arnaudguerin]

super ça marche bien.
merci à toi !
si je souhaite l'appliquer à plus de ligne je change juste cette partie de code :
If Selection.Row > 4 And Selection.Row < 15 Then
en remplaçant la valeur 15 par une plus grande ?

encore merci

 

[pierrejean]

Re

Oui tu as compris !!!

 

[arnaudguerin]

Bonjour @pierrejean ,
est-il possible de modifier ce code VBA si les sous-détails sont sur une feuille différente ?
Voir le fichier exemple2.xls
Donc il faudrait que le code VBA puisse lire le numero de prix à droite (plage B5:B14) par exemple en selectionnant la cellule B12 puis cliquer sur le bouton de la macro pour se déplacer au bon sous-détail de prix (dans la feuille sous-détails à la cellule B86 dans ce cas précis). J'espere que c'est clair

UN GRAND MERCI !!!

 

[youky(BJ)]

Bonjour Arnaud,
Voici la macro detail
Bruno

Sub detail()
If Selection.Row > 4 And Selection.Row < 15 Then
x = Range("B" & Selection.Row)
lig = Application.Match(x, Feuil1.[B:B], 0)
If Not IsNumeric(lig) Then Exit Sub
Feuil1.Select: ActiveWindow.ScrollRow = lig
End If
End Sub

 

[arnaudguerin]

Bonjour Bruno,

ça marche nickel, merci beaucoup !
Bon week-end

Arnaud

 

[arnaudguerin]

@youky(BJ)
j'ai essayé d'adapter le code dans un autre fichier Excel (en piece jointe) du même type mais je n'arrive pas a faire fonctionner la macro.
Peux tu jeter un oeil sur le fichier joint et me dire où je fais l'erreur?
merci

Arnaud

 

[youky(BJ)]

Hello,
C'est Feuil2 au lieu Feuil1
lig = Application.Match(x, Feuil2.[B:B], 0)
Bruno

 

[arnaudguerin]

GENIAL
un grand merci