XL 2013 VBA - Liste multi-sélection

[TomAg]

Bonjour,

Je souhaite créer deux listes me permettant de sélectionner/dé-sélectionner des critères, parmi deux listes que j'ai définies.
Pour cela, je me suis inspiré d'un code déjà existant et fonctionnel, que j'ai adapté à mon programme en modifiant simplement les cellules concernées.

Le soucis est que plusieurs bug sont apparus :
- Lors ce que je sélectionne la cellule E28 de la feuille "Formulaire", la liste apparaît convenablement, mais lors ce que je re-clic sur la cellule, les éléments cochés ne le sont plus.
- Lors ce que je sélectionne la cellule G28 de la feuille "Formulaire", la liste apparait sans les petites cases à cocher, et certains éléments ne peuvent pas être cochés... En revanche, ici les cases semblent rester sélectionnées...

Pouvez-vous m'aider à supprimer ces bugs ?

Ci-joint le fichier pour une meilleure compréhension.

 

[BOISGONTIER]

Bonsoir,

Exemple en PJ

Boisgontier

 

[TomAg]

Bonjour,

Merci pour votre aide mais la fonction ne fonctionne toujours pas une fois adaptée aux cellules de mon fichier...
Serait-il possible que vous jetiez un coup d’œil au code de mon fichier ?

En PJ : la version V4 déjà jointe sur mon premier message ; la version V5 où j'ai simplement adapté le fichier que vous m'avez transmis avec mes cellules.

En vous remerciant d'avance !
Tom