Discussion :

[FCL31]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour le forum, FCL

essaies ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeForestier]

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+

[FCL31]

Merci

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

[casefayere]

tout dépend de tes besoins

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[FCL31]

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

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[FCL31]

Merci casefayere on dirait que tou marche comme il le faut

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

[AlainTech]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[FCL31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[FCL31]

J'avait esseyer avec se code

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

[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.

[FCL31]

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

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

[AlainTech]

Un exemple, non testé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[FCL31]

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

[AlainTech]

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.

[zenpbb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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