PROBLEME DE DATE userform et base de données

Question

J'ai une base de données sous excel avec une interface en userform. L'objectif est la création - modification ou suppression d'informations. J'ai 2 problèmes sur lesquels je bute . J'ai fait un poste sur mon 1ier problème Voici celui pour lequel je sollicite de l'aide : le 2nd problème porte sur la date : dans ma base de données, il arrive que la date ne soit pas remplie. Quand j'appelle les infos, l'absence de données ressort avec le format 00:00:00. je souhaiterais que la zone reste vide pour une saisie éventuel. J'espère être clair et joins un fichier pour faciliter mon propos. Quelqu'un peut-il m'aider????...

ddetp88 · Answer

Dans ton combobox_change je te propose de faire un test avant d'inscrire la date. Le code avec le test: if then ... else.... end if cordialement ddetp88 Private Sub Cmb_Trouver_Employe_Change() On Error GoTo Gestion_Erreurs 'gestion des erreurs Index = Me.Cmb_Trouver_Employe.ListIndex + 1 'qd je pointe dans la liste le nième employé, la propriété listindex prend la valeur 3 listindex commençant à 0 With Me .Txt_Nom.Enabled = True 'on rend accessible les zones à partir du moment où un employé est sélectionné .Txt_Prenom.Enabled = True .Txt_Date_Embauche.Enabled = True .Txt_Salaire.Enabled = True .Cmb_Services.Enabled = True End With With Employe .MATRICULE = Sheets("Liste").Range("Debut").Offset(Index, 0) 'si jointe le 4eme employe, il récupère en fonction de la variable index son matricule .NOM = Sheets("Liste").Range("Debut").Offset(Index, 1) .PRENOM = Sheets("Liste").Range("Debut").Offset(Index, 2) .DATE_EMBAUCHE = Sheets("Liste").Range("Debut").Offset(Index, 3) .SERVICE = Sheets("Liste").Range("Debut").Offset(Index, 5) .SALAIRE = Sheets("Liste").Range("Debut").Offset(Index, 6) End With With Me 'il affiche les données correspdt à la sélection .Txt_Matricule = Employe.MATRICULE .Txt_Nom = Employe.NOM .Txt_Prenom = Employe.PRENOM If Employe.DATE_EMBAUCHE = 0 Then .Txt_Date_Embauche = Empty Else .Txt_Date_Embauche = Employe.DATE_EMBAUCHE End If .Txt_Salaire = Employe.SALAIRE .Txt_Anciennete = Employe.ANCIENNETE .Cmb_Services = Employe.SERVICE End With Exit Sub Gestion_Erreurs: ': pour que ce soit une étiquette Erreur.Affichage_Message 'j'affiche le msge à l'utilisateur Erreur.Traitement_Erreur Err.Number 'je traite l'erreur End Sub...