Probleme n = 2 To 9

Bonjour à tous,

J'avais presque réussi (je pense) mais l'erreur qui survient m'est complètement incompréhensible. Dans le code ci-dessous au lieu de copier les ligne 2 A 9 il copie les lignes 2 ET 9. Pour plus d'explication, je cherche à copier les valeurs des colonnes du tableau en feuille "plan" (ligne 2 a 9 de chaque colonne) en format liste dans la feuille qui se nommera "Liste"

Avez vous une idée d’où se situe mon erreur? Je vous mais en pièce jointe le tableau de test.

Je vous remercie par avance pour votre aide.

"

Sub Test_2()

'renomme la feuille
Worksheets("Feuil1").Name = "Liste"

'Défini les variables (Feuille)
Dim F1 As Worksheet, F2 As Worksheet, n As Integer
Set F1 = Sheets("plan")
Set F2 = Sheets("Liste")
For n = 2 To 9
F1.Range("B2").Copy F2.Range("A1")
F1.Range("C2").Copy F2.Range("A9")
F1.Range("D2").Copy F2.Range("A17")
F1.Range("E2").Copy F2.Range("A25")
F1.Range("F2").Copy F2.Range("A33")
F1.Range("G2").Copy F2.Range("A41")
F1.Range("H2").Copy F2.Range("A49")
F1.Range("I2").Copy F2.Range("A57")
F1.Range("J2").Copy F2.Range("A65")
F1.Range("K2").Copy F2.Range("A73")
F1.Range("L2").Copy F2.Range("A81")
F1.Range("M2").Copy F2.Range("A89")
Next n

End Sub

Bonjour,

Elle est bien belle cette boucle, mais dans la mesure où la variable n n'est utilisée nulle part ensuite, ça parait normal !

Un essai :

Sub Test_2()

Dim Lig As Integer, Col As Integer, LigDest As Long

With Sheets("Feuil1")
    For Col = 2 To 13
        For Lig = 2 To 9
            LigDest = LigDest + 1
            .Range("A" & LigDest) = Sheets("plan").Cells(Lig, Col)
        Next Lig
    Next Col
    .Name = "Liste"
End With

End Sub

Bonjour Pedro,

Ton code me parait bien plus logique dans sa construction au vu de ce que je veux faire.

Merci beaucoup il fonctionne très bien. Y'a plus qu'a l'intégrer au reste de mon code ^^.

Bonne fin de journée.