Copier date depuis userform

[David590]

Bonsoir à tous,

J'essai de copier une date depuis la textbox d'un userform vers une cellule qui est bien en format date avec le code ci dessous
Par contre comment puis je faire pour que la date de la textbox copié qui est par exemple 10/12 s'affiche comme ceci "10 décembre 2011" dans la cellule

Range("C10") = UserForm1.TextBox1
Unload UserForm1

 

[mth]

Re : Copier date depuis userform

Bonsoir,

Si c'est une question de format de cellule, tu peux peut-être rajouter ceci ?:

Range("C10").NumberFormat = "dd mmmm yyyy"

A tout hasard ...

Bonne soirée,

mth

 

[David590]

Re : Copier date depuis userform

Effectivement, j'avais essayé plusieurs truc dans le genre mais ça ne fonctionne pas

Ci joint un fichier exemple avec le code que tu m'as donné en plus

 

[mth]

Re : Copier date depuis userform

re 🙂

Soit j'ai fumé un truc trop fort, soit il n'y a pas de Userform dans ton fichier 😕

@ + 🙂

mth

 

[David590]

Re : Copier date depuis userform

sorry, je me suis planté de fichier, je modifie

 

[David590]

Re : Copier date depuis userform

ça y est, j'ai mis le bon, je nage dans mes fichier

 

[mth]

Re : Copier date depuis userform

re 🙂

De mon coté ça fonctionne avec ça:

Private Sub CommandButton1_Click()
    Range("C10") = Me.TextBox1.Value
    Range("C10").NumberFormat = "dd mmmm yyyy"
    Unload Me
End Sub

Vois si c'est ok pour toi également,

@ + 🙂

mth

 

[David590]

Re : Copier date depuis userform

C'est presque ça, tu as mis le .value que je n'avais pas mis

Neanmoins quand je tape 10/12 il me mets 12 Octobre au lieu de 10 Décembre, en fait il interprete 12/10 au lieu de 10/12, c'est certainement en anglais, est il possible d'inverser?

 

[mth]

Re : Copier date depuis userform

re 🙂

Autre essai:

Private Sub CommandButton1_Click()
Range("C10") = CDate(Format(UserForm1.TextBox1 & "/" & Year(Date), "dd mmmm yyyy"))
Unload UserForm1
End Sub

@ + 🙂

mth

 

[David590]

Re : Copier date depuis userform

Super ca marche,

Par contre je peux pas changer l'année en tapant 10/12/09, c'est bien qu'il se mette par défaut sur 2011 quand je ne précise pas mais au cas où, j'aimerai quand même pouvoir changer l'année si c'est possible

 

[mth]

Re : Copier date depuis userform

re 🙂

Bon, j'attendais un peu ta réponse, mais là je n'y vois plus clair, je regarderai ça demain si jamais tu n'as pas d'autres réponses d'ici là (... ce qui m'étonnerais 🙂 )

Bonne nuit et @ + 🙂

mth

 

[David590]

Re : Copier date depuis userform

ok pas de problème, je crois qu'il y a un peu de décalage entre les réponses posté car je répondais à chaque fois tout de suite

Bonne nuit
@+

 

[mth]

Re : Copier date depuis userform

Bonjour à tous 🙂 bonjour David 🙂,

Voici un autre essai avec ce code:

Private Sub CommandButton1_Click()
Dim tablo As Variant
Dim D As Long, M As Long, Y As Long
On Error Resume Next
tablo = Split(Me.TextBox1, "/")
D = tablo(0)
M = tablo(1)
Y = tablo(2)
If Err.Number = 9 Then Y = Year(Date)
Range("C10") = CDate(D & " " & M & " " & Y)
Range("C10").NumberFormat = "dd mmmm yyyy"
Unload Me
End Sub

Bonne journée,

mth

 

[David590]

Re : Copier date depuis userform

Bonjour à tous, bonjour mth,

C'est parfait, grand merci à toi

@+ 😎