XL 2016 basculer un affichage de lignes en colonnes

[DidierCR075]

Bonjour à tous,

Je suis novice en VBA pour Excel. j'ai téléchargé une macro qui remplit parfaitement la fonction que je lui demande. J'y ai apporté quelques modifications conformes à ce que je désirais mais là, je bloque sur un problème d'affichage.

Je souhaiterais que les résultats s'affichent les uns en dessous des autres plutôt qu'en ligne.

Merci par avance à ceux qui se pencheront sur la question et merci pour l'aide apportée par ce forum.

 

[fanch55]

Bonsoir,

Sub CombinationsNP(vElements As Variant, p As Integer, vresult As Variant, lRow As Long, iElement As Integer, iIndex As Integer)
Dim i As Integer
For i = iElement To UBound(vElements)
    vresult(iIndex) = vElements(i)
    If iIndex = p Then
        lRow = lRow + p + 1
        'Range("C" & lRow) = Join(vresult, " ") 'One columnn results
        Range("C" & lRow).Resize(p).Value = Application.Transpose(vresult) 'Multi column Result
    Else
        Call CombinationsNP(vElements, p, vresult, lRow, i + 1, iIndex + 1)
    End If
Next i
End Sub

 

[DidierCR075]

Merci beaucoup fanch55,

C'est nickel et ça m'enlève une belle épine du pied.

Que du bonheur