Automatiser un code

Version imprimable

Bonjour à vous,
Je bute sur un code que je n'arrive pas à automatiser au niveau des colonnes. En effet, je copie une plage de cellules vers une autre plage de cellule sauf que le nombre de colonne est variable. J'ai pensé à une boucle for mais je n'y arrive pas.
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
 
Dim Lig As Integer
 
For Lig = 9 To 20
 
        Range(Cells(9, 7), Cells(20, 10)).Value = Range(Cells(8, 7), Cells(8, 10)).Value
        Range(Cells(10, 11), Cells(20, 14)).Value = Range(Cells(9, 11), Cells(9, 14)).Value
        Range(Cells(11, 15), Cells(20, 18)).Value = Range(Cells(10, 15), Cells(10, 18)).Value
        Range(Cells(12, 19), Cells(20, 22)).Value = Range(Cells(11, 19), Cells(11, 22)).Value
        Range(Cells(13, 23), Cells(20, 27)).Value = Range(Cells(12, 23), Cells(12, 27)).Value
        Range(Cells(14, 28), Cells(20, 31)).Value = Range(Cells(13, 28), Cells(13, 31)).Value
        Range(Cells(15, 32), Cells(20, 35)).Value = Range(Cells(14, 32), Cells(14, 35)).Value
        Range(Cells(16, 36), Cells(20, 40)).Value = Range(Cells(15, 36), Cells(15, 40)).Value
        Range(Cells(17, 41), Cells(20, 44)).Value = Range(Cells(16, 41), Cells(16, 44)).Value
        Range(Cells(18, 45), Cells(20, 49)).Value = Range(Cells(17, 45), Cells(17, 49)).Value
        Range(Cells(19, 50), Cells(20, 53)).Value = Range(Cells(18, 50), Cells(18, 53)).Value
        Range(Cells(20, 54), Cells(20, 57)).Value = Range(Cells(19, 54), Cells(19, 57)).Value
 
Next Lig
 
End Sub

D'avance merci pour votre aide :)

En cherchant sur le site j'ai trouvé un bout de code mais le résultat renvoyé est faux :

Code:

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
Sub test()
 
    Dim TabMois
    Dim i As Long
    Dim ColDepart As Long
 
With Worksheets("Menu")
    TabMois = Application.WorksheetFunction.Transpose(.Range(.Cells(1, 1), .Cells(12, 1)))
End With
 
With Worksheets("CA")
 
    ColDepart = 7
 
    For i = LBound(TabMois) To UBound(TabMois)
 
        Range(Cells(8 + i, ColDepart), Cells(20, ColDepart + TabMois(i) - 1)).Value = _
        Range(Cells(7 + i, ColDepart), Cells(7 + i, ColDepart + TabMois(i) - 1))
 
        'Range(Cells(9, 7), Cells(20, 10)).Value = Range(Cells(8, 7), Cells(8, 10)).Value
 
    ColDepart = ColDepart + TabMois(i)
    Next i
End With
 
End Sub

Bonjour,

c'est normal que le décalage sur certaines lignes ne soit pas le même ?

sur 3 lignes, il y a des décalages de 5 colonnes par rapport à la ligne précédente

décalage de 4
Code:

1 2 Range(Cells(10, 11), Cells(20, 14)).Value = Range(Cells(9, 11), Cells(9, 14)).Value Range(Cells(11, 15), Cells(20, 18)).Value = Range(Cells(10, 15), Cells(10, 18)).Value
décalage de 5 sur certaines parties
Code:

1 2 Range(Cells(13, 23), Cells(20, 27)).Value = Range(Cells(12, 23), Cells(12, 27)).Value Range(Cells(14, 28), Cells(20, 31)).Value = Range(Cells(13, 28), Cells(13, 31)).Value
décalage de 5 sur d'autres parties
Code:

1 2 Range(Cells(15, 32), Cells(20, 35)).Value = Range(Cells(14, 32), Cells(14, 35)).Value Range(Cells(16, 36), Cells(20, 40)).Value = Range(Cells(15, 36), Cells(15, 40)).Value
utiliser une boucle en devient compliqué ... et probablement plus long à rédiger que ce que tu as actuellement

Regarde si j'ai bien compris avec offset et resize

Code:

1
2
3
4
5
6
7
8
9
Sub test()
Dim i As Integer
 
With Worksheets("Feuil1")
    For i = 0 To 11
        .Cells(9 + i, 7).Offset(, 4 * i).Resize(12 - i, 4).Value = .Cells(8 + i, 7).Offset(, 4 * i).Resize(, 4).Value
    Next i
End With
End Sub

EDIT

Bien vu joe.levrai

23/06/2015, 13h11
joe.levrai

Bonjour mercatog,

j'ai foncé tête baissé pour faire la boucle après avoir lu les 3 premières lignes .... et me suis ensuite rendu compte du décalage quand les résultats se décalaient sur ma feuille de test :mrgreen:
24/06/2015, 11h22
Ardiden31

Bonjour à vous deux !
Merci pour votre aide.
Pour répondre à la question oui c'est normal qu’il y des décalages il y a des décalages de 4 parfois de 5 et même la dernière de 3.
Par contre le code offset et resize commence bien mais à la fin de mon tableau il y a un décalage.
Est-ce que je peux par exemple dans une feuille préciser le nombre de décalage qu'il y a étant donné que c'est variable d'une semaine à l'autre.
24/06/2015, 11h40
mercatog

Plutôt n'y a t-il pas moyen de déceler le nombre de décalages par code même (indices qu'on peut interpréter).