Remplacer chiffre par mot sur une autre feuille

Question

Bonjour;

Sur ma feuille 1 pour exemple :

A1=test1 D1=28

A2=test2 D2=29

et sur ma feuille 2

A7=28

A8=28

A9=29

je voudrais que les valeurs de ma feuille 2 soit la valeur de A de ma feuille 1.

C'est a grande échelle 3000 lignes donc en VBA, merci d 'avance ?

3GB · Answer

Voici un essai : Sub Remplacer() with sheets(2) dl2 = .Cells(.rows.count, 1).end(xlup).row &nbsp;&nbsp;&nbsp;&nbsp;t = .range("A1:A" & dl2).value &nbsp;&nbsp;&nbsp;&nbsp;with sheets(1) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dl1 = .cells(.rows.count, 4).end(xlup).row &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for i = 1 to ubound(t) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if application.countif(.range("D1:D" & dl1), t(i, 1)) &gt; 0 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ligne = application.match(t(i, 1), .range("D1:D" & dl1), 0) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;t(i, 1) = .cells(ligne, 1).value &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next i &nbsp;&nbsp;&nbsp;&nbsp;end with &nbsp;&nbsp;&nbsp;&nbsp;.range("A1:A" & dl2).value = t end with end sub Cdlt...