GNT sans publicité, site mobile, fonctionnalitées exclusives...

FORMAT DATE TEXTBOX

Le
zimou
Bonjour et bonnes fêtes,
j'ai besoin de votre aides les amis.
dans mon user form j'ai besoin d'entrée 2 dates : une date de
fabrication et une date de libération, les textbox sont formatés
comme suit:
cellule B2
Private Sub Z_Date_Lib_Change()
Z_Date_Lib.Value = Format(Date, ("dd/mm/yy"))
End Sub

Celule A2
Private Sub Z_Fab_date_Change()
Z_Fab_date.Value = Format(Date, ("dd/mm/yy"))
End Sub

ce format me donne automatiquement la date du système sous le
format"dd/mm/yy". ce que je veux moi c'est que ce format soit affecté
aux dates entrées. quelles l'instruction à introduir pour que sur mon
fichier excel quelque soit le format de la date saisie des les textbox
les dates s'afficheront sous le format "dd/mm/yy" ?.

en suite j'ai besoin d'utiliser ces dates pour faire un calcul
"DateDiff("d",Z_Date_Lib,Z_Fab_date), dans la cellule C2. quelle est la
procédure exacte SVP.
sub ?
.

End sub.

merci
amicalement
Zimou
Lire les 3 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
claudy
Le #4142941
Hello essaie ceci:
cellule B2
Private Sub Z_Date_Lib_Change()
Z_Date_Lib.Value = Cdate(Format(Date, ("dd/mm/yy")))
End Sub

Celule A2
Private Sub Z_Fab_date_Change()
Z_Fab_date.Value = Cdate(Format(Date, ("dd/mm/yy")))
End Sub

a+
Claudy

"zimou"
Bonjour et bonnes fêtes,
j'ai besoin de votre aides les amis.
dans mon user form j'ai besoin d'entrée 2 dates : une date de
fabrication et une date de libération, les textbox sont formatés
comme suit:
cellule B2
Private Sub Z_Date_Lib_Change()
Z_Date_Lib.Value = Format(Date, ("dd/mm/yy"))
End Sub

Celule A2
Private Sub Z_Fab_date_Change()
Z_Fab_date.Value = Format(Date, ("dd/mm/yy"))
End Sub

ce format me donne automatiquement la date du système sous le
format"dd/mm/yy". ce que je veux moi c'est que ce format soit affecté
aux dates entrées. quelles l'instruction à introduir pour que sur mon
fichier excel quelque soit le format de la date saisie des les textbox
les dates s'afficheront sous le format "dd/mm/yy" ?.

en suite j'ai besoin d'utiliser ces dates pour faire un calcul
"DateDiff("d",Z_Date_Lib,Z_Fab_date), dans la cellule C2. quelle est la
procédure exacte SVP.
sub ?
.......
...
End sub.

merci
amicalement
Zimou
MichDenis
Le #4142821
Pour affecter un format particulier aux cellules devant
contenir le contenu "date" de tes textbox

Range("A1").NumberFormat = "DD MMM YYYY"
Range("A1").Value = cdate(textbox1)



"zimou"
Bonjour et bonnes fêtes,
j'ai besoin de votre aides les amis.
dans mon user form j'ai besoin d'entrée 2 dates : une date de
fabrication et une date de libération, les textbox sont formatés
comme suit:
cellule B2
Private Sub Z_Date_Lib_Change()
Z_Date_Lib.Value = Format(Date, ("dd/mm/yy"))
End Sub

Celule A2
Private Sub Z_Fab_date_Change()
Z_Fab_date.Value = Format(Date, ("dd/mm/yy"))
End Sub

ce format me donne automatiquement la date du système sous le
format"dd/mm/yy". ce que je veux moi c'est que ce format soit affecté
aux dates entrées. quelles l'instruction à introduir pour que sur mon
fichier excel quelque soit le format de la date saisie des les textbox
les dates s'afficheront sous le format "dd/mm/yy" ?.

en suite j'ai besoin d'utiliser ces dates pour faire un calcul
"DateDiff("d",Z_Date_Lib,Z_Fab_date), dans la cellule C2. quelle est la
procédure exacte SVP.
sub ?
.......
...
End sub.

merci
amicalement
Zimou
zimou
Le #4142681
bonjour claudy et merci pour la réponse.
j'ai essaié ta proposition, mais elle ne solutionne pas le problème,
j'ai toujour l'apparition de la date système dans textbox
automatiquement sous le format "dd/mm/yyyy".
merci
CLT
Zimou

Hello essaie ceci:
cellule B2
Private Sub Z_Date_Lib_Change()
Z_Date_Lib.Value = Cdate(Format(Date, ("dd/mm/yy")))
End Sub

Celule A2
Private Sub Z_Fab_date_Change()
Z_Fab_date.Value = Cdate(Format(Date, ("dd/mm/yy")))
End Sub

a+
Claudy

"zimou"
Bonjour et bonnes fêtes,
j'ai besoin de votre aides les amis.
dans mon user form j'ai besoin d'entrée 2 dates : une date de
fabrication et une date de libération, les textbox sont formatés
comme suit:
cellule B2
Private Sub Z_Date_Lib_Change()
Z_Date_Lib.Value = Format(Date, ("dd/mm/yy"))
End Sub

Celule A2
Private Sub Z_Fab_date_Change()
Z_Fab_date.Value = Format(Date, ("dd/mm/yy"))
End Sub

ce format me donne automatiquement la date du système sous le
format"dd/mm/yy". ce que je veux moi c'est que ce format soit affecté
aux dates entrées. quelles l'instruction à introduir pour que sur mon
fichier excel quelque soit le format de la date saisie des les textbox
les dates s'afficheront sous le format "dd/mm/yy" ?.

en suite j'ai besoin d'utiliser ces dates pour faire un calcul
"DateDiff("d",Z_Date_Lib,Z_Fab_date), dans la cellule C2. quelle est la
procédure exacte SVP.
sub ?
.......
...
End sub.

merci
amicalement
Zimou


Publicité
Suivre les réponses
Poster une réponse
Anonyme