macro excel ajout de mois dans la dateRésolu

Question

bonjour,
voila je cherche un code qui me permettrai d'automatiser cette formule =MOIS.DECALER(N°cellule;N°cellule)
Je m'explique, j'ai un tableau avec des cellules contenant des dates (colonne C) et d'autre avec des rajouts de mois (exemple 12, 24,36,...) dans la collone D. 
Le truc c que les dates calculées doivent par la suite être supèrieure à celle d'aujourdhui.

Est-ce que quelqu'un aurait une idée ? SVP.
Merci d'avance pour votre aide.

spirit33 · Accepted Answer

finalement j'ai mis un peu de temps mais j'ai trouver une astuce.
en fait je rajoute une colonne et j'incrémente le nombre de mois pour
arriver jusqu'à la date d'aujourdhui puis je le rajoute à ma date sur
mon tableau.

voici le code pour ceux que cela pourrait intéresser :

Sub ajout_annee()

    Dim Lig As Long

    Dim Col As String

    Dim NbrLig As Long

    Dim NumLig As Long

    Dim Cel As Range

    Formule = "=MOIS.DECALER(RC[-3],RC[-1])"

    Col = "B" ' colonne données non vides à tester' en majuscule !!!
    NumLig 2 ' alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 0 .... ?

    With Sheets("Alert")

        NbrLig = .Cells(65536, Col).End(xlUp).Row

            For Lig = 1 To NbrLig

                If IsDate(.Cells(Lig, 3).Value) Then

                    Do While .Cells(Lig, 6) < Date

                      .Cells(Lig, 5).Value = .Cells(Lig, 5).Value + .Cells(Lig, 4).Value

                      .Cells(Lig, 6) = Formule

                    Loop

                End If

            Next

    End With

End Sub

et voila.

encore dsl pour le dérangement.

Macro excel ajout de mois dans la date

1 réponse

Votre réponse

Discussions similaires