Retour a la ligne de colonne

[coolreds]

Bonjour

j'ai besoin de modifier une présentation d'un fichier excel

1 ligne = 1 code avec plusieurs colonnes

j'ai besoin de créer autant de ligne que de colonne

j'ai 1000 lignes et il faudrait que je le fasse en automatique

merci de votre aide

 

[Jack2]

Re : Retour a la ligne de colonne

Bonsoir coolreds, Le Forum,

Une solution à essayer :

Sub RetourLigne()
Dim DerLig As Long
Dim Deb As Long
Dim Plage As Variant
Application.ScreenUpdating = False
DerLig = Range("A1", Range("A65535").End(xlUp)).Rows.Count
Deb = 10
Range("A3:D3").Copy Destination:=Range("A10")
For i = 4 To DerLig
    Set Plage = Range("A" & i & ":L" & i)
    For j = 1 To 5
       Cells(Deb + j, 1) = Plage(1, 1)
       Cells(Deb + j, 2) = Plage(1, 2)
       Cells(Deb + j, 3) = Plage(1, j * 2 + 1)
       Cells(Deb + j, 4) = Plage(1, j * 2 + 2)
    Next j
    Deb = Range("A1", Range("A65535").End(xlUp)).Rows.Count
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = False
End Sub

Pour que ça fonctionne : effacer toutes les lignes supérieures à 7 (prestation origine)
A+ Jack2