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