Boucle et recopie d'une sélection

Bonjour,

Je séche sur le fait de pouvoir recopier une plage de cellule.

En clair, je doit boucler la copie de la plage (T1:Z3) en colonne (J) autant de fois qu'il y a de valeur en colonne AB, tout en prennant chaque valeur (AB2 puis AB3 puis ...) pour la copie suivante sur la colonne (J).

Dans le fichier joint se trouve la premiere copie pour être sure d'être clair..

Merci

24classeur1.xlsx (23.13 Ko)

Bonjour,

Une possibilité :

Sub galopin()
Dim ArrS, ArrID, i%, ii%, k%
k = 2
ArrS = Range("T1:Z3")
ArrID = Range("AB2:AB" & [aB65000].End(xlUp).Row)
For i = 1 To UBound(ArrID)
   For ii = 1 To 3
      ArrS(ii, 1) = ArrID(i, 1)
   Next
      Range(Cells(k, 10), Cells(k + 2, 16)) = ArrS
      k = k + 3
Next
End Sub

A+

Et bien.. ca c'est fait... !!! C'est si simple.

Un jour j'y arriverai tout seul promis!

MERCI BEAUCOUP!

A bientôt pour de nouvelles aventures..

Rechercher des sujets similaires à "boucle recopie selection"