Discussion :

[abouhossam]

bjr à tous
j'ai developpé une macro dont le but de supprimer les items selectionnés d'une listbox.( la mutisélection est autorisée dans ma listbox)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim j As Byte
For j = 0 To UFdech.LBlot.ListCount - 1
    If UFdech.LBlot.Selected(j) = True Then
    'on Supprime l'élément selectionné dans la ListBox.
    UFdech.LBlot.RemoveItem (UFdech.LBlot.ListIndex)
    End If
Next j

la ligne en rouge est la cause d'une erreur
merci de votre aide.

[ucfoutu]

Bonjour,

2 choses :
1) quand on supprime, on commence par la fin et un remonte vers l'indice 0, sinon, on se fait bien évidemment des croches-pieds avec des indices qui n'existent plus
2) pour ta suppression, il ne faut pas te référer à l'indice listindex, mais à la valeur de j

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For j =UFdech.LBlot.ListCount - 1 to 0 step -1
    If UFdech.LBlot.Selected(j) = True Then
    'on Supprime l'élément selectionné dans la ListBox.
    UFdech.LBlot.RemoveItem (j)
    End If
Next j

[abouhossam]

merci ucfoutu de ta reponse
j'ai bien testé ton code, il me renvoie une erreur causée de la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For j = UFdech.LBlot.ListCount - 1 to 0 step -1

merci.

[ucfoutu]

Cà, c'est encore autre chose et laisse entendre que :
- soit ta listbox ne s'appelle pas exactement LBlot
- soit qu'elle n'est pas sur un userform nommé exactement UFdech
- soit qu'elle compte plus de 255 articles alors que J est déclaré en Byte seulement

Je viens de tester mon code et il fonctionne sans faille.

[abouhossam]

bjr à tous
merci ucfoutu de tes conseils
j'ai bien verifié ce que tu m'avais dit mais je pense que mes données sont juste et voici une copie ci-joint pour m'aider s.v.p