Incrémentation d'une colonne après qu'un argument ait été vérifié

Question

Bonjour à tous ! j'espère que vous allez bien.

Je me permets de venir vous demander votre aide sur une macro que j'essaye de mettre en place.

Le but est très simple, copier la sélection la coller dans la cellule J82, sélectionner la cellule J2 ( qui est une fonction qui décale le mois) et répéter l'opération tant que la date l'année (I3) est plus petite que l'année (J3).

Mon seul problème est qu'a chaque nouvelle loop il faudrait que la cellule J82 (qui vient d'être remplie) s'incrémente d'une colonne sur la droite soit K82 puis coller les nouvelles donnée de la selection dans la cellule K82 puis... jusqu'à ce que la condition du while ne soit plus bonne... et c'est tout.

c'est cette incrémentation de 1 sur la cellule juste a coté de celle remplie que je n'arrive pas à mettre en place...

Merci pour l'aide que vous pourriez m'apporter et excellente journée !

Sub Actualisation()

    Do While Range("I3").Value < Range("J3").Value
        Range("I2:I78").Select
        Selection.Copy
            Range("J82").Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
        Range("J2").Select
        Application.CutCopyMode = False
        Selection.Copy
        Range("I2").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
    Loop
End Sub

Gabin37 · Accepted Answer

Similaire à la fonction "Range" vous pouvez utiliser "Cells" en VBA qui demande le numéro de ligne et le numéro de colonne. Cela permet de ne pas avoir à utiliser la lettre pour identifier la colonne. A tester comme cela : Sub Actualisation() n = 10 Do While Range("I3").Value &lt; Range("J3").Value Range("I2:I78").Select Selection.Copy Cells(82, n).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J2").Select Application.CutCopyMode = False Selection.Copy Range("I2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False n = n + 1 Loop End Sub A+...