Boucle sur les éléments sélectionnés de la listbox et suppression items dans la liste

[modus57]

Bonjour à tous. 😀

Dans un userform qui contient une listbox dont la source est alimentée à l’ouverture par autre classeur et un bouton de commande qui permet sur l’évènement clic de passer la listbox en multi sélection.

L’évènement double clic sert à supprimer les items sélectionnés dans la listebox et dans la source.

J’ai un petit souci le code ci-dessous ne fonctionne :

For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            Workbooks("data externe.xlsx").Activate
            Worksheets("liste autres émetteurs").Columns(1).Find(What:=ListBox1.List(i), After:=ActiveCell, _
            LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False).EntireRow.Delete
        End If
    Next i

Par contre si la listbox et en simple sélection pas de problème.

Application.ScreenUpdating = False
    Workbooks("data externe.xlsx").Activate
    Worksheets("liste autres émetteurs").Columns(1).Find(What:=ListBox1.List(ListBox1.ListIndex), After:=Range("A2"), LookIn:=xlFormulas, LookAt _
       :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).EntireRow.Delete
    ListBox1.List = Worksheets("liste autres émetteurs").Range("liste_autres_emetteurs").Value
    ListBox1.SetFocus
Application.ScreenUpdating = True

Avez-vous une explication svp.

Merci d’avance pour votre aide.

 

[modus57]

Re : Boucle sur les éléments sélectionnés de la listbox et suppression items dans la

Bonjour à tous.🙂

Personne à une petite idée ?

 

[modus57]

Re : Boucle sur les éléments sélectionnés de la listbox et suppression items dans la

Re bonjour. 😎

Finalement j'ai trouvé la solution.