Grrrr comment on aute une erreur?

SamuelCadieux Messages postés 31 Date d'inscription dimanche 8 septembre 2002 Statut Membre Dernière intervention 20 juin 2003 - 16 sept. 2002 à 00:27
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004 - 16 sept. 2002 à 19:42
Bonjour peuple de vbfrance,j'implore votre aide pour empecher une erreur avec une liste

Private Sub Label2_Click()
List1.RemoveItem List1.ListIndex
End Sub

merci davance :approve)

2 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
16 sept. 2002 à 01:15
Il faut d'abord définir l'index (entre 0 et List1.ListCount -1)

Private Sub Label2_Click()
List1.ListIndex = 2 ' 3ème élément de la liste
List1.RemoveItem List1.ListIndex
End Sub

ou bien
List1.RemoveItem 2
0
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
16 sept. 2002 à 19:42
ListIndex renvoie l'élement courant (bien qu'il reste à la même place, lol) quand on click, on en sélectionne bien un, j'vois pas le problème...

Attention, si la list est en multi-select (avec ctrl ou maj), la y a peut-être problème.

Synthèse :
+ allez voir l'aide de VB.
+ Tester si la valeur listindex <> -1
+ O pire faire un On error resume next !

>:) ::Alan USSE:: >:)
0
Rejoignez-nous