Grrrr comment on aute une erreur?

Messages postés
31
Date d'inscription
dimanche 8 septembre 2002
Statut
Membre
Dernière intervention
20 juin 2003
-
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
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

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
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
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

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:: >:)