Incrémenter la date d'un mois

[Martini]

Bonjour.....j'ai un petit problème

Je voudrais incrémenter une date d'un mois à chaque pression sur un bouton.
En clair, je voudrais remplacer E12 par la valeur de DATE(ANNEE(E12);MOIS(E12)+1;JOUR(E12)).

C'est forcément simple m'enfin j'ai commencé VBA y'a quelques heures et je dois dire que je sèche

Merci pour votre aide

 

[abc]

Re : Incrémenter la date d'un mois

Bonjour,
regarde et dit quoi
A +

 

[Martini]

Re : Incrémenter la date d'un mois

dit quoi

"quoi"

Je comprends pas ton fichier en fait.....

Ce que je veux, c'est un bouton à côté de ma cellule qui qui contient une date 01/01/07 (ça je sais faire ). Le bouton transformera le contenu de ma cellule en 01/02/07 quand on cliquera dessus puis en 01/03/07 au clic suivant et ainsi de suite.

 

[GPLIONEL]

Re : Incrémenter la date d'un mois

Bonjour Martini et abc

Dans ta macro, si on considère que la date est dans la cellule A1, tu peux saisir ce code :

Range("a1") = DateAdd("m", 1, Range("a1"))

 

[SergiO]

Re : Incrémenter la date d'un mois

Bonjour Martini, abc

Essaie ceci :

Sub M1()
Cells(12, 5) = DateAdd("m", 1, Cells(12, 5))
End Sub

@+

Edit: Salut Lionel (pas rafraichi !!!)

 

[Martini]

Re : Incrémenter la date d'un mois

Merci lionel, c'est exactement ce que je voulais.
J'en ai profité pour faire un deuxième bouton avec Range("e12") = DateAdd("m", -1, Range("e12"))

EDIT : SergiO, merci aussi (mais une minute trop tard )


@+

 

[abc]

Re : Incrémenter la date d'un mois

Bonjour,
cela te permet d'avoir une plus grande palette de date et te permet d'inscrire le premier jour du mois choisis ,quelle quoi soit l'année où le mois .De plus tu a le choix du jour .
A +