formule recherchev en vba

[pascal21]

bonjour le forum
comment remplacer la partie en rouge
Set Plage3 = Range("ab" & X & ":" & "ab" & Y)
Plage3.Value = Application.WorksheetFunction.Sum(Range("b" & X & ":b" & Y))
par une formule de recherche

RECHERCHEV(AE7;DATA!V$13:W$24;2;0))
en fait il faudrait que la formule soit
recherchev(range("a" & y;DATA!V$13:W$24;2;0))
j'espère avoir été assez clair
ce qui me pose probleme c'est la transcription d'une formule en code vba
merci de votre aide

 

[Lone-wolf]

Bonjour Pascal

Je ne comprends pas pourquoi pour la même plage tu met X et Y?!

derligne = Range("ab" & Rows.Count).End(xlUp).Row

For i = 2 to derligne
Cells(i, "AB") = WorksheetFunction.Sum(Range("b" & i) , Range("b" & i))
Next i

Pour RechercheV, c'est Application.Match. Un exemple
Rv = Application.Match(texte à rechercher, feuille et colonne de recherche, 0)

 

[pascal21]

Bonjour Pascal

Je ne comprends pas pourquoi pour la même plage tu met X et Y?!

sans le code complet dufficile de comprendre je le concède
en fait je sélectionne des lignes entieres
la première sélectionnée est X
la dernière selectionnée est Y
je vais tester vos codes merci

 

[pascal21]

je viens de retranscrire pour mon classeur
après quelques tatonements ça fonctionne
merci