RECHERCHEV sur un userform

Bonjour tout le monde Mon Probléme est le suivant :

J'ai mis en place un Formulaire de saisie et de recherche (recherchev) mon probléme est dans les textesbox format date :

Si je met un évent Change et le code du format " dd / mm / yyyy " il me donne des dates aléatoire des que je tape le premier chiffre dans la textebox
Si ke met un évent Afterupdate et le même code il me donne la main pour taper une date sous format dd/mm/yyyy mais quand je fais une recherche il me sort la date en chiffre exemple "42564" j'ai essayer d'aller dans le boutton de la recherche et déclarer le format recherché en CDATE plutot que CSTR mais il me met erreur 13 type mismach il ne reconnait pas le format
alors que dans la BASE DE DONNES C'est en format date normal, Merci d'avance

voici mes deux codes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub DATE_REC_BOX_AfterUpdate() Me!DATE_REC_BOX = Format(DATE_REC_BOX, " dd/Mm/yyyy") End Sub   If NOUVEAU = "" Then   MsgBox (" Veuillez saisir le Matricule dans le champs vide avant d'entamer la recherche !!!.") Else no_ligne = NOUVEAU.ListIndex + 3 If WorksheetFunction.CountIf(Sheets("bdd").Range("A:A"), Me.NOUVEAU.Value) = 0 Then MsgBox (" Cet Agent n'existe pas dans la Base de données !!! Veuillez verifier la syntaxe du Matricule.") Else   With Me . DATE_AFF_BOX = Application.WorksheetFunction.VLookup(CDate(Me.NOUVEAU), Sheets("bdd").Range("base"), 9, 0) DATE_REC_BOX = Application.WorksheetFunction.VLookup(CDate(Me.NOUVEAU), Sheets("bdd").Range("base"), 6, 0)   End With End If End If End Sub

---

Citation:

---

Envoyé par Zbentot

Si ke met un évent Afterupdate et le même code il me donne la main pour taper une date sous format dd/mm/yyyy mais quand je fais une recherche il me sort la date en chiffre exemple "42564"

---

Dans Excel, les dates sont toujours du type du nombre que tu donnes en exemple.
Le format date de type jj/mm/aa ou autre est juste une question d'affichage.

Donc, si tu veux que ta date apparaisse au format que tu souhaites, il faudra passer par une fonction de type Format() (en VBA) ou TEXTE() (en Excel).
Si c'est pour un affichage (un MsgBox par exemple), fais-le dans la commande d'affichage.
Si tu veux le conserver ainsi dans une variable, il faudra que ce soit une variable de type String. Mais dans ce cas, ta valeur ne sera plus une vraie date.
Si le résultat est à afficher dans une cellule, le mieux est de mettre ta cellule au format date souhaité.