Créer tableau à partir de données éparpillées

Bonjour à tous,

Je cherche à créer une macro qui prendrait les données issues d'une extraction pour les mettre dans un tableau selon un format que j'aurai défini.

Je joins un fichier exemple car ce sera surement plus parlant. La feuille Listenco.RPT c'est ce que j'obtiens après extraction et la feuilLe1 est ce que j'aimerai avoir après application de la macro.

Dans mon exemple il n'y a que 3 tubes, mais il pourrait y en avoir des centaines.

Un grand merci d'avance

Yoann

Bonsoir,

Utilise le code suivant :

Sub extraction()
    derLig = Sheets("listenco.RPT").Range("E" & Rows.Count).End(xlUp).Row
    j = 2
    For i = 1 To derLig
        If Sheets("listenco.RPT").Cells(i, 1) = "Tube :" Then
            Tube = Sheets("listenco.RPT").Cells(i, 2)
        Else
            test = Sheets("listenco.RPT").Cells(i, 2)
            resultat = Sheets("listenco.RPT").Cells(i, 5)
        End If
        If Tube <> "" And test <> "" Then
            Sheets("Feuil1").Cells(j, "A") = Tube
            Sheets("Feuil1").Cells(j, "B") = test
            Sheets("Feuil1").Cells(j, "C") = resultat
            j = j + 1
        End If
    Next i
End Sub

Bonsoir Raja,

Et un énorme merci!! ça fonctionne parfaitement!

Rapide et efficace, j'adore!

Bonne soirée

Yoann