Microsoft 365 récupérer format date d'un textbox dans mon tableau

[tahon.patrice]

bonjour à tous,

j'ai un soucis. dans mon userform j'ai bien la date du jour qui s'affiche au bon format de date JJ/MM/AA
lmais dès que valide ma donnée elle se retouve dans un autre format dans mon tableau.
Je ne parviens pas à résoudre ce problème.
Quelqu'un aurait une idée ?
merci à tous
Patrice

 

[sylvanu]

Bonjour Patrice,
VBA ne parle qu'anglais donc il interprète la date en notation anglaise.
Testez :

ActiveCell = CDate(" " & Textdate.Value)

L'espace rend la date comme une chaine et non comme une date, ce qui berne le VBA.

 

[ChTi160]

Bonjour tahon.patrice
ce que j'ai modifié (perfectible)

'procedure pour valider saisie dans base de donnees

Private Sub btnajout_Click()
    With Sheets("index")
       With .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
              .Value = DateValue(Textdate.Value)
              .Offset(0, 1) = Textjour.Value
              .Offset(0, 2).Value = Textnuit.Value
    End With
    End With
End Sub

Bonne Journée
Jean marie

 

[tahon.patrice]

Bonjour Patrice,
VBA ne parle qu'anglais donc il interprète la date en notation anglaise.
Testez :

ActiveCell = CDate(" " & Textdate.Value)

L'espace rend la date comme une chaine et non comme une date, ce qui berne le VBA.

MERCI BEAUCOUP ! aussi pour votre réactivité

 

[tahon.patrice]

Bonjour tahon.patrice
ce que j'ai modifié (perfectible)

'procedure pour valider saisie dans base de donnees

Private Sub btnajout_Click()
    With Sheets("index")
       With .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
              .Value = DateValue(Textdate.Value)
              .Offset(0, 1) = Textjour.Value
              .Offset(0, 2).Value = Textnuit.Value
    End With
    End With
End Sub

Bonne Journée
Jean marie

C'est en effet plus organisé
merci bcp

 

[ChTi160]

Re
Oupsss pas Vu! Bonjour sylvanu !
Patrice , il faut aussi éviter d'utiliser des Activate et Autres Select ....
Jean marie