Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

renvoie d un textbox DATE sous forme DATE et non pas TEXTE

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Evelynetfrancois

XLDnaute Impliqué
bonjour ,
j ai completement degraissé la macro pour ne garder que l essentielle , de ma Question:


Private Sub CommandButton1_Click()
Range("B1") = Format(TextBox3, "dddd dd mmmm yyyy")

Sheets("Récap").Select

Range("a65536").End(xlUp).Cells(2, 1) = TextBox3

là bien sur la date arrive sur la feuille "Récap" mais sous forme de texte, comment la renvoyer sous forme de date ??

End Sub



MERCI pour tout vos conseils
bon dimanche

E et F
 
Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

bonjour à vous deux 🙂

as-tu essayer quelque chose comme ca ? :

Code:
With Range("b1")
    .Value = CDate(TextBox3)
    .NumberFormat = "dddd dd mmmm yyyy"
End With

salut
 
Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

MERCI pour ton aide Hervé
mais en B1 la date est bonne !!
c est au niveau du renvoie sur la feuille "Récap" qu elle arrive en texte !!!

Range("a65536").End(xlUp).Cells(2, 1) = TextBox3

là j essaye les CDATE , format etc mais rien n y fait !!

donc du coup le tri sur la Feuil "Récap" se fait par ALPHA et non par DATES !!

a te lire , merci !!

E et F
 
Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

CA Y EST MERCI vous m avez mis sur la voie !!!!!

j avais essayé désesperement = CDate(TextBox3)

en fait j ai mis

Range("a65536").End(xlUp).Cells(2, 1) = CDate(TextBox3.tag)

car a l initialisation de l USF j avais
TextBox3.Tag = Date
TextBox3.Value = Format(Date, "dddd dd mmmm")

me voila sorti d affaire , un grand merci a vous

E et F
 
Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

Oui bien sur habituellement je ne mets pas .Tag
mais dans mon cas ".Tag" est recuperé dans la suite de ma macro qui est bien plus longue que le ""bout"" envoyé "
______________________________________________
Private Sub SpinButton1_SpinUp()
With TextBox3
.Tag = DateValue(.Tag) + 1
.Value = Format(.Tag, "dddd dd mmmm")
End With
End Sub
..........................................................................
Private Sub SpinButton1_SpinDown()
With TextBox3
.Tag = DateValue(.Tag) - 1
.Value = Format(.Tag, "dddd dd mmmm")
End With
End Sub
________________________________________________

donc voila l explication de sa présence


mais tout fonctionne a merveille maintenant ? MERCI A TOUS

E et F
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
675
J
Réponses
0
Affichages
4 K
J
J
Réponses
20
Affichages
3 K
jujudeo
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…