Bonjour,
Voici ce que je tente de faire :
J'aurais une 30ène de cellules non contiguës à copier vers des cellules non contiguës différentes dans un autre classeur.
Je suis parti sur un tableau de correspondance du type (exemple sur 4 cellules):
tabcorrespondance(1, 1) = Range("J2:k2")
tabcorrespondance(1, 2) = Range("E33")
tabcorrespondance(1, 3) = Range("D33")
tabcorrespondance(1, 4) = Range("H31")
tabcorrespondance(2, 1) = Range("E10:F10")
tabcorrespondance(2, 2) = Range("D14")
tabcorrespondance(2, 3) = Range("F14")
tabcorrespondance(2, 4) = Range("C27")
Et je bloque dans la boucle ici :
For i = 1 To 9
'classeurSource.Active (pas besoin de l'activer, je l'ouvre juste avant)
Worksheets("TAB RECAP").Range(tabcorrespondance(1, i) & tabcorrespondance(1, i)).Select Selection.Copy
classeurDestination.Activate
Worksheets("Feuil1").Range(tabcorrespondance(2, i)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
Et là, je suis en erreur dès la sélection : "erreur 13 : incompatibilité de type"
Merci par avance,
Yoann
Voici ce que je tente de faire :
J'aurais une 30ène de cellules non contiguës à copier vers des cellules non contiguës différentes dans un autre classeur.
Je suis parti sur un tableau de correspondance du type (exemple sur 4 cellules):
tabcorrespondance(1, 1) = Range("J2:k2")
tabcorrespondance(1, 2) = Range("E33")
tabcorrespondance(1, 3) = Range("D33")
tabcorrespondance(1, 4) = Range("H31")
tabcorrespondance(2, 1) = Range("E10:F10")
tabcorrespondance(2, 2) = Range("D14")
tabcorrespondance(2, 3) = Range("F14")
tabcorrespondance(2, 4) = Range("C27")
Et je bloque dans la boucle ici :
For i = 1 To 9
'classeurSource.Active (pas besoin de l'activer, je l'ouvre juste avant)
Worksheets("TAB RECAP").Range(tabcorrespondance(1, i) & tabcorrespondance(1, i)).Select Selection.Copy
classeurDestination.Activate
Worksheets("Feuil1").Range(tabcorrespondance(2, i)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
Et là, je suis en erreur dès la sélection : "erreur 13 : incompatibilité de type"
Merci par avance,
Yoann