XL 2019 VBA - empêcher d'afficher erreur exécution

[amanyth]

Bonjour,
Je suis en train de mettre en place un registre numérique sous excel concernant l'isolement de patients dans un service psychiatrique.
Je me suis servi d'un super exemple trouvé sur ce forum, mais j'ai encore un souci avec cela.

Sur la colonne G j'ai un menu déroulant qui s'affiche, permettant de sélectionner 1 ou plusieurs valeurs, qui s'ajoute dans la cellule sélectionnée. Jusque là, tout va bien.

Le souci est lorsqu'on fait une sélection multiple dans cette colonne, j'ai une erreur d'exécution "incompatibilité de type" qui apparait.
Est-il possible d'empêcher que cela se produise, soit en n'affichant rien lorsque plusieurs cellules sont sélectionnées, soit en empêchant la possibilité de sélectionner plusieurs cellules dans cette colonne ?

Merci d'avance !

PS : fichier joint

 

[Phil69970]

Bonjour Amanyth, le forum

Il y avait une légère erreur dans ton code

@Phil69970

 

[amanyth]

Oui c'est vrai merci.
Mais ça ne corrige pas le problème.

 

[amanyth]

J'ai bien tenté d'ajouter :
ActiveCell.Select
Mais sans succès...

 

[Phil69970]

Bonjour Amanyth, le forum

Le fichier fonctionne sans erreur cette fois

*Fichier modifié pour supprimé les ";" à la fin
@Phil69970

 

[amanyth]

Désolé mais non, toujours pas.
Lorsqu'on sélectionne plusieurs cellules dans la colonne G, apparait toujours
Erreur d'exécution '13'
Incompatibilité de type

 

[Phil69970]

Re,

Bizarre car pour moi cela fonctionne bien.
Regarde dans mon fichier quand tu l'ouvres tu vois bien que j'ai pu rajouté des entrées dans la colonnes G
Es tu sur de prendre le bon fichier c'est à dire la version V4 ?

@Phil69970

 

[amanyth]

Oui mais j'arrive également à faire fonctionner cela quand je me positionne sur une cellule, ce n'est pas le problème.
Le truc, c'est que si je sélectionne plusieurs cellules, j'ai la fenêtre d'erreur qui s'ouvre.

 

[Phil69970]

Tu n'as plus d'erreur qui s'affiche mais cela ne me semble pas top.

@Phil69970

 

[amanyth]

Ecoute, je pense que ça va le faire quand même ! Grand merci à toi pour ton aide ! Très sympa !