XL 2019 Fonction Fin.Mois en vba

[patrick2a]

Bonjour à tous,
J'ai un formulaire avec 2 textbox.
Dans la première je saisis une date, je voudrais que la seconde affiche la date + 30 jours fin de mois après la sortie de la première.
J'ai essayé avec Application.WorksheetFunction.EOMONTH mais sans succès.

Je vous remercie pour votre collaboration.

Corialement

 

[sylvanu]

Bonjour Patrick,
Un essai en PJ qui à, l'air de marcher avec :

Sub Essai()
For L = 2 To 43
    Cells(L, "B") = Application.EoMonth(Cells(L, "A"), 1)
Next L
End Sub

EOMONTH function - Microsoft Support

Returns the serial number for the last day of the month that is the indicated number of months before or after start_date. Use EOMONTH to calculate maturity dates or due dates that fall on the last day of the month. This requires a start date and the use of months.

support.microsoft.com

 

[patrick2a]

Bonjour Sylvanu,
Merci pour votre réponse rapide.
Je voudrais que le calcul se fasse dans latextbox2 de mon formulaire.

Cordialement.

 

[sylvanu]

Re,
J'ai toujours eu du mal à modifier le VBA d'une image. 😂
Alors donnez nous un petit fichier test, ça évitera de tâtonner.
Une piste : N'oubliez pas qu'une TextBox revoie ... un texte, et non un nombre.
Donc si vous traitez la valeur de textbox1, utilisez Val(Textbox1.value)

Val, fonction - Support Microsoft

support.microsoft.com

 

[patrick2a]

Re
Et encore un grand merci.
Ci-joint mon fichier Excel.

 

[Dranreb]

Essayez :

Private Sub TextBox1_Change()
   Dim D As Date
   On Error Resume Next
   D = CDate(TextBox1.Text)
   If Err Then Exit Sub
   TextBox2.Text = DateSerial(Year(D), Month(D) + 1, 0)
   End Sub

 

[sylvanu]

Re, Bonjour Dranreb,
Comme quoi une PJ peut être importante.
Votre problème est que le VBA ne connait que le format américain des dates ( mm/dd/yyyy )
Or votre textbox est remplie avec un format européen ( dd/mm/yyyy ), donc ça ne peut pas marcher.
En PJ un essai. Un appui sur Essai ouvre le userform, on rempli la date on appuie sur OK et la date fin de mois s'affiche grâce à :

Private Sub BOK_Click()
    On Error GoTo Fin
    Dat = TextBox1.Value                                            ' Récupère date de textbox1
    R = Month(Dat) & "/" & Day(Dat) & "/" & Year(Dat)               ' Remet au format américain
    DateFinMois = Format(Application.EoMonth(R, 1), "dd/mm/yyyy")   ' Affiche dat fin de mois format européen
Fin:
End Sub

Evidemment j'ai supposé que vous renriez la date en format 20/04/2022 et non 04/20/2022.

 

[patrick2a]

Re
Impeccable, ça marche du tonnerre.
Merci à tous les deux d'avoir pris le temps de résoudre mon problème.
Cordialement.

 

[Dranreb]

Vous pouvez aussi déterminer la date avec un calendrier perso :

 

[patrick2a]

Merci .
Je vais le tester pls tard.