XL 2019 Convertir nombre en date dans msgbox

pat66

XLDnaute Impliqué
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

XLDnaute Accro
Bonjour
Teste ceci
VB:
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

XLDnaute Barbatruc
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.
VB:
MsgBox "Utilisation prolongée jusqu'au " & CDate([Feuil1].Range("E8")), vbOKOnly
Bonne journée.

edit: Bonjour M12, on s'est croisé;)
 

patricktoulon

XLDnaute Barbatruc
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
 

patricktoulon

XLDnaute Barbatruc
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

XLDnaute Impliqué
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

XLDnaute Barbatruc
non de dieu !!
VB:
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 ;)
 

Discussions similaires