Plop, j'ai trouve sur le net cette macro permettant d'inserer dans la feuille CIBLE les donnes se trouvant dans la feuille SOURCE, selon les correspondances que l'on ecrit dans le feuille CORRESPONDANCE. (ex A B afin que A de la feuille source aille en B de la feuille cible)
Sub test1() For i = 2 To Sheets("Correspondances" ).Range("A65536" ).End(xlUp).Row If Not Sheets("Correspondances" ).Range("A" & i) = "" Then plg1 = Range(Sheets("Correspondances" ).Range("A" & i) & ":" & Sheets("Correspondances" ).Range("A" & i)).Address plg2 = Range(Sheets("Correspondances" ).Range("B" & i) & "1" ).Address Sheets("Source" ).Range(plg1).Copy Sheets("Cible" ).Range(plg2) End If Next End Sub
Mais ca ne fonctionne pas, lorsque je l'ecrit rien ne se passe Un petit coup de main ?
Marsh Posté le 30-03-2011 à 14:23:56
Plop, j'ai trouve sur le net cette macro permettant d'inserer dans la feuille CIBLE les donnes se trouvant dans la feuille SOURCE, selon les correspondances que l'on ecrit dans le feuille CORRESPONDANCE. (ex A B afin que A de la feuille source aille en B de la feuille cible)
Sub test1()
For i = 2 To Sheets("Correspondances" ).Range("A65536" ).End(xlUp).Row
If Not Sheets("Correspondances" ).Range("A" & i) = "" Then
plg1 = Range(Sheets("Correspondances" ).Range("A" & i) & ":" & Sheets("Correspondances" ).Range("A" & i)).Address
plg2 = Range(Sheets("Correspondances" ).Range("B" & i) & "1" ).Address
Sheets("Source" ).Range(plg1).Copy Sheets("Cible" ).Range(plg2)
End If
Next
End Sub
Mais ca ne fonctionne pas, lorsque je l'ecrit rien ne se passe Un petit coup de main ?