Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

incrementer de 1 mois

  • Initiateur de la discussion Initiateur de la discussion tany
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tany

XLDnaute Occasionnel
Bonjour,

En VBA comment incrementer une date de 1 mois ou 1 an ?
Question sans doute un peu simple mais je sens que je me fourvois...
Merci à vous.
 
Re : incrementer de 1 mois

Bonjour

jour = Day(madate)
mois = Month(madate)
an = Year(madate)
newmois = mois + 1
If newmois > 12 Then
an = an + 1
newmois = 1
End If
manewdate = CDate(jour & "/" & newmois & "/" & an)

A+ François
 
Re : incrementer de 1 mois

Bonjour Tany

une solution avec la fonction "DateAdd", regarde l'exemple ci dessous, rajoute un mois par rapport à la date du jour dans la variable "x" :

Code:
Dim x As Date
x = DateAdd("m", 1, Date)
(y à la place de m, pour une année, 1 étant le nombre à rajouter).

bonne fin d'après midi
@+

edition : bonjour François
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…