[VBA] Macro correspondance colonnes

Macro correspondance colonnes [VBA] - VB/VBA/VBS - Programmation

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 ?

Reply

Marsh Posté le 30-03-2011 à 14:23:56   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed