Microsoft 365 Aide macro svp (RÉSOLU)

jborm2b · 19 Octobre 2019

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 · 19 Octobre 2019

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 · 19 Octobre 2019

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

Microsoft 365 Aide macro svp (RÉSOLU)

jborm2b

XLDnaute Nouveau

Pièces jointes

patricktoulon

XLDnaute Barbatruc

jborm2b

XLDnaute Nouveau

Discussions similaires

Microsoft 365 Aide macro svp (RÉSOLU)

jborm2b

XLDnaute Nouveau

Pièces jointes

patricktoulon

XLDnaute Barbatruc

jborm2b

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency