Convertir texte de la textebox en date

fredleng · 1 Mars 2018

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 · 1 Mars 2018

Bonsoir

Pour moi avec cette syntaxe ça fontionne

VB:

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

Bonne soirée

fredleng · 1 Mars 2018

Merci Chris24 c'est parfait.

Bien cordialement
Bonne soirée

Chris24 · 1 Mars 2018

RE

Ton code légèrement allégé

VB:

'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 · 2 Mars 2018

Bonjour,

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

Bien cordialement
Bonne journee

Chris24 · 2 Mars 2018

Bonjour fredleng

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

VB:

'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

Convertir texte de la textebox en date

fredleng

XLDnaute Nouveau

Pièces jointes

Chris24

XLDnaute Impliqué

fredleng

XLDnaute Nouveau

Chris24

XLDnaute Impliqué

fredleng

XLDnaute Nouveau

Chris24

XLDnaute Impliqué

Pièces jointes

Discussions similaires