XL 2019 Find address row trouve valeur pas adresse

Hoareau

XLDnaute Occasionnel
Bonjour
La procédure ci-dessous est sensée me donner le N° de ligne de la valeur trouvée
find trouve bien la valeur qui est affichée en Range("N25") mais ne trouve pas la ligne et l'adresse
merci

Dim trouve_Adresse As Range
Enieme_Valeur = Application.Large(plage, 2)
Set trouve_Adresse = plage.Find(Enieme_Valeur, LookIn:=xlValues, Lookat:=xlWhole)
Range("P25") = trouve_Adresse.Address
Range("O25") = trouve_Adresse.Row

Range("N25") = Enieme_Valeur
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Hoareau, ChTi60,
Dans le fichier joint votre code fonctionne.
A vous de trouver l'erreur dans votre contexte. :)
VB:
Sub essai()
Dim trouve_Adresse As Range
Enieme_Valeur = [O6]
Set trouve_Adresse = Range("A1:I30").Find(Enieme_Valeur, LookIn:=xlValues)
Range("P25") = trouve_Adresse.Address
Range("O25") = trouve_Adresse.Row
Range("N25") = Enieme_Valeur
End Sub
 

Pièces jointes

  • Classeur1.xlsm
    15.8 KB · Affichages: 13

Hoareau

XLDnaute Occasionnel
Cela fait un moment que j'essaie de comprendre le pourquoi
Enfin de compte, ce que j'essaie de faire
1) Trouver la ligne de la enieme valeur dans une liste triée
2)creer une plage de la valeur au rang 1 à enieme valeur
3)Recuperer la valeur offset(0,-1) de enième valeur

Dans l'exemple du fichier
N est la 14 eme valeur
si je cherche enieme valeur 14, je dois récuperer N

merci
14​
 

Pièces jointes

  • Classeur2.xlsm
    16.4 KB · Affichages: 4

sylvanu

XLDnaute Barbatruc
Supporter XLD
S'il n'y a que ça à faire, pourquoi ne pas passer par une formule :
VB:
=SIERREUR(INDEX(B:B;EQUIV(G6;C:C;0));"")
avec en G6 la valeur cherchée (14 par ex )
ou par VBA ou fonction perso :
Code:
Sub essai2()
Dim trouve_Adresse As Range
Enieme_Valeur = [G13]
Ligne = Application.Match(Enieme_Valeur, Range("C:C"), 0)
[G14] = Cells(Ligne, 2)
End Sub

Function Hoareau(N)
Ligne = Application.Match(N, Range("C:C"), 0)
Hoareau = Cells(Ligne, 2)
End Function

En PJ les trois façon de procéder.
 

Pièces jointes

  • Classeur2 (4).xlsm
    18.3 KB · Affichages: 8

Discussions similaires

Réponses
2
Affichages
140

Statistiques des forums

Discussions
312 106
Messages
2 085 352
Membres
102 871
dernier inscrit
Maïmanko