Discussion :

[vladouchka]

bonjour à tous!

Je me permet, après des heures de recherche de plus en plus désespérées, à demander de l'aide sur ce forum...
Essayons d'être le plus clair possible :
Je dispose de plusieurs classeurs listant tout un tas de données sur la population classés par année et par âge (tout est listé horizontalement !).
Je souhaite créer une macro permettant de copier les données contenues dans la colonne D et les coller dans une autre feuille en décalant à chaque fois d'une colonne.
Et cela, jusqu'à ce que la cellule indiquant l'année soit vide (elle se situe toujours dans la colonne E).

Voilà le code qui bien évidemment ne fonctionne pas :

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
Sub TablesINED() 
 
Dim n As Integer 
Dim a As Integer 
n = 1 
a = 1 
Do Until (IsEmpty(Cells(5, n + 1))) 
 
    ActiveSheet.Range("D(n + 5):D(n+110)" ).Copy 
    Sheets("Feuil2" ).Select 
    ActiveSheet.Range("Aa" ).Select 
    ActiveSheet.Paste 
    Sheets("Feuil1" ).Select 
 
    n = n + 115  'Chaque année contient 104 lignes pour chaque âge et chaque année est séparée de 115 lignes de la précédente
    a = a + 1 
 
Loop 
 
End Sub

En espérant n'avoir pas été trop incompréhensible, je vous remercie grandement par avance!

[mercatog]

Essaies comme ceci (même si j'ai pas bien compris la disposition de tes données)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub TablesINED()
Dim n As Integer, a As Integer
 
n = 1: a = 1
With Sheets("Feuil1") 'à adapter
    Do Until IsEmpty(.Range("E" & n))
        .Range("D" & n + 5 & ":D" & n + 110).Copy Sheets("Feuil2").Cells(1, a)
        n = n + 115           'Chaque année contient 104 lignes pour chaque âge et chaque année est séparée de 115 lignes de la précédente
        a = a + 1
    Loop
End With
End Sub

[vladouchka]

Merci pour ta réponse, mais malheureusement ça ne fonctionne toujours pas.

Mes données sont disposées à peu près ainsi :

1801

âge données1 données2 .....
1
2
3
etc

1802

âge données1 données2 .....
1
2
3

ainsi de suite

[gFZT82]

Bonjour vladouchka,

La procédure est correcte.
En cas de dysfonctionnement, vérifie l’emplacement de tes données (voir les commentaires).

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
Sub TablesINED()
Dim n As Integer
Dim a As Integer
 
n = 1
a = 1
With Worksheets("Feuil1")
' La première année se trouve en E2
Do Until (IsEmpty(.Range("E" & n + 1)))
    'Chaque année contient 104 lignes pour chaque âge
    'Le premier age se trouve en D6
    'La première plage est donc D6:D109
    .Range("D" & (n + 5) & ":D" & (n + 108)).Copy Destination:=Worksheets("Feuil2").Cells(1, a)
    n = n + 116 'Chaque année est séparée de 115 lignes de la précédente, soit un pas de 116 lignes
    a = a + 1 'Décalage de 1 colonne
Loop
End With
End Sub