Formater des données
Bonjour à tous,
Je suis nouveau sur le site et je débute en VBA.
Mon challenge : comment copier automatiquement des données contenues dans une seule colonne de la feuille 1 vers une nouvelle feuille 2 (même classeur) afin qu'elles soient en ligne et non plus en colonne (fonction transposition). Tous les lots de données de la colonne de la feuille 1 (tous les A, tous les B etc.) doivent être transposés sur leur ligne respective de la feuille B. La ligne des données du lot A, puis en dessous celle du lot B etc.
Les données : pour chaque lot (A, B ou C) la longeur de la plage de données est variable et chaque lot (A, B, C) est séparé par une ligne.
Où j'en suis : J'ai écrit cette macro qui ne fait que copier sur la même feuille un seul des lots, le A.
Je n'arrive pas à trouver de solution pour que la macro passe ensuite au lot B puis C etc.
Sub Dn()
Dim D As Long
Dim D1 As Long
Dim L As Long
Dim verif As String
'premiere ligne
D = 1
'derniere ligne
D1 = Cells(Rows.Count, 2).End(xlUp).Row
' premiere ligne
L = 1
'copie le contenu de chaque cellules jusqu'à la prochaine cellule vide
Do Until IsEmpty(Cells(D, 1)) = True
Range("A" & D).Copy Cells(L, 4 + D)
D = D + 1
Loop
End SubJe vous remercie pour votre aide !
Fabien
Bonsoir à tous !
Et....
Si le passage par VBA n'est pas une nécessité absolue, je vous propose de tester cette formule :
=FRACTIONNER.TEXTE(SUBSTITUE(JOINDRE.TEXTE(",";0;TRANSPOSE(A1:A50));",,";"|");",";"|";;;"")Dans le cas contraire, je laisse le soin aux spécialistes VBA (ils sont nombreux...
Re
Désolé je n'ai pas bien lu. Je n'ai pas les yeux en face des trous
Bonjour à tous,
Merci infiniement pour votre support, c'est grandiose
le code de FanFan38 m'a apporté la solution parfaite, les autres codes m'aident aussi à avancer et comprendre des alternatives.
C'est mon premier post, je suis épaté par la force de cette communauté.
Bonne journée à tous.
Fabien
Bonjour à tous !
Excellente nouvelle.
Je vous remercie de ce retour.