Bonjour,
Sauf que lorsque je clique sur le bouton "Ajouter" il m'affiche une fenêtre avec le N° du dernier marché
Hum.... oui. Dans le code "dernierecellulevide", j'ai laissé par erreur la ligne Msgbox worksheetfunction.max(.... qui me servait pour effectuer un contrôle. Il suffit de la supprimer.
Seulement il m'a demandé pour le champ "Chargé de Mission" comment faire pour que l'on soit sûr que l'agent qui rempli ce champ soit le vrai agent ?
Dans votre feuille "Codifications listes", en colonne A, vous avez la liste des chargés de mission.
Déjà faire ceci :
- allez dans votre USF et cliquez sur la combo "chargé de mission"
- Allez dans les propriétés de cette Combo, allez à la propriété "Style"
- dans le liste déroulante choisissez l'option 2 (fmstypedropdownlist)
- allez dans le code btnAjout_click et au début du code juste avant le WITH...., ajoutez cette ligne
If cboChargeMission.Value = vbNullString Then MsgBox "Veuillez choisir un chargé de mission": Exit Sub
Cette ligne obligera l'utilisateur à compléter la combo avant que les données ne soient enregistrées après click sur le bouton Ajout.
Cela obligé à utiliser la liste des agents disponibles et ne pas pouvoir en ajouter si non prévu dans la liste
Ensuite, pour effectuer un contrôle complet il faudrait que la liste des agents soient strictement identiques au nom de chaque agent qui est mentionné dans sa version excel. Est-ce le cas ?
Autre sujet important :
Dans votre USF remplacez
Private Sub txtLot_Change()
par ceci
Private Sub txtLot_Exit(ByVal Cancel As MSForms.ReturnBoolean)
La raison est que si vous essayez de mettre dans la textbox un chiffre au delà de 9, en utilisant "Change", le code vous renverra que ce n'est pas possible.