XL 2019 Find address row trouve valeur pas adresse

  • Initiateur de la discussion Initiateur de la discussion Hoareau
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
1 K
  • Suggestion Suggestion
Recherche & référence RECHERCHE2D
Réponses
8
Affichages
2 K
Retour