suppression d'un élément d'une collection [Résolu]

[rominous41]

bonjour,
lorsque cette ligne ce code s’exécute

Code :

1
2
3
4
5
 
Dim collec As New Collection
For cpt = 1 To collec.Count
collec.Remove (collec(cpt))
Next cpt

une fenêtre d'erreur de type apparaît ,n'est ce pas comme ça qu'on supprime les objets d'une collection ?? l'erreur est sur la ligne "collec.Remove (collec(cpt))"

[User]

Salut,

Tu dois déjà remplir ta collection avec des éléments puis ensuite tu peux la vider comme cela :

Code :

1
2
3
While collec.Count > 0
collec.Remove (1)
Wend

A+

[rominous41]

oui oui ma collection est bien rempli mon collec.count vaut 68
seulement je ne connais pas le numero de mon objet dans ma collection.
comment je peux faire pour l'obtenir le (1) que tu mets dans ton remove ??

[User]

Code :

1
2
3
While collec.Count > 0
collec.Remove (1)
Wend

Ce code veut dire :

Tant qu'il y a des éléments dans la collection (Collec.count>0) faire :

Supprimer le 1er élément

Passages possibles:

supposons que ta collection contienne les élément ("a","b","c")

------------------------------------------------

1er passage de boucle :

Code :

collect=("a","b","c")

Code :

collect.count=3

Code :

collect(1)="a"

donc

Code :

collect.remove(1) 'supprime "a"

---------------------------------------------------

2ème passage de boucle :

Code :

collect=("b","c")

Code :

collect.count=2

Code :

collect(1)="b"

donc

Code :

collect.remove(1) 'supprime "b"

---------------------------------------------------

3ème passage de boucle :

Code :

collect=("c")

Code :

collect.count=1

Code :

collect(1)="c"

donc

Code :

collect.remove(1) 'supprime "c"

Et la collection est vide...

A+

[rominous41]

je comprend bien ça seulement seulement je ne veut pas supprimer tous les éléments de ma liste seulement certain est je ne connais pas leur chiffre a l'avance.

[User]

Dans ce cas tu parcours ta collection à l'aide d'une boucle et tu testes à chaque passage le contenu de l'élément en cours, et si l'élément est celui que tu recherche alors tu le supprime avec :

Code :

1
2
3
4
5
6
7
For cpt = 1 To collec.Count
 
   if collec.Item(cpt)=Elémentrecherché then
      collec.Remove (cpt)
   end if
 
Next cpt

A+