Copier-coller - problème dans une boucle

Bonjour à tous,

Je me creuse la tête sur ce simple problème depuis près de 2h, je m'en remets à vous.

Le principe est très simple, j'ai une plage A1:L16 que je souhaite dupliquer x fois dans la même feuille.

Je n'arrive pas à créer les copies souhaitées.

Le code suivant est sans succès.

For d = 1 To (nb_divisions - 1)
   ws6.Range("A1:L16").Copy ws6.Range("A" & d * 17 + 1)
   Next

Par contre, si j'introduis "manuellement" la plage d'arrivée, cela fonctionne .

For d = 1 To (nb_divisions - 1)
    ws6.Range("A1:L16").Copy ws6.Range("A18")
    ws6.Range("A1:L16").Copy ws6.Range("A35")
    '...
   Next

Bien entendu, de cette manière je perds tout le côté dynamique de la boucle et je ne connais pas à l'avance la variable nb_divisions.

Pouvez-vous m'aider ?

D'avance merci pour votre aide et votre temps,

Clémentine

Bonjour

as-tu un fichier modele ? si confidentiel, anonymise et envoi

cela sera plus simple pour comprendre et te répondre!

CORDIA5

Bonjour,

Le code est fonctionnel pour nb_divisions supérieur ou égal à 2.

Cdlt.

Merci pour votre intérêt à ma question.

Effectivement, le code n'a un intérêt que pour nb_divisions >= 2.

Comme mon code est très long et renvoie à plusieurs fichiers xlsx, j'ai commencé à synthétiser pour ne vous fournir que le strict nécessaire pour le passage problématique. Et, ô joie et surprise, cela a fonctionné.

Je ne comprends pas pourquoi cela ne fonctionnait pas hier soir et bien aujourd'hui, quoi qu'il en soit, c'est très bien ainsi.

Merci pour vos réponses,

Clémentine