Convertir texte de la textebox en date

[fredleng]

Bonjour,

A partir d'une text box qui se nomme Saisiedatedatejour je génère une date en faisant un double clic dedans.
Ensuite quand je clique sur "terminer la journée" le report se fait bien dans la colonne de la feuille excel "tableau".
Je veux que ces dates se reportent automatiquement dans la ligne 45 de la feuille "statistique" avec les fonctions min et max.
Seulement les reports se font en 00/01/1900

Le format est bien en date
le problème vient de la colonne A (donc probablement le range de la textbox Saisiedatejour)
j'ai également essayé avec la fonction dateval
j'ai également essayé avec cdate et d'autres choses mais je n'ai pas la solution

Je ne vois pas ce que je peux faire pour que le report se fasse au format date correctement et qui fonctionne avec le filtre de la colonne .

Est-ce que je dois recrée une macro pour convertir ou insérer une fonction excel

D'avance merci pour votre aide

 

[Chris24]

Bonsoir

Pour moi avec cette syntaxe ça fontionne

If Me.saisiedatejour <> "" Then .Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1) = CDate(saisiedatejour)

Bonne soirée

 

[fredleng]

Merci Chris24 c'est parfait.

Bien cordialement
Bonne soirée

 

[Chris24]

RE

Ton code légèrement allégé

'TERMINER LA JOURNEE
Private Sub CommandButton21_Click()
Dim NbLig As Integer
With Feuil1
NbLig = .[A65000].End(xlUp).Row + 1
   
    .Range("P" & NbLig) = commentaire
    .Range("A" & NbLig) = CDate(saisiedatejour)
    .Range("B" & NbLig) = TextBox1.Value
    .Range("C" & NbLig) = TextBox2.Value
    .Range("D" & NbLig) = TextBox3.Value
    .Range("E" & NbLig) = TextBox4.Value
    .Range("F" & NbLig) = TextBox5.Value
    .Range("G" & NbLig) = TextBox6.Value
    .Range("J" & NbLig) = TextBox7.Value
    .Range("K" & NbLig) = TextBox8.Value
    .Range("L" & NbLig) = TextBox9.Value
    .Range("M" & NbLig) = TextBox10.Value
    .Range("H" & NbLig) = TextBox11.Value
    .Range("I" & NbLig) = TextBox12.Value
    .Range("N" & NbLig) = TextBox13.Value
    .Range("O" & NbLig) = TextBox14.Value
End With
End Sub

Cdt

 

[fredleng]

Bonjour,

Je te remercie Chris24 d'avoir regardé et cherché à améliorer mon code, je vais faire la modif.

Bien cordialement
Bonne journee

 

[Chris24]

Bonjour fredleng

Après une petite réorganisation des numéros de textbox, une version plus courte

'TERMINER LA JOURNEE
Private Sub CommandButton21_Click()
Dim NbLig As Integer, i As Integer
With Feuil1
NbLig = .[A65000].End(xlUp).Row + 1
    .Range("P" & NbLig) = commentaire
    .Range("A" & NbLig) = CDate(saisiedatejour) 'mettre éventuellement un contrôle se saisie
   For i = 1 To 14
       .Cells(NbLig, i + 1) = Me.Controls("TextBox" & i).Value
    Next
End With
End Sub

Bonne journée