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

pierrejean

XLDnaute Barbatruc

• 21 Août 2019

• #2

Bonjour Arnaud

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

 

Vote positif 0 Vote négatif

arnaudguerin

XLDnaute Nouveau

• 21 Août 2019

• #3

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

 

Pièces jointes

• Classeur pour Etude.xlsm

  95.2 KB · Affichages: 3

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Août 2019

• #4

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

 

Pièces jointes

• Classeur pour Etude.xlsm

  92.7 KB · Affichages: 8

Vote positif 0 Vote négatif

arnaudguerin

XLDnaute Nouveau

• 21 Août 2019

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Août 2019

• #6

Re

Oui tu as compris !!!

 

Vote positif 0 Vote négatif

arnaudguerin

XLDnaute Nouveau

• 17 Janvier 2020

• #7

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 !!!

 

Pièces jointes

• exemple2.xlsm

  110 KB · Affichages: 4

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 17 Janvier 2020

• #8

Bonjour Arnaud,
Voici la macro detail
Bruno

VB:

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

 

Vote positif 0 Vote négatif

arnaudguerin

XLDnaute Nouveau

• 17 Janvier 2020

• #9

Bonjour Bruno,

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

Arnaud

 

Vote positif 0 Vote négatif

arnaudguerin

XLDnaute Nouveau

• 17 Janvier 2020

• #10

@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

 

Pièces jointes

• Base V8.xlsm

  139.7 KB · Affichages: 5

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 17 Janvier 2020

• #11

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

 

Vote positif 0 Vote négatif

Solution

arnaudguerin

XLDnaute Nouveau

• 17 Janvier 2020

• #12

GENIAL
un grand merci

 

Vote positif 0 Vote négatif