Microsoft 365 Aide macro svp (RÉSOLU)

[jborm2b]

Bonjour à tous et bonne journée,
Je sollicite votre aide pour la création d'une macro. je vous explique mon cas brièvement. J'aurais besoin de mettre les données de deux colonnes dans une seule mais l'une après l'autre. (EX:A1 puis B1 puis A2 puis B2 en C1,C2,C3,C4 voir dans mon fichier). Je vous remercie d'avance pour votre aide.

 

[patricktoulon]

bonjour

Sub test()
    Dim I&, Lig&, T
    Columns(4).ClearContents
    For I = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        T = Application.Transpose(Application.Transpose(Cells(I, "A").Resize(, 2).Value))
        If Cells(1, "D") = "" Then Lig = 1 Else Lig = Cells(Rows.Count, "D").End(xlUp).Offset(1).Row
        Cells(Lig, "D").Resize(UBound(T), 1) = Application.Transpose(T)
    Next
End Sub

ps: dans ton fichier c'est la colonne "D" la destination 😉

 

[jborm2b]

whaou un immense merci !!! Ça va me simplifier la vie!! Et bravo