Office 365 Aide macro svp (RÉSOLU)

jborm2b

XLDnaute Nouveau
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.
 

Fichiers joints

patricktoulon

XLDnaute Accro
bonjour
VB:
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

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas