Transfert date d'un userform vers Excel

Version imprimable

14/04/2011, 14h10
dlight

Transfert date d'un userform vers Excel

Bonjour à tous.

J'ai une base de données dans une feuille Excel avec les informations de mes clients. Dans ces informations, il y a la date de naissance.

L'utilisateur peut demander un client ce qui lui ouvre un userform dans le quel il y a en autre le champ pour la date de naissance.

Une fois les informations terminées, il y a un bouton afin de transférer à nouveau dans une feuille Excel toutes les informations du Userform.

Si j'ai une date 25-02-1950, le transfert s'effectue sans problème. Pour le 05-02-1950 (5 février), une fois le transfert vers Excel le mois et le jour sont inversés (02-05-1950). Le problème est présent pour le jours est inférieur à 13.

Voici le code de transfert vers ma feuille Excel

Code:

If TextBox22 <> "" Then [Qiden22] = TextBox22.Value

Quelqu'un a-t-il une solution à ce problème ?

Merci

Dlight
14/04/2011, 14h37
gFZT82

Bonjour dlight,

Essaie avec

Code:

If TextBox22 <> "" Then [Qiden22] = Cdate(TextBox22.Value)
14/04/2011, 14h44
dlight

Re

Merci à vous gFZT82 mais j'ai le même résultat suite à la modification.

Dlight

contrôle

Bonjour,

Pour ma part, j'affecte ce code au contrôle "madate" de mon userform.

La valeur de ma feuille en est directement liée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub madate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
With Me.madate
 
        'Pour faire joli
 
        .Value = Application.Proper(Format(.Value, "dd mmmm yyyy"))
 
        Sheets("Données").Range("date_valeur") = DateValue(.Value)
 
End With
 
End Sub

Si cela peut aider.

14/04/2011, 17h46
dlight

Re

Merci à vous MarcelG d'avoir pris le temps de me répondre.

Je suis loin d'être un expert en VBA...

Votre code doit être placé à quel endroit ? Le transfert des informations (nom, date...) s'effectue avec un bouton de commande.

Merci encore une fois

Dlight
14/04/2011, 18h01
MarcelG

code userform

Bonsoir,

Ce code est affecté à un contrôle de ton userform.

Il doit donc être placé dans le code affecté à ton userform.

Tu peux accéder à celui-ci en double-cliquant sur le contrôle appartenant à ton userform. Ce dernier est affiché dans l'éditeur VBE dans la classe "Feuilles". Il te faut adapter le nom du contrôle et le nom de ta cellule de destination.

Pour plus de précisions, 2 bonnes lectures

Les userforms par Silkyroad

et

Les contrôles par Siljyroad

plus la Faq et le Forum évidemment.
14/04/2011, 20h36
Didier Gonard

Bonjour,

vois ceci :

III-E. Visualisation des problèmes d'interprétation (les Dates)

cordialement,

Didier
14/04/2011, 21h53
dlight

re

Merci encore une fois.

Je ferai mes devoirs sous peu !:whistle:

Dlight

Je crois que tu peux régler ce problème grâce à la fonction DateSerial
comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CommandButton1_Click()
If TextBox22 <> "" Then
    DateLocale = TextBox22.Value
 
 If Not IsDate(DateLocale) Then
  MsgBox DateLocale & " n'est pas une date"
 Else
  valeur = DateSerial(Year(DateLocale), Month(DateLocale), Day(DateLocale))
 
  [Qiden22] = valeur
 
  Debug.Print DateLocale; " = "; valeur; " = "; Format(valeur, "Long Date")
 End If
 
End If
 
End Sub