Ajouter 1mois à DATE

Bonjour, si j'ai bien compris....

ÚTE(ANNEE(A1);MOIS(A1)+1; JOUR(A1))

Srawing

"Starwing" <ubik10@hotmail.com> wrote in news:evIVPncvEHA.3896
@TK2MSFTNGP09.phx.gbl:

Bonjour, si j'ai bien compris....

ÚTE(ANNEE(A1);MOIS(A1)+1; JOUR(A1))

Srawing

Ok mais quand je tape cela la syntaxe est refusée

Bonjour,

Il faudrait être un peu plus explicite...
La syntaxe est refusée. Alors la cellule inscrit quoi? Name?
Alors, tu as une version anglaise...

ÚTE(YEAR(A1);MONTH(A1)+1; DAY(A1))

Sinon reviens nous voir...avec plus d'explication.

Starwing

"Starwing" <ubik10@hotmail.com> wrote in news:ewVRU3cvEHA.4020
@TK2MSFTNGP10.phx.gbl:

Bonjour,

Il faudrait être un peu plus explicite...
La syntaxe est refusée. Alors la cellule inscrit quoi? Name?
Alors, tu as une version anglaise...

ÚTE(YEAR(A1);MONTH(A1)+1; DAY(A1))

Sinon reviens nous voir...avec plus d'explication.

Starwing

DATE c'est d'abord une commande de VBA pas une formule.
dans les cellules je travaille avec MAINTENANT() ou AUJOURDHUI.

Donc DATE me retourne la date d'aujourd'hui dans VBA
si je fais DATE + 1 je rajoute des jours à la date.
je veux simplement rajouter 1mois

que le 29/10/04 se transforme en 29/11/04 dans VBA.

J'ai lu tout l'aide de VBA avec Date(2004;10;29) egale le 29/10/2004 etc
mais quand je tape toutes ces syntaxes c'est refusé.

Bonjour,

Si j'ai bien compris,

Sub MaDate()
x = Format(Evaluate("DATE(YEAR(TODAY()),MONTH(TODAY())+1,DAY(TODAY()))"),
"dd/mm/yyyy")
MsgBox x
End Sub


Starwing

que le 29/10/04 se transforme en 29/11/04 dans VBA.

MsgBox DateSerial(Year(Date), Month(Date) + 1, Day(Date))

AV

Alain à la rescousse ;-)

Encore que JOJO ne nous a pas dit ce qu'il ferait pour un 30 janvier :-)

Salutations,

Daniel M.

que le 29/10/04 se transforme en 29/11/04 dans VBA.

MsgBox DateSerial(Year(Date), Month(Date) + 1, Day(Date))

AV

Bonjour,

Juste pour le fun, une fonction personnalisée

ÚtePlus(Date_d'orifine, Nombre d'unités, Unité)

L'unité est entrée sous la forme d'un texte
"a" ou "A" = année
"m" ou "M" = mois
"j" ou "J" ou omis = jour

Le nombre doit être un entier

Function DatePlus(ladate, nombre As Integer _
, Optional unite As String)
'Retourne une date de x unités temporelles
'après une date pré-déterminée
'Si l'unité est omise, le jour est choisi par défaut
'unité "a" = année
'unité "j"= jour
'unité "m" = mois
Dim premieredate As Date, lejour As Integer
Dim lemois As Integer, lannee As Integer
Dim nouvelledate As Date
premieredate = CDate(ladate)
lejour = Day(premieredate)
lemois = Month(premieredate)
lannee = Year(premieredate)
Select Case UCase(unite)
Case "", "J"
nouvelledate = DateSerial(lannee, lemois, lejour + nombre)
Case "M"
nouvelledate = DateSerial(lannee, lemois + nombre, lejour)
Case "A"
nouvelledate = DateSerial(lannee + nombre, lemois, lejour)
Case Else
End Select
DatePlus = FormatDateTime(nouvelledate)
End Function
<JOJO> a écrit dans le message de
news:Xns9591AE8575365JOJO@193.252.117.183...

Bonjour.

je voudrais ajouter 1mois ou 2mois à DATE ?
pas 30jours ou 60jours mais desm ois calendaires.
J'ai essayé toutes les syntaxes de DATE mais rien de marche.

merci.

Bonjour Daniel,

Encore que JOJO ne nous a pas dit ce qu'il ferait pour un 30 janvier :-)


Elles se les gèlent ! Nous ne sommes pas à une ou deux journées près !!

;-))


Salutations!

Encore que JOJO ne nous a pas dit ce qu'il ferait pour un 30 janvier :-)

Elles se les gèlent ! Nous ne sommes pas à une ou
deux journées près !!

:-)))

Tu te prépares psychologiquement pour l'hiver...
Pour nous réconforter, pensons au 31 août d'abord. :-)

Salutations,

Daniel M.