Boucle Copie de Cellules non contigues

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

Bonjour,

Il y a une idée dans ta méthode mais elle est appliquée de façon complètement incohérente.

En outre le langage enregistreur n'aide pas beaucoup ! En langage VBA tu verrais sans doute mieux les erreurs de syntaxe.

Ce qu'on peut faire : supprimer tous les Select et autres inutilités, définir une boucle d'adressage qui fonctionne, procéder par affectation plutôt que par copier-coller.

Cordialement.

Bonjour,

Merci pour le conseil, je vais continuer creuser alors.

Cordialement,

Yoann

A la prochaine alors (puisque tu t'en débrouilles) !