Discussion :

[wyzer]

Bonjour,

J'aimerais modifier cette macro :

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
Sub A_TEST()
Application.ScreenUpdating = False
Sheets(2).Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Dim Debut As Long, Destination As Long
Dim Decalage As Byte, Pas As Byte
Pas = 42
Decalage = 18
Destination = Decalage
Debut = 2
While Worksheets(1).Range("A65536").End(xlUp).Row > Debut
Worksheets(2).Rows(Destination & ":" & Destination + Pas - 1).Value = Worksheets(1).Rows(Debut & ":" & Debut + Pas - 1).Value
Destination = Destination + Pas + Decalage - 1
Debut = Debut + Pas
Wend
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Dans la feuille 1 se trouvent les données suivantes :



Puis ils sont copiés sur la feuille 2 comme ceci :




Or, j'aimerais qu'ils soient copiés comme cela :




Je me casse la tête depuis tout à l'heure mais je n'y arrive pas


Merci par avance pour votre aide !!

[Jean-Philippe André]

salut,
en utilisant le macro recorder, tu as deja pas mal de reponses non ?

Ou est ta difficulte qui te bloque pour l'instant ?

- pour chaque ligne initiale (i):
- ajout d'une ligne en dessous (insert)
- copie de la valeur colonne C (cells(i,3) en colonne B (celles(i+1,2))
- etc.

[wyzer]

Effectivement, j'ai utilisé les Cells(i, 1) = Cells(i, 2), etc...

Merci