Transposer des données = problème

bonjour a tous

j'essai de de faire transposer des données d'une colonne en les séparant comme sur la feuille2 de l'exemple que je joint

je pense que le problème vient de la ligne où j'ai mis le commentaire

Sub transpose()

For i = 3 To 800
Sheets("Données").Range("F3").Offset(o + j, i - k - 2).Value = Sheets("Données").Range("B" & i).Value
If Sheets("Données").Range("B3").Offset(o + j, i - k - 2).Column = 11 Then j = j + 1
k = 6 * j 'donc ici la ligne de code n'est pas conditionnée.
Next
End Sub

Pascal

Ta boucle est mal construite.

Sub transpose()
    Dim i As Long, j As Integer, k As Integer
    k = 3
    With Sheets("Données")
        For i = 3 To .Range("B" & .Rows.Count).End(xlUp).Row Step 6
            For j = 1 To 6
                .Cells(k, j + 6) = .Cells(i + j - 1, 2)
            Next j
            k = k + 1
        Next i
    End With
End Sub

Ta boucle est mal construite.

Sub transpose()
    Dim i As Long, j As Integer, k As Integer
    k = 3
    With Sheets("Données")
        For i = 3 To .Range("B" & .Rows.Count).End(xlUp).Row Step 6
            For j = 1 To 6
                .Cells(k, j + 6) = .Cells(i + j - 1, 2)
            Next j
            k = k + 1
        Next i
    End With
End Sub

bonjour engueengue

merci beaucoup de ta réponse qui est comme je l'attendais ce qui clos ce post

a plus et merci

Pascal

Rechercher des sujets similaires à "transposer donnees probleme"