Userform problème de date

1 pièce(s) jointe(s)

Bonjour,
J'ai beau chercher, je ne trouve pas de solution.
Je remercie d'avance tout ceux qui voudront m'aider car je :mur:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub UserForm_Initialize()
    TextBox3.Value = DateValue(Date)
End Sub
Private Sub TextBox9_Change()
 
 
Dim Texte As String
Texte = TextBox9.Text
Select Case Len(Texte)
Case 2, 5, 8, 11
Texte = Texte & " "
End Select
TextBox9.Text = Texte
End Sub
 
Private Sub TextBox10_Change()
 
 
Dim Texte As String
Texte = TextBox10.Text
Select Case Len(Texte)
Case 2, 5, 8, 11
Texte = Texte & " "
End Select
TextBox10.Text = Texte
End Sub
 
Private Sub Valider_Click()
 With Worksheets("FICHE_RDV")
 
  Sheets("FICHE_RDV").Range("B5").Value = TextBox3
  Sheets("FICHE_RDV").Range("B6").Value = TextBox4
  Sheets("FICHE_RDV").Range("B8").Value = TextBox5
  Sheets("FICHE_RDV").Range("B9").Value = TextBox6
  Sheets("FICHE_RDV").Range("B10").Value = TextBox7
  Sheets("FICHE_RDV").Range("B11").Value = TextBox8
  Sheets("FICHE_RDV").Range("B15").Value = TextBox9
  Sheets("FICHE_RDV").Range("B16").Value = TextBox10
  Sheets("FICHE_RDV").Range("B17").Value = TextBox11
  Sheets("FICHE_RDV").Range("B18").Value = TextBox12
  Sheets("FICHE_RDV").Range("B19").Value = TextBox13
End With
 
'Recuperation de la derniere ligne et inscription des données
Dim RDV As Integer
 RDV = Range("a65000").End(xlUp).Row + 1
 
Cells(RDV, 1).Value = TextBox3.Value
  Cells(RDV, 2).Value = TextBox4.Value
  Cells(RDV, 6).Value = TextBox5.Value
  Cells(RDV, 7).Value = TextBox6.Value
  Cells(RDV, 8).Value = TextBox7.Value
  Cells(RDV, 9).Value = TextBox8.Value
  Cells(RDV, 10).Value = TextBox9.Value
  Cells(RDV, 11).Value = TextBox10.Value
  Cells(RDV, 12).Value = TextBox11.Value
  Cells(RDV, 13).Value = TextBox12.Value
  Cells(RDV, 14).Value = TextBox13.Value
 
 
 
Unload Me
 
End Sub

Hélas, lorsque la date s'inscrit en date américaine dans mon tableau RDV et correctement sur ma fiche RDV.
Ci-joint mon fichier
Pièce jointe 449001

re

Bonjour

pour la fiche

Code:

Sheets("FICHE_RDV").Range("B5").Value = DateSerial(Right(TextBox3, 4), Mid(TextBox3, 4, 2), Left(TextBox3, 2))

por la feuille RDV

Code:

Cells(RDV, 1).Value = DateSerial(Right(TextBox3, 4), Mid(TextBox3, 4, 2), Left(TextBox3, 2))

au revoir;)

Bonjour à tous,

pourquoi

Code:

TextBox3.Value = DateValue(Date)

plutôt que

Code:

TextBox3.Value =Date

Si la même valeur s'écrit différemment dans deux feuilles différentes c'est peut-être que le format date des cellules est différent ?

A+

Merci

Citation:

Envoyé par patricktoulon

Bonjour

pour la fiche

Code:

Sheets("FICHE_RDV").Range("B5").Value = DateSerial(Right(TextBox3, 4), Mid(TextBox3, 4, 2), Left(TextBox3, 2))

por la feuille RDV

Code:

Cells(RDV, 1).Value = DateSerial(Right(TextBox3, 4), Mid(TextBox3, 4, 2), Left(TextBox3, 2))

au revoir;)

Milles mercis, mon problème est résolu.:):)