Transpose ligne en tableau colonne

Bonjour,

J'accompagne un utilisateur du forum pour une demande.

Je sollicite les VBAiste car je ne sais comment faire.

J'ai en ligne un nom et plusieurs données, une par cellule.

J'aimerai copier les valeurs en colonne les unes en dessous des autres autant de fois que j'ai de données en ligne et reporter en colonne A le nom du debut de ligne.

Voir fichier joint

Cordialement,

Leakim

Bonjour,

Ci joint une proposition.

Bonjour,

Ton code fonctionne nickel merci de ta proposition.

Lorsque je lance plusieurs fois les infos s'accumulent... serait-il possible d'effacer les valeurs déjà inscritent?

J'ai testé cela mais cela bug ?

Sub LignColonne()
Dim i As Integer, j As Integer, nom As String, prenom As String, ligne As Integer, wsSource As Worksheet, wsDestination As Worksheet
Set wsSource = Feuil1
Set wsDestination = Feuil3

'With wsDestination
'    Range("A2:C500").Select
'    Selection.ClearContents
'End With

With wsSource
For i = 6 To .Range("A3500").End(xlUp).Row
nom = .Cells(i, 1)
prenom = .Cells(i, 2)
    For j = 3 To .Cells(i, 350).End(xlToLeft).Column
    ligne = wsDestination.Range("A3500").End(xlUp).Row + 1
    wsDestination.Cells(ligne, 1) = nom
    wsDestination.Cells(ligne, 2) = prenom
    wsDestination.Cells(ligne, 3) = .Cells(i, j)
    Next j
Next i
End With

    Sheets("Croisement des données").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

End Sub

Leakim

Salut,

Essai ça

Sub LignColonne()
Dim i As Integer, j As Integer, nom As String, prenom As String, ligne As Integer, wsSource As Worksheet, wsDestination As Worksheet
Set wsSource = Feuil1
Set wsDestination = Feuil3

wsDestination .Range("A2:C500").ClearContents

With wsSource
For i = 6 To .Range("A3500").End(xlUp).Row
nom = .Cells(i, 1)
prenom = .Cells(i, 2)
    For j = 3 To .Cells(i, 350).End(xlToLeft).Column
    ligne = wsDestination.Range("A3500").End(xlUp).Row + 1
    wsDestination.Cells(ligne, 1) = nom
    wsDestination.Cells(ligne, 2) = prenom
    wsDestination.Cells(ligne, 3) = .Cells(i, j)
    Next j
Next i
End With

    Sheets("Croisement des données").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

End Sub

Re,

Mrci Kant1 c'est super.

Je vais pouvoir faire un retour à alain_83740

Leakim