XL 2010 Reboot au début de la macro aprés un .RemoveDuplicates ?

[Fifi14]

Bonsoir le forum
je fais appelle à vous pour un problème de macro événementielle qui reboot toute seule après le code suivant:
Après l'instruction de Removeduplicate la lecture du code revient au début 2 à 3 fois puis sans raison la suite de la macro est lue.

Option Explicit
Private Sub ListBox1_Click() '(ByVal Cancel As MSForms.ReturnBoolean)
     Sheets("Listes").Range("$B$2:$B$10000").RemoveDuplicates Columns:=1, Header:=xlNo
End sub

Ce bout de code est lu suite à un clic dans une listbox d'un userform. Voir fichier joint.
Avez vous déjà eu ce fonctionnement apparemment aberrant ?

merci pour vos retours

 

[job75]

Bonsoir Fifi14, bienvenue sur XLD,

Je pense que le problème vient de l'évènement Click.

Dans la macro ListBox1_Click la propriété RowSource est modifiée, ce qui relance la macro.

En remplaçant la macro Private Sub ListBox1_Click() par :

Private Sub Listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

il ne devrait plus y avoir de problème, même chose pour les autres ListBoxes.

A+

 

[Fifi14]

Merci pour ta réponse.
Après test ca fonctionne

pourtant le RemoveDuplicates ne concerne pas la plage de donnée qualifiant le Rowsource de la listbox1. du coup c'est étonnant que cela relancait la listbox1.

enfin c'est résolu. merci beaucoup.

 

[job75]

La RowSource était modifiée dans la macro, c'est tout.