Bonjour,

Je cherche à copier des données colonnes dont la quantité est variables en décalant tous les 3 colonnes et les coller sur des lignes. Je pensais faire une boucle avec For next mais je n'y arrive pas. Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub ECART ()
 
Dim FirstDate As Date
Dim LastDate As Date
Dim Ecartdates As Long
Dim i As Integer
Dim C As Integer
 
FirstDate = Range("Datedeb").Value
LastDate = Range("Datefin").Value
 
Ecartdates = DateDiff("d", FirstDate, LastDate) + 1
NBDATE = Ecartdates
 
'Pour le nb de ligne
For i = 1 To NBDATE
 
    'Pour le nb de colonne en décalant toutes les 3 colonnes
    For C = 1 To NBDATE step 3
 
'Je veux commencer à la colonne 5 jusqu'au nb de colonne défini par NBDATE et coller cette information à la ligne 47 de la colonne 3. Évidemment, le nb de ligne est défini par NBDATE
 
Cells(47 + i, 3) = Cells(38, c + 4)
 
 
Next
 
    Next
 
End sub
Merci énormément,