Macro excel ajout de mois dans la date

Résolu
spirit33 Messages postés 26 Date d'inscription mercredi 14 novembre 2007 Statut Membre Dernière intervention 24 juillet 2009 - 6 mai 2008 à 10:48
spirit33 Messages postés 26 Date d'inscription mercredi 14 novembre 2007 Statut Membre Dernière intervention 24 juillet 2009 - 6 mai 2008 à 15:40
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.

1 réponse

spirit33 Messages postés 26 Date d'inscription mercredi 14 novembre 2007 Statut Membre Dernière intervention 24 juillet 2009
6 mai 2008 à 15:40
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.
3