Listbox Multiselections

GGPS58 · 7 Juillet 2010

Bonjour à tous,

Dans mon classeur ci-joint j'ai un bouton qui lance un userform et qui permet, via une listbox multiselections de choisir les items à supprimer.
Mon problème est que cela fonctionne pour le premier item sélectionné, mais pas sur les suivants …
J'ai repris le code en grande partie sur ce forum, sur des exemples qui fonctionnent parfaitement. Appliqué à mon usage, le résultat n'est pas conforme à mes attentes.
L'un de vous pourrait-il m'aider à trouver mon erreur ?

D'avance merci de vos conseils

Pierrot93 · 7 Juillet 2010

Re : Listbox Multiselections

Bonjour,

essaye ainsi, attention dans ce cas, comme d'en d'autres, déconseillé d'alimenter la "listbox" via la propriété "rowsource":

Code:

Private Sub UserForm_initialize()
ListBox1.List = Range("A3:A20").Value
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i As Integer, k As Integer

For i = 0 To UserForm1.ListBox1.ListCount - 1
    'If UserForm1.ListBox1.Selected(i) Then (autre tentative infructueuse)
    If UserForm1.ListBox1.Selected(i) = True Then
        Range("LISTES!A" & i + 3 & ":C" & i + 3).Clear
    End If
Next i
Unload UserForm1
Application.ScreenUpdating = True
End Sub

bonne journée
@+

GGPS58 · 7 Juillet 2010

Re : Listbox Multiselections

Nickel, merci cela fonctionne.
J'appliquerais donc cette manière à l'avenir.

Merci Pierrot93

Listbox Multiselections

GGPS58

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

GGPS58

XLDnaute Occasionnel

Discussions similaires

Listbox Multiselections

GGPS58

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

GGPS58

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency