Format de date dans un UserForm

:salut:

Dans un UserForm, j'ai une TextBox dans laquelle je saisie une date avec le code suivant :

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox3_Change() TextBox3.MaxLength = 10 Valeur = Len(TextBox3) If Valeur = 2 Or Valeur = 5 Then TextBox3 = TextBox3 & "/" If Len(TextBox3) = 10 And Not IsDate(TextBox3) Then TextBox3 = "" Range("B13").Value = TextBox3 End Sub

---

Comme vous pouvez le voir, je recupere la date saisie pour la copier dans une cellule de la feuille Excel

La date est saisie au format jj/mm/aa

Et je voudrais qu'elle soit affiché au format au format jj/mm/aaaa dans la cellule où elle est copiée

J'ai regardé un peu partout dans le forum, plein de post parle du sujet mais j'y ai pas trouvé de solution



Au passage petite question autre pour le format date, je vooudrais un peu la même chose avec un format nombre (simplement un espace entre les milliés et les centaines



Peut un petit code au niveau des cellules et sufisant

Bonjour le forum, FCL

essaies ce code

Code:

---

Range("B13").Value = format(TextBox3,"dd/mm/yyyy")

---

Bonjour,
Je ne sais pas s'il y a le contrôle Microsoft MaskEdBox d'origine dans excel (j'ai aussi VB6), si oui, pour entrer une date c'est l'idéal avec un masque.
Tu teste dans l'événement change mais tu pourrais le faire dans KeyDown avec KeyCode=13
Pour formater un nombre comme tu demande...
Cells(Y,X) = format(Cells(Y,X),"### ### ###.000") par exemple.
A+

Merci

Pour les dates sa a l'air de marcher mais quelqu'un aurrait'il une idée pour le format nombre ??

tout dépend de tes besoins

Code:

---

= format(TextBox3,"0##.###.00")

---

ce n'est qu'un exemple, attention au textbox concerné !!

Je vien de m'appersevoir que pour les date sa m'inverse les mois et les jours :( :

Sa me l'ecrit sous la forme mm/jj/aaaa alors que je saisi jj/mm/aa :mur:

C'est l'inverse (ne me demandes pas pourquoi)

Code:

---

Range("B13").Value = format(TextBox3,"mm/dd/yyyy")

---

Merci casefayere on dirait que tou marche comme il le faut :king:

Si j'ai un probléme je reviendrais vous voir mais en attendent je met :resolu:

Citation:

---

Envoyé par casefayere

C'est l'inverse (ne me demandes pas pourquoi)

Code:

---

Range("B13").Value = format(TextBox3,"mm/dd/yyyy")

---

---

Il faut éviter de forcer le format de ce qui est écrit dans une cellule Excel.
Pour Excel, une date est un nombre.
Pour générer ce nombre il faut utiliser CDate() qui prendra les paramètres locaux de Windows:

Code:

---

Range("B13").Value = CDate(TextBox3)

---

Pour que l'affichage de ce nombre se fasse en format date, il faut changer le format de la cellule:

Code:

---

Range("B13").NumberFormat = "dd/mm/yyyy"

---

Désoler AlainTech mais sa marche pas se que tu me donne comme code

Ou alors je n'arrive pas a l'appliquer au mien

Je te rappelle mon code

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox3_Change() TextBox3.MaxLength = 10 Valeur = Len(TextBox3) If Valeur = 2 Or Valeur = 5 Then TextBox3 = TextBox3 & "/" If Len(TextBox3) = 10 And Not IsDate(TextBox3) Then TextBox3 = "" Range("B13").Value = Format(TextBox3, "mm/dd/yyyy") End Sub

---

Peut etre qu'il faut supprimer des lignes a mon code déjà existant

Citation:

---

Envoyé par FCL31

Désoler AlainTech mais sa marche pas se que tu me donne comme code

---

Pas très constructif comme réponse.
Qu'est-ce qui ne marche pas?
Un message d'erreur?

En reprenant ton code, je verrais quelque chose du genre:

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox3_Change() TextBox3.MaxLength = 10 Valeur = Len(TextBox3) If Valeur = 2 Or Valeur = 5 Then TextBox3 = TextBox3 & "/" If Len(TextBox3) = 10 And Not IsDate(TextBox3) Then TextBox3 = "" Range("B13").NumberFormat = "dd/mm/yyyy" Range("B13").Value = CDate(TextBox3) End Sub

---

Ceci dit, en relisant ton code, je me dis que ça doit planter pas mal puisque tu écris dans ta cellule à chaque modification dans TextBox3, que la date soit valide ou pas.

J'avait esseyer avec se code

j'ai mis une impression d'ecran du message d'erreur que sa m'affiche

Citation:

---

Envoyé par AlainTech

Ceci dit, en relisant ton code, je me dis que ça doit planter pas mal puisque tu écris dans ta cellule à chaque modification dans TextBox3, que la date soit valide ou pas.

---

Tu confirmes donc ce que je pensais.

Tu devrais n'écrire dans la cellule que quand ta date est validée.

Citation:

---

Envoyé par AlainTech

Tu confirmes donc ce que je pensais.

Tu devrais n'écrire dans la cellule que quand ta date est validée.

---

Je ne comprend pas ce que tu veu dire :oops:

Comment puis-je donc validée la date pour pouvoir l'ecrire dans la cellules :question::question:

Un exemple, non testé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TextBox3_Change() TextBox3.MaxLength = 10 Valeur = Len(TextBox3) If Valeur = 2 Or Valeur = 5 Then TextBox3 = TextBox3 & "/" If Len(TextBox3) = 10 And Not IsDate(TextBox3) Then TextBox3 = "" Else Range("B13").NumberFormat = "dd/mm/yyyy" Range("B13").Value = CDate(TextBox3) End If End Sub

---

Désolé, j'ai toujour la même erreur :( :( :(

Je ne peux que te conseiller de faire du pas à pas et de regarder le contenu de TextBox3 avant de faire le CDate.

De plus, je ne trouve pas très judicieux d'écrire dans la cellule à l'intérieur de l'événement Change de TextBox3.
Je le ferais plutôt sur la validation du usf.

Bonjour,

Une petite modification dans le code proposé par AlainTech et ça devrait marcher (écriture de la date dans la cellule QUE si le texte fait 10 caractères ET qu'il représente une date valide) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub TextBox3_Change() TextBox3.MaxLength = 10 Valeur = Len(TextBox3) If Valeur = 2 Or Valeur = 5 Then TextBox3 = TextBox3 & "/" If Len(TextBox3) = 10 Then If Not IsDate(TextBox3) Then TextBox3 = "" Else Range("B13").NumberFormat = "dd/mm/yyyy" Range("B13").Value = CDate(TextBox3) End If End If End Sub

---