Microsoft 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.
 

Pièces jointes

  • forum.xlsx
    8.7 KB · Affichages: 5

patricktoulon

XLDnaute Barbatruc
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 ;)
 

Discussions similaires

Réponses
1
Affichages
551

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG