XL 2019 Fonction Fin.Mois en vba

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Avril 2022

• #2

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

VB:

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

 

Pièces jointes

• FinMois.xlsm

  13.7 KB · Affichages: 7

Vote positif 0 Vote négatif

P

patrick2a

XLDnaute Nouveau

• 20 Avril 2022

• #3

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

Cordialement.

 

Pièces jointes

• Capture d’écran Formulaire.png

  17.5 KB · Affichages: 18

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Avril 2022

• #4

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

 

Vote positif 0 Vote négatif

P

patrick2a

XLDnaute Nouveau

• 20 Avril 2022

• #5

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

 

Pièces jointes

• Echéances1.xlsm

  15.2 KB · Affichages: 5

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Avril 2022

• #6

Essayez :

VB:

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Avril 2022

• #7

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 à :

Code:

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.

 

Pièces jointes

• Echéances1.xlsm

  15.3 KB · Affichages: 8

Vote positif 0 Vote négatif

P

patrick2a

XLDnaute Nouveau

• 20 Avril 2022

• #8

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Avril 2022

• #9

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

 

Pièces jointes

• CalendPatrick2a.xlsm

  59 KB · Affichages: 6

Vote positif 0 Vote négatif

P

patrick2a

XLDnaute Nouveau

• 20 Avril 2022

• #10

Merci .
Je vais le tester pls tard.

 

Vote positif 0 Vote négatif