Décroiser un tableau Excel 2013

Bonjour,

Je cherche à décroiser un tableau dans Excel afin d'en faire un fichier plat à importer.

En clair, j'ai un tableau de A3 à FU224. La colonne A est une colonne "ID" avec 222 ID et je souhaite sélectionner certaines colonnes parmi une multitude de colonnes (de la colonne S jusqu'à la colonne FU) que je souhaite "décroiser", uniquement lorsque "oui" est indiqué dans la ligne 1.

Voici le modèle en PJ.

J'ai lu le sujet https://forum.excel-pratique.com/viewtopic.php?t=117596 qui s'approche de mon problème, cependant je n'ai pas réussi à l'adapter à mon tableau.

@https://forum.excel-pratique.com/membre/18632

Pourriez-vous svp m'aider??? Je désespère :(

Merci d'avance pour votre aide!

Bonne soirée,

Chris

Bonjour,

Un exemple à adapter.

ALT F8 puis exécuter la procédure Main.

Cdlt.

Public Sub Main()
Dim ws As Worksheet, ws2 As Worksheet
Dim lastRow As Long
Dim tbl As Variant, arr() As Variant
Dim I As Long, J As Long, k As Long

    Set ws = Worksheets("Input")
    Set ws2 = Worksheets("Output")

    With ws
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        tbl = .Cells(1).Resize(lastRow, 177)
    End With

    For I = 5 To lastRow
        For J = 19 To 177
            If LCase(tbl(1, J)) = "oui" And tbl(I, J) <> "" Then
                ReDim Preserve arr(4, k + 1)
                arr(0, k) = tbl(I, 1)
                arr(1, k) = tbl(3, J)
                arr(2, k) = tbl(4, J)
                arr(3, k) = tbl(I, J)
                k = k + 1
            End If
        Next J
    Next I

    With ws2
        .Cells(1).CurrentRegion.Offset(1).ClearContents
        If k > 0 Then .Cells(2, 1).Resize(k, 4).Value = Application.Transpose(arr)
        .Activate
    End With

End Sub

Merci beaucoup Jean-Eric!

Cela fonctionne parfaitement dans mon modèle, cependant dans le fichier original, j'ai l'erreur suivante: incompatibilité de type...saurais-tu stp m'éclairer?

Merci encore et bonne soirée,

Chris

Bonjour,

Sans fichier, difficile de t'apporter une aide.

Cdlt.

Bonjour Jean-Eric,

C’est bon, ta macro fonctionne parfaitement!

J’avais des DIV/0...

Merci pour ton aide précieuse!

Chris