Discussion :

[dado91400]

J'ai un petit soucis pour une simple fonction copier/coller.

j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
'fonction qui copie/coller 
 
For i = 0 To 20
    For j = 0 To 20 'Step 2
 
    Sheets("CONTROLES").Range("C1:C20").Offset(0, i).Copy Range("A210").Offset(0, j)
 
    Next j
Next i

le but de ce bout de code est de COPIER plusieurs "Range" A LA SUITE de ma feuille CONTROLE, mais par contre je ne voudrais pas les COLLER A LA SUITE...
je veux COLLER dans feuil2, x1 "Range" de ma Feuil CONTROLE PUIS je me décale et je recolle le Range suivant, B]PUIS[/B] je me décale et je recolle le Range suivant etc ....

En fait c'est un copier, et je colle en me décallant d'une colonne à chque fois.

Mais ça ne marche paaaass

merci du coup de main et bonne soirée..

[alsimbad]

hello. pourquoi deux boucles??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 To 20
    Sheets("CONTROLES").Range("a1:a20").Offset(0, i).Copy Destination:=Range("A210").Offset(0, 2 * i)
Next i

voila, voila

[dado91400]

Salut,

merci pour la réponse .. efn fait hier soir j'étais pas loin de la réponse, j'ajoutais : i+2 dans ma boucle, mais c'est claire que c'est mieux comme ça ....