Bonsoir la team,
avant tout merci pour vos réponses dhany et eriiic ,
après une courte recherche sur le web j'ai réussi à trouvé la solution et je la partage ici si ça peut aider quelqu'un qui à le même problème.
voilà un aperçu du calendrier que j'ai insérer dans mon UserForm
et voilà le code de mon formulaire, qui m'aide a remplir les champs vide de mon tableau
Private Sub cmdAjouter_Click()
Dim numLigneVide As Integer
'On active la feuille "Répa intérieur"
Worksheets("Répa intérieur").Activate
'On trouve la dernière ligne vide du tableau et on enregistre le numéro de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(3).Find("").Row
'On vérifie que les champs obligatoires sont correctement remplis
If TxtNom.Text = "" Then
MsgBox "Veuillez remplir le nom du Client", vbCritical, "Champs manquant"
TxtNom.SetFocus
ElseIf TxtDteRec.Text = "" Then
MsgBox "Veuillez remplir la date de récéption", vbCritical, "Champs manquant"
TxtDteRec.SetFocus
Else
'On remplit les données dans notre tableau
ActiveSheet.Cells(numLigneVide, 3) = UCase(TxtNom.Text)
ActiveSheet.Cells(numLigneVide, 4) = TxtDteRec.Text
ActiveSheet.Cells(numLigneVide, 5) = TxtDesign.Text
ActiveSheet.Cells(numLigneVide, 6) = TxtRefMachine.Text
effectivement la date s'affiche correctement quand on utilise le calendrier en FR, et en anglais américain ( la date comme mois et le mois comme date) quand on valide l'ajout des données saisie dans le le formulaire.
Pour résoudre ce problème j'ai rajouté cette ligne de commande après le code ci-dessus
'Mettre la date au bon format
ActiveSheet.Cells(numLigneVide, 4) = CDate(TxtDteRec.Value) 'date