Discussion :

[zebrette]

Bonsoir,

J'ai créé un UserForm contenant une combobox dont la RowSource est définie par une liste nommée dans une feuille excel.
Ceci marche.
Cependant par ce userform l'opérateur peut ajouter des lignes dans la feuille contenant la liste, entre la liste et la première ligne de la feuille.
Ceci à pour effet de décaler progressivement la liste qu'utilise la combobox et donc de lui faire renvoyer des valeurs erronées.
Le seul moyen de réinitialiser la liste de la combobox est d'opérer la commande End qui malheureusement termine toutes les procédures éventuellement en cours et donc mon userform.
J'ai essayé le combobox.Clear qui me renvoie "erreur non répertoriée", le combobox.RowSource = "" qui me vide bien la combobox, mais comme le combobox.AddItem et combobox.RowSource="liste nomée" me renvoient aussi l'erreur non répertoriée, je ne peux plus remplir ma liste déroulante.

Une idée sur la marche à suivre?
Bien sur je ne souhaite pas déplacer ma liste de choix (en bas de la feuille) et je voudrais garder le UserForm actif...

Merci,
Zebrette

[sabzzz]

bonjour Zebrette,

il faut nommer la liste en faisant référence à une formule comme celle-ci (et adapter le nom de la feuille),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))

[zebrette]

Parlons en langage VBA, et donc anglais, je pense que ca simplifiera les choses :
Le problème avec la solution que tu propose est que pour cela il faudrait que je puisse déclarer un Range, lui donner la valeur que tu propose, et définir dynamiquement la combobox.RowSource comme étant ce Range. Mais apparement le range n'est pas le bon input pour une RowSource et me donne justement cette erreur non répertoriée... Est ce que j'ai raté quelque chose? Est ce que la variable rowsource est d'un type spécial?

Merci

[sabzzz]

bonjour Zebrette,

pour utiliser la plage nommé avec RowSource,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ComboBox1.RowSource = Names("MaPlage").RefersTo

[zebrette]

Géniale, ca marche. merci beaucoup, j'avais fini par abandonner.

Bonne soirée