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

Fifi14 · 11 Août 2019

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

job75 · 11 Août 2019

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 · 11 Août 2019

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 · 11 Août 2019

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

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

Fifi14

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Fifi14

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires