Discussion :

[dlight]

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 :

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

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

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

Merci

Dlight

[gFZT82]

Bonjour dlight,

Essaie avec

Code :

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

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

[dlight]

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

Dlight

[MarcelG]

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 :

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

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.

[dlight]

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

[MarcelG]

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.