Macro colonne vers ligne ?

[Marc94]

Bonjour,
je voudrais savoir s'il existe une macro permettant la mise en ligne de donnée agencée en colonne ? j'explique mon cas 😉
je rappatrie des données que je colle dans une colonne mais que je veux réagencer sur 4 colonnes (a1->a1; a2->b1; a3->c1; a4->d1; a5->a2; a6->b2; a7->c2; a8->d2 etc etc...)
j'ai pu faire ça sous la forme d'une macro enregistrée mais c'est perfectible...
Merci d'avance de l'aide que vous pourriez m'apporter.

 

[Guest]

Re : Macro colonne vers ligne ?

Bonjour Marc et Bienvenue sur le forum,

Sélectionnes à partir de B1 un nombre de cellule identique au nombre de lignes que tu veux répartir. Par exemple si tu as 10 ligne tu sélectionnes B1:K1. Dans la barre de formule tu tapes =Transpose(A1:A10) et tu valide par CTRL+MAJ+ENTREE.

Ta ligne toujours sélectionnée, Copier, collage spécial : Valeurs.
Et voilà le tour est joué.

il ne te restera plus qu'à supprimer tes données en colonne.

A bientôt

 

[soenda]

Re : Macro colonne vers ligne ?

Bonjour

Une possibilité par macro

Sub Macro1()
    Dim L%, Lig As Integer
    
    Application.ScreenUpdating = False
    
    For L = 1 To [A1].End(xlDown) Step 4
        Lig = Lig + 1
        Range("A" & CStr(L) & ":A" & CStr(L + 3)).Copy
        Range("B" & CStr(Lig)).Select
        Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Next
    
    Application.CutCopyMode = False
    Range("B1").Select
    
    Application.ScreenUpdating = True
    
End Sub

 

[Marc94]

Re : Macro colonne vers ligne ?

Merci Hasco ça marche super bien 🙂
Pour la macro VBA je suis un peu trop débutant mais avec un peu d'explication je pourrais m'en sortir 😉

Merci encore pour vos réponses très claires.