Transformer un tableau X*Y en Yx1; Yx2

Bonjour à tous,

Je suis bloqué, car j'ai un énorme tableau avec des Yes/No en ligne 1, et des codes en col A; je voudrais mettre dans une autre tab en Col A chaque input de ligne 1 avec chaque input de colA ou' il y a un Yes.

Est-ce que quelqu'un comprend ce que je veux dire et peux m'aider?

Merci,

Bonjour, je suis vraiment bloqué, est-ce que vous pourriez m'aider? ?

Bonjour,

Un exemple en passant par un chargement d'un array à 2D et transposant ses données en F2 :

Sub TRANSPOS()
Dim TABLO() As String
Dim T%, C%, L%
With Worksheets("Base")
T = 0
    For L = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
        For C = 2 To 4
        If .Cells(L, C) = "Y" Then
            ReDim Preserve TABLO(1, T)
            TABLO(0, T) = .Cells(1, C)
            TABLO(1, T) = .Cells(L, 1)
            T = T + 1
        End If
        Next C
    Next L
.[F2].Resize(UBound(TABLO, 2) + 1, 2) = Application.WorksheetFunction.Transpose(TABLO)
End With
End Sub

Cdlt,