Incrémenter la date d'un mois

Martini · 22 Juin 2007

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 · 22 Juin 2007

Re : Incrémenter la date d'un mois

Bonjour,
regarde et dit quoi
A +

Martini · 22 Juin 2007

Re : Incrémenter la date d'un mois

abc à dit:
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 · 22 Juin 2007

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 · 22 Juin 2007

Re : Incrémenter la date d'un mois

Bonjour Martini, abc

Essaie ceci :

Code:

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

@+

Edit: Salut Lionel (pas rafraichi !!!)

Martini · 22 Juin 2007

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 · 22 Juin 2007

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 +

Incrémenter la date d'un mois

Martini

XLDnaute Junior

abc

XLDnaute Impliqué

Pièces jointes

Martini

XLDnaute Junior

GPLIONEL

XLDnaute Occasionnel

SergiO

XLDnaute Accro

Martini

XLDnaute Junior

abc

XLDnaute Impliqué

Discussions similaires