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

Fifi14

XLDnaute Nouveau
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.

VB:
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
 

Pièces jointes

  • test.xlsm
    191.4 KB · Affichages: 11

job75

XLDnaute Barbatruc
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 :
VB:
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

XLDnaute Nouveau
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth