Transposer des données = problème Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'201
Appréciation reçue : 1
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 14 janvier 2015, 08:09

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
Macro_transposer_2.xlsm
Pascal
Pascal
E
EngueEngue
Membre impliqué
Membre impliqué
Messages : 1'493
Inscrit le : 12 décembre 2013
Version d'Excel : 2010

Message par EngueEngue » 14 janvier 2015, 10:23

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
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'201
Appréciation reçue : 1
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 14 janvier 2015, 11:59

bonjour engueengue :D

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

a plus et merci :D :D

Pascal
Pascal
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message