Macro excel ajout de mois dans la date
Résolu
shishumi
-
shishumi -
shishumi -
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.
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.
Configuration: Windows XP Firefox 2.0
1 réponse
-
Bonjour !
Peut-être cela :
=SI(MOIS.DECALER(A2;B2)>AUJOURDHUI();MOIS.DECALER(A2;B2);"passé")
tu remplaces "passé" par ce que tu veux
-
merci
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.
-
