Problème de date dans une textbox

Bonjour

j'ai crée un formulaire d'inscription d'adhérents pour une association. j'ai quelques Textbox dans lesquelles je dois saisirr des dates (dates de saisie du formulaire, dates pour encaissements des cotisations , dates pour certificat médical, date de naissance etc ) je valide ces données et les insère dans un tableau via un bouton de commande. une fois validée certaines dates sont fausses c'est à dire le jour et le mois sont inversés ( 12/06/2020 devient 06/12/2020) je ne comprends pas pourquoi

j'ai essayé ce code Cells(derligne, 2) = CDate(TxtDateSaisie.Value) alors ça fonctionne si je remplis la textbox sinon ca met un message d'erreur.

comment dois je faire si je n'ai pas à remplir des textbox

comment dis je faire pour éviter cette inversion ?

Private Sub CommandButton1_Click()

Sheets("Bdd_licencie").Select

Dim derligne As Integer

If MsgBox("Confirmez-vous cet ajout", vbYesNo, "Confirmation") = vbYes Then

derligne = Sheets("BDD_licencie").Range("A456541").End(xlUp).Row + 1

' ajout des données concernant l'adhérent

Cells(derligne, 1) = TxtNom.Value & " " & TxtPrenom.Value

Cells(derligne, 2) = CDate(TxtDateSaisie.Value)

Cells(derligne, 3) = TxtAdresse.Value

end if

end sub

Bonjour,

Tu peux mettre la poussière sous le tapis :

On Error resume Next
Cells(derligne, 2) = CDate(TxtDateSaisie.Value)
On Error Goto 0

A+

Bonjour,

Ou, plutôt que de cacher la poussière, nettoyons la!

If TxtDateSaisie.Text <> vbNullString Then Cells(derligne, 2) = CDate(TxtDateSaisie.Value)

Ou, encore mieux (plus meilleur )

If IsDate(TxtDateSaisie.Text) Then Cells(derligne, 2) = CDate(TxtDateSaisie.Value)