Transformation/ mise en forme de données textes

Bonjour,

Je n'arrive pas à faire une manipulation à priori simple de mes données. Je dois d'une certaine façon transposer mes 3 colonnes de texte sur une autre sheet pour regrouper les données entre elles.

Première feuille avec mes trois colonnes d'information :

Résultat voulu :

une seule colonne dans laquelle les informations se suivent, avec une ligne vide entre chaque bloc de trois informations. Le logiciel tier qui doit traiter mes données n'accepte les informations que sous ce format...

Je vous remercie pour votre aide,

Manu

Hello,

Bon, ce n'est pas clean parce que je suis un bourrin, mais ça fonctionne bien

Sub fusion()
Dim ws, ws2 As Worksheet
Set ws = ActiveSheet

Sheets.Add
Set ws2 = ActiveSheet

For i = ws.Cells(1).CurrentRegion.Rows.Count To 1 Step -1
ws2.Cells(1, 1).Value = ws.Cells(i, 1).Value
ws2.Cells(2, 1).Value = ws.Cells(i, 3).Value
ws2.Cells(3, 1).Value = ws.Cells(i, 5).Value
ws2.Rows("1:4").Insert Shift:=xlDown
Next
ws2.Rows("1:4").Delete
End Sub

ça sera mieux comme ça, d'ailleurs :

Sub fusion()
Dim ws, ws2 As Worksheet
Set ws = ActiveSheet

Sheets.Add
Set ws2 = ActiveSheet

For i = ws.Cells(1).CurrentRegion.Rows.Count To 1 Step -1
ws2.Rows("1:4").Insert Shift:=xlDown
ws2.Cells(1, 1).Value = ws.Cells(i, 1).Value
ws2.Cells(2, 1).Value = ws.Cells(i, 3).Value
ws2.Cells(3, 1).Value = ws.Cells(i, 5).Value
Next
End Sub

Bonjour,

Super merci beaucoup ! Je découvre l'usage des macros haha.

Une fonctionnalité insoupçonnée , cela me fait gagner un temps monstre merci

Manu