Retour a la ligne de colonne

coolreds

XLDnaute Occasionnel
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
 

Pièces jointes

  • Classeur1.xlsx
    16.1 KB · Affichages: 36
  • Classeur1.xlsx
    16.1 KB · Affichages: 48
  • Classeur1.xlsx
    16.1 KB · Affichages: 50

Jack2

XLDnaute Occasionnel
Re : Retour a la ligne de colonne

Bonsoir coolreds, Le Forum,

Une solution à essayer :
Code:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna