Microsoft 365 USF combobox doublon

Mwadepaname

XLDnaute Junior
Bonjour à tous,

je suis sur mon 1er userform et en cours d'apprentissage vba :D

Mon usf est sur le point d'être fini cependant j'ai un point de blocage qui m'agace.
C'est un formulaire d'inscription hebdomadaire.
Combobox1 (cb_agent) = liste agent
Combobox2 (cb_creneau) = liste créneaux

Je souhaiterais que si un agent s'est inscrit un jour de la semaine, il ne puisse plus se réinscrire sur cette même semaine.
avec un msgbox "déjà inscrit cette semaine"
donc si ma combobox1 (cb_agent) et ma combobox2 (cb_creneau) ont déjà été sélectionné = msgbox

liste agent = Sheets("BDD").Range("A")
liste créneaux = sheets("BDD").range("C")
(A savoir la liste des créneaux sur combobox2 est évolutif, si plus de place sur le créneau ou date antérieure à aujourd'hui le créneau disparait. D'autres créneaux apparaissent à j+5)

Avec mon code, si j'ai déjà eu une inscription, quelque soit le créneau choisi j'ai le msgbox même si je change la liste des créneaux.
Logiquement la semaine prochaine, il y aura des nouveaux créneaux donc impossible d'avoir un doublon

De plus en pas à pas, la boucle vérification de doublons se répète plusieurs fois et s’exécute également après avoir cliqué sur envoyer.
Je ne comprends pas...

Je ne sais pas si je suis bien clair o_O

Mon fichier en PJ.
mot de passe : excel
Ps: c'est mon 1er code donc fort possible qu'il soit pas top

Merci à vous.
 

Pièces jointes

  • mwade test usf.xlsm
    176.7 KB · Affichages: 14
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
314 628
Messages
2 111 337
Membres
111 104
dernier inscrit
JEMADA