Augmenter date et boucle

Bonjour,

Je suis complètement novice en VBA.

Je sais que ce problème est souvent traité mais je n'arrive pas à intégrer le code VBA dans ma ligne de commande.

Je voudrais copier plusieurs lignes d'une feuille à une autre si la date de la ligne à copier est inférieure à la date du jour et augmenter d'un mois la date (de la cellule A&i) jusqu’à ce que cette date soit supérieure à la date du jour pour arrêter la boucle. A la fin de la boucle, je souhaite écrire prélevé dans une cellule donnée.

J'ai essayé d'utiliser Mois.Decaler et DateAdd

Merci pour vos conseils

Voici ce que j'ai écris :

Sub Miseàjourréccurents()

Sheets("Saisie").Select

Dim i As Integer

For i = 27 To 36

Do Until Range("A" & i).Value > Date

If Range("A" & i).Value < Date Then

Rows(i).Select

Selection.Copy

Sheets("Récapitulatif").Select

Rows("2:2").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

ActiveSheet.Paste

Application.CutCopyMode = False

Sheets("Saisie").Select

Dim nom As Date

nom = Range("A" & i)

nom = DateAdd("m", 1, nom)

End If

Loop

Sheets("Saisie").Select

Range("I" & i).Select

ActiveCell.FormulaR1C1 = "Prélevé"

Next i

End Sub

difficile de comprendre ce que tu veux

joins un fichier avec des explications plus claires (au moins un exemple)

Bonjour,

Sub Miseàjourréccurents()
    Dim i As Integer, nom As Date, ws As Worksheet
    Set ws = Worksheets("Récapitulatif")
    With Worksheets("Saisie")
        For i = 27 To 36
            nom = .Range("A" & i)
            Do Until nom > Date
                If nom < Date Then
                    .Rows(i).Copy
                    ws.Rows(2).Insert xlShiftDown
                    nom = DateAdd("m", 1, nom)
                    .Range("A" & i) = nom
                End If
            Loop
            .Range("I" & i) = "Prélevé"
        Next i
    End With
End Sub

Sous réserve classeur non vu et infos manquantes (pas de délimitation en colonnes de la ligne, cas égalité date jour ignoré...)

Super

Ca marche nickel

Merci beaucoup