XL 2019 Convertir nombre en date dans msgbox

[pat66]

Bonjour Le forum,

Je souhaite grâce à une macro que le message box affiche la date ainsi (dd/mm/yyyy),
Je précise que la cellule (Feuil 5, cellule E8) qui contient la date en nombre (ex : 44145) est volontaire

voila ce que j'utilise mais je n'y arrive pas, j'ai essayé Cdate, number format , etc.. mais le message box affiche : faux

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
[Feuil5].Range("E6").Value = Format(Date, "mm/dd/yyyy")
MsgBox ("Utilisation prolongée jusqu'au " & [Feuil5].Range("E8").Selection.NumberFormat = "dd/mm/yyyy"), vbOKOnly
End Sub

Je vous remercie pour votre aide

belle journée à toutes et à tous

Patrick

 

[M12]

Bonjour
Teste ceci

Private Sub CommandButton3_Click()
  Application.ScreenUpdating = False
  [Feuil1].Range("E6").Value = Format(Date, "mm/dd/yyyy")
  [Feuil1].Range("E8").Value = Format([Feuil1].Range("E8").Value, "mm/dd/yyyy")
  MsgBox "Utilisation prolongée jusqu'au " & [Feuil1].Range("E8"), vbOKOnly
End Sub

 

[cp4]

Bonjour Le forum,

Je souhaite grâce à une macro que le message box affiche la date ainsi (dd/mm/yyyy),
Je précise que la cellule (Feuil 5, cellule E8) qui contient la date en nombre (ex : 44145) est volontaire

voila ce que j'utilise mais je n'y arrive pas, j'ai essayé Cdate, number format , etc.. mais le message box affiche : faux

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
[Feuil5].Range("E6").Value = Format(Date, "mm/dd/yyyy")
MsgBox ("Utilisation prolongée jusqu'au " & [Feuil5].Range("E8").Selection.NumberFormat = "dd/mm/yyyy"), vbOKOnly
End Sub

Je vous remercie pour votre aide

belle journée à toutes et à tous

Patrick

Bonjour,
Peut-être comme ci-dessous, Cdate fonctionne parfaitement.

MsgBox "Utilisation prolongée jusqu'au " & CDate([Feuil1].Range("E8")), vbOKOnly

Bonne journée.

edit: Bonjour M12, on s'est croisé😉

 

[patricktoulon]

bonjour
non non non !! au grand jamais il faut faire ça
[Feuil1].Range("E6").Value = Format(Date, "mm/dd/yyyy")

d’après vous vous mettez quoi dans la E6 une date ou un string ???

with Feuil1.Range("E6"):.Value = date:.numberformat="dd/mm/yyyy":end with

 

[pat66]

Bonjour tous

merci pour votre aide,
j'ai testé la solution de CP4 elle fonctionne parfaitement
Je vais tester celle de PatrickToulon mais j'ai pas tout compris

 

[cp4]

Bonjour tous

merci pour votre aide,
j'ai testé la solution de CP4 elle fonctionne parfaitement
Je vais tester celle de PatrickToulon mais j'ai pas tout compris

La proposition de Patrick écrite autrement que tu comprendras mieux

Feuil1.Range("E6").Value = Date
Feuil1.Range("E6").NumberFormat = "dd/mm/yyyy"

edit: Oupsss!😉 Bonjour Patrick

 

[patricktoulon]

re
ben ta pas tout compris
ben c'est simple
on entre jamais dans une cellule le format d'une date
jamais!!!!
on entre une date et si tu la veux en numéro de série de date
c'est la cellule que tu formate et pas la valeur
on entre une date dans une cellule par date, cdate(la date),dateserial
et pas autrement
conclusion vos codes pas bon de A a Z

 

[pat66]

re
ben ta pas tout compris
ben c'est simple
on entre jamais dans une cellule le format d'une date
jamais!!!!
on entre une date et si tu la veux en numéro de série de date
c'est la cellule que tu formate et pas la valeur
on entre une date dans une cellule par date, cdate(la date),dateserial
et pas autrement
conclusion vos codes pas bon de A a Z

re
Patrick, tu m'as déjà aidé sur d'autres sujets et j'aimerai tester ta solution mais je ne sais pas l'écrire, pourrait tu m'aider à écrire cette macro à ta façon ?
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
[Feuil5].Range("E6").Value = Format(Date, "mm/dd/yyyy")
MsgBox ("Utilisation prolongée jusqu'au " & [Feuil5].Range("E8").Selection.NumberFormat = "dd/mm/yyyy"), vbOKOnly
End Sub

merci

 

[patricktoulon]

non de dieu !!

Private Sub CommandButton3_Click()

Application.ScreenUpdating = False'a quoi ça sert ça

with Feuil5

.Range("E6").Value =date:.Range("E6").numberformat="dd/mm/yyyy"

MsgBox "Utilisation prolongée jusqu'au " & cdate(.Range("E8")), vbOKOnly

end with

End Sub

et basta 😉

 

[pat66]

Un grand merci à tous les deux pour votre générosité

maintenant tout est clair et surtout épuré grâce à vous

belle soirée à vous