Macro excel ajout de mois dans la date
Résolu/Fermé
A voir également:
- Macro excel ajout de mois dans la date
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Aller à la ligne excel - Guide
- Formule excel - Guide
- Whatsapp la date est incorrecte ✓ - Forum Mobile
1 réponse
xkristi
Messages postés
4264
Date d'inscription
lundi 18 décembre 2006
Statut
Membre
Dernière intervention
19 août 2022
564
6 mai 2008 à 14:37
6 mai 2008 à 14:37
Bonjour !
Peut-être cela :
=SI(MOIS.DECALER(A2;B2)>AUJOURDHUI();MOIS.DECALER(A2;B2);"passé")
tu remplaces "passé" par ce que tu veux
Peut-être cela :
=SI(MOIS.DECALER(A2;B2)>AUJOURDHUI();MOIS.DECALER(A2;B2);"passé")
tu remplaces "passé" par ce que tu veux
6 mai 2008 à 15:37
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.