Problème de date ou de format de date?

Le
Patou
Bonjour,
Voilà mon problème, à l'ouverture d'un UserForm, je voudrais avoir la date
du jour qui apparaît sous la forme JJ/MM/AAAA
J'ai donc écrit dans UF initialize
Me.TextBox1 = Format(Now, "dd/mm/yyyy").
résultat: 01/08/2009
Jusque là parfait (me semble-t-il)
Donc,je peut soit la conserver telle quelle, soit la modifier.
Après avoir rempli les autres textbox, je valide .
Pour transférer me données, j'ai écrit la formule suivante
Range("B5").Value = TextBox1.Value
La, problème la date devient
08/01/2009.
J'ai essayé des tas de truc en essayant une mise en forme avec DD/MM/YYYY
Rien???
Merci d'avance de m'aider
Patrick
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
Caetera
Le #19864421
"Patou" C6999DBC.274%

Voilà mon problème, à l'ouverture d'un UserForm, je voudrais avoir la date
du jour qui apparaît sous la forme JJ/MM/AAAA
J'ai donc écrit dans UF initialize
Me.TextBox1 = Format(Now, "dd/mm/yyyy").


............................
Range("B5").Value = TextBox1.Value



*************

Range("B5").Value = CDate(TextBox1.Value)

Etc
Patou
Le #19864401
Le 1/08/09 7:45, dans , « Caetera »

Range("B5").Value = CDate(TextBox1.Value)



Ca marche !!!
Mille merci
Patrick
MichDenis
Le #19865831
Bonjour Patou,

| Range("B5").Value = CDate(TextBox1.Value)

C'est très bien !
Mais que se passe-t-il si lors d'une modification, il y a
une erreur de frappe pour la date saisie dans le textbox
et que le texte ne représente pas une "vraie date" ?

Il est préférable de tester le contenu du textbox d'abord ...
if isdate(Me.textbox) = True Then
Range("B5").Value = CDate(TextBox1.Value)
else
Msgbox "Le contenu du textbox1 ne représente pas une date."
End if




"Patou" C6999DBC.274%
Bonjour,
Voilà mon problème, à l'ouverture d'un UserForm, je voudrais avoir la date
du jour qui apparaît sous la forme JJ/MM/AAAA
J'ai donc écrit dans UF initialize
Me.TextBox1 = Format(Now, "dd/mm/yyyy").
résultat: 01/08/2009
Jusque là parfait (me semble-t-il)
Donc,je peut soit la conserver telle quelle, soit la modifier.
Après avoir rempli les autres textbox, je valide .
Pour transférer me données, j'ai écrit la formule suivante
Range("B5").Value = TextBox1.Value
La, problème la date devient
08/01/2009.
J'ai essayé des tas de truc en essayant une mise en forme avec DD/MM/YYYY
Rien???
Merci d'avance de m'aider
Patrick
Publicité
Poster une réponse
Anonyme