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 :
Par contre si la listbox et en simple sélection pas de problème.
Avez-vous une explication svp.
Merci d’avance pour votre aide.
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 :
Code:
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 iPar contre si la listbox et en simple sélection pas de problème.
Code:
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 = TrueAvez-vous une explication svp.
Merci d’avance pour votre aide.