RemoveItem probleme

[Hervé]

Bonjour à tous.
Voilà j'ai un gros souci, j'ai un programme avec plusieurs boite de dialogue.
Plusieurs d'entres ont des ListBox qui recoivent des données à afficher depuis un tableau.
Lorsque j'essaye de reinitialiser ma ListBox pour pouvoir afficher de nouvelles données, soit il ne se passe rien, soit ca plante.
Voilà le bout de code qui ne veut pas marcher.
Si quelqu'un voit ce qui cloche, je le remercie d'avance de son aide.

For i = 0 To 7
For j = 0 To 7
DétailNuméroPhysique.ListBox_NuméroGFA.List.RemoveItem(i, j)
Next j
Next i

 

[@+Thierry]

Salut Hervé, le Forum

Je n'aime pas l'expression Boite de Dialoque, j'ai l'impression qu'on parle d'Excel4...

Je pense donc que tu parles de UserForms avec l'instruction RemoveItem.

Alors ensuite tu dis "ListBox qui recoivent des données à afficher depuis un tableau"...

Ma question est Comment ?

Trois possibilités :

111) Par la méthode AddItem

222) Par la propriété RowSource

333) Par la propriété List


Si tu remplis tes ListBox avec la possibilibité 222... Déjà RemoveItem c'est NIET ! (Avec la 333, c'est coton...) En fait il n'y a qu'avec la 111 que c'est vraiment prévu...

Voici donc l'exemple d'utilisation de RemoveItem sur une ListBox allimentée en méthode AddItem (fourni dans l'aide) :

Private Sub CommandButton1_Click()
If ListBox1.ListCount >= 1 Then
If ListBox1.ListIndex = -1 Then
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
ListBox1.RemoveItem (ListBox1.ListIndex)
End If
End Sub

Cet exemple supprimera l'Item sélectionné de la ListBox, et si aucun n'est sélectionné il supprimera le dernier Item de la ListBox.

Le but serait ptet de faire une boucle avec RemoveItem pour virer TOUS les Items...

Mais Billou a prévu un code tout simple qui devrait te sortir de ce bazar...

ListBox1.Clear

(lol)
Bonne Soirée
@+Thierry