Remanier des données sous une autre forme

Bonjour à tous,

J'apprécierais qu'on m'aide à concevoir une macro qui permettrait de remanier des données contenues dans une feuille. Dans le fichier ci-joint "Exemple.xlsx", j'ai une feuille "Données" qui contient des données qui doit être remanier dans une feuille "Résultat" tel que décrit. Les colonnes "N° équipement" et leurs données associées doivent être regroupées comme dans la feuille "Résultat". Une fois les cellule remaniées, celles qui contiennent la valeur "xx" doit être effacées. Veuillez noter que dans la feuille "Données", le nombre de colonnes et de lignes est variable.

Je vous remercie par avance pour votre précieuse collaboration.

Salutations

Renaud D.

Bonjour,

une proposition

Sub aargh()
    With Sheets("données")
        dl = .Cells(Rows.Count, 2).End(xlUp).Row
        Set ws = Sheets("résultat")
        k = 2
        For i = 3 To dl
            j = 2
            While .Cells(i, j) <> ""
                k = k + 1
                ws.Cells(k, 2).Resize(, 7).Value = .Cells(i, j).Resize(, 7).Value
                j = j + 7
            Wend
        Next i
    End With
End Sub

Bonsoir h2so4,

Merci beaucoup d'avoir répondu à ma demande.

Votre code fonctionne parfaitement.

Cependant, serait-il possible pour vous de modifier légèrement votre code afin d'effacer la valeur "xx" dans les cellules (feuille "Résultat") ?

Sincères salutations,

Renaud D.

Bonjour,

voici une adaptation du code

Sub aargh()
    With Sheets("données")
        dl = .Cells(Rows.Count, 2).End(xlUp).Row
        Set ws = Sheets("résultat")
        k = 2
        For i = 3 To dl
            j = 2
            While .Cells(i, j) <> ""
                k = k + 1
                ws.Cells(k, 2).Resize(, 7).Value = .Cells(i, j).Resize(, 7).Value
                j = j + 7
            Wend
        Next i
        ws.Cells(3, 2).Resize(k, 7).Replace "xx", "", lookat:=xlWhole
    End With
End Sub

Bonsoir h2so4,

Merci encore pour votre réponse.

Mon problème est maintenant résolu.

Sincères salutations,

Renaud D.