1er et dernier jour du mois

Bonjour à tous,

Je suis sur un projet de création de quittance de loyer.

Je voudrai que lors de la création en USF que le 1er jour et le dernier jour du mois en cours apparaissent dans des textbox.

Je pense que l'un d'entre vous pourra me donner la solution.

Merci beaucoup

Amicalement

Noel

Bonjour,

Par exemple :

JourDébutMois = DateSerial(Year(Date), Month(Date), 1)
JourFinMois = DateAdd("m", 1, JourDébutMois) - 1

Cordialement.

Bonjour,

Merci pour ta réponse rapide.

Voici ce qu'il me donne comme résultat (voir fichier joint)

Quelle serait la solution pour qu'il me donne la date de fin du même mois.

@+

Merci

Noel

bonjour,

Autre exemple :

Private Sub UserForm_Initialize()
Dim DH As Date
DH = DateSerial(Year(Date), Month(Date), 1)
TextBox1.Value = DH
DH = DateAdd("m", 1, DH) - 1
TextBox2.Value = DH
End Sub

A+

Bonjour,

Essaie :

JourFinMois = DateSerial(Year(Date), Month(Date)+1, 1)-1

Bonjour,

J'ai trouvé ce code

Format(DateAdd("m", -1, JourDébutMois), "dddd dd mmmm") & " " & Format(Date, "yyyy")

J'ai testé celui d'Eric il me donne comme résultat "False".

Je n'ai pas encore testé le code de Galopin.

Pour moi il est déjà midi avec 3 heures de décalage.

Je vais mangé.

Merci

@+

Amicalement

Noel

Bonjour,

Dis quel code tu as mis pour avoir ce résultat, ou mets ton fichier, on corrigera !

Re,

Galopin, c'est bon j'ai testé ton code.

Merci de votre aide@+

Noel

Re MFerrand,

Merci de ton aide c'est réguilarisé.

@+

Noel