Retour a la ligne de colonne

  • Initiateur de la discussion Initiateur de la discussion coolreds
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Recherche V
Réponses
33
Affichages
1 K
Réponses
5
Affichages
314
Retour