Problème d'incrémentation

Bonjour,

J'ai un problème dans une macro vba et je sollicite votre aide.

Je souhaite récupérer 10 valeurs puis les coller sur une autre feuille excel.

Un fois cela fait, je souhaite récupérer les même 10 valeurs en retirant la première (j'aurais donc 9 valeurs) et de les mettre à la suite et ainsi de suite.

Par exemple si mes 10 valeurs sont 1 2 3 4 5 6 7 8 9 10 je souhaite obtenir :

1 2 3 4 5 6 7 8 9 10 2 3 4 5 6 7 8 9 10 3 4 5 6 7 8 9 10 4 5 6 7 8 9 10 5 6 7 8 9 10 ... 9 10 10

J'ai opté pour une double boucle mais cela me crée un décalage.

Merci pour votre aide.

bonjour,

une proposition. hypothèse les 10 valeurs sont en feuil1 en ligne 1, solution en feuil2 ligne 1

Sub aargh()
    Set ws1 = Sheets("feuil1")
    Set ws2 = Sheets("feuil2")
    For i = 1 To 10
        For j = i To 10
            k = k + 1
            ws2.Cells(1, k) = ws1.Cells(1, j)
        Next j
    Next i
End Sub

h2so4 a écrit :

bonjour,

une proposition. hypothèse les 10 valeurs sont en feuil1 en ligne 1, solution en feuil2 ligne 1

Sub aargh()
    Set ws1 = Sheets("feuil1")
    Set ws2 = Sheets("feuil2")
    For i = 1 To 10
        For j = i To 10
            k = k + 1
            ws2.Cells(1, k) = ws1.Cells(1, j)
        Next j
    Next i
End Sub

Super c'est exactement ce que je cherchais ça marche bien

Merci