Discussion :

[rominous41]

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

Code :

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

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 :

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

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 :

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

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 :

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

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

Code :

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

collect.count=3

Code :

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

collect(1)="a"

donc

Code :

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

collect.remove(1) 'supprime "a"

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

2ème passage de boucle :

Code :

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

collect=("b","c")

Code :

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

collect.count=2

Code :

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

collect(1)="b"

donc

Code :

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

collect.remove(1) 'supprime "b"

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

3ème passage de boucle :

Code :

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

collect=("c")

Code :

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

collect.count=1

Code :

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

collect(1)="c"

donc

Code :

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

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 :

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

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+