[XL2007] Ajouter 1 mois a une date sous vba

Bonjour à tous.

Je viens de faire un petit fichier de suivi de chèques sous excel.
J'ai une case pour le suivi d'envoi des cheques qui se font selon le jour choisi et tous les mois.
Depuis mon userform a chaque clic sur ajouter j'ajoute bien une ligne supplementaire, mon n° de cheque s'incremente de 1, et je bloque sur la date.
J'aimerais , si j'ai mis un premier encaissement au 5/6/13 que la ligne d'apres mette seule le 5/7/13 pui 5/8/13 etc...
quelqun a t'il une idée ?

Une petite copie de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub commandbutton2_Click() 'ajouter 1 dans le txtbox 4 i = i + 1 TextBox4.Text = Val(TextBox4.Text) + 1 With Sheets("feuil1") TextBox2 = Range("b65536").End(xlUp).Offset(0, 0).Value DTPicker2 = Range("e65536").End(xlUp).Offset(0, 0).Value Range("a65536").End(xlUp).Offset(1, 0) = Application.Proper(Me.TextBox1) Range("b65536").End(xlUp).Offset(1, 0) = Application.Proper((Me.TextBox2) + 1) Range("c65536").End(xlUp).Offset(1, 0) = Application.Proper(Me.TextBox3) Range("d65536").End(xlUp).Offset(1, 0) = Application.Proper(Me.DTPicker1) Range("e65536").End(xlUp).Offset(1, 0) = Application.Proper((Me.DTPicker2) + "m", 1, Date) ' c'est ici en rouge que je bloque . End With End Sub

---

Merci

Bonjour, bonjour,

merci d'utilisé l'icône # pour balisé un code comme préconisé dans les règles de ce forum …

Sinon pour ta question, voir du côté de la fonction DateAdd par exemple …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci pour la reponse rapide.

mais je suis dessus depuis ce matin, c'est dateadd qui m'a emmené a utiliser l'ecriture au dessus en rouge mais je n'ai pas le resultat voulu.

J'ai essayé tout simplement d'ajouter 31 jours mais sur 18 chèques les dates sont trot décalée a la fin .en gros il faudrait que seul les mois bougent ou alors bloquer le jour.
toujours en mode recherche !!

merci.

Mais il n'y a justement pas de DateAdd dans ton code ‼

Sinon pourquoi l'aurai-je mentionné ? :roll: Mille sabords !

Evite le mode recherche, passe en mode lecture !

c'est justement la mon souci .

Je na sais pas ou mettre ce code !!
J'ai fais un essai a la place du rouge sur mon code. Mais il doit me manquer des variables je pense.

ps: je serais tenté de dire bachibouzouk !! :ccool:

Dernière tentative : juste pour info, poste-nous la ligne

dans laquelle est écrite en toutes lettres la fonction DateAdd (alors un D, puis un A, etc jusqu'au troisième et dernier D !)

et se paramétrant comme indiqué dans son aide …

__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !

Voila ce que j'ai essayé sans succés :

Code:

---

Range("e65536").End(xlUp).Offset(1, 0) = Application.Proper((Me.DTPicker2)DateAdd("m", +1, d)

---

Merci

Effectivement, ça va pas marcher comme ça :mrgreen:

le dernier argument de la fonction correspond au champ auquel tu veux rajouter ton temps, donc ce qui est donné par ton DatePicker :

Code:

---

Range("e65536").End(xlUp).Offset(1, 0) = Application.Proper(DateAdd("m", 1,Me.DTPicker2))

---

excellent .

ca marche comme je le souhaitais.
Merci a tous .