Discussion :

[medkarim]

lorsque je parcours une collection avec for each j'aimerais effacer un element s'il repond à un condition

Code :

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

1
2
3
4
 
for each elt in macollection
   if elt= valeur then ....'effacer elt
next elt

[ucfoutu]

Bonjour (ton aide en ligne...)
La méthode Remove a pour syntaxe :

object.Remove index

où objet est la collection en cause et index le N° d'index dans la collection ...
ouvre ton aide en ligne pour plus d'infos...

[medkarim]

ça je le savais. mais on peut pas l'utiliser dans une boucle for each

on peut l'utiliser dans une boucle for... to... ou dans un do..loop en prenant certaines précautions

Code :

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

1
2
3
4
5
6
7
8
9
 
for i = 1 to macollecetion.count
   if i> macollection.count then exit for 
  [set]  elt= macollection(i)
   if elt =valeur then
        macollection.remove (i)
        i=i-1
   end if
next i

ou

Code :

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

1
2
3
4
5
6
7
8
9
 
i=1
Do until i> macollection.count
  [set] elt=macollection(i)
  if elt=valeur then
      macollection.remove(i)
  else
     i=i+1
loop

mais ce que jevoulais c'est le faire dans une boucle for ...each... parseque je trouve ça plus elegant

[ucfoutu]

Je coimprends ton, souci d'élégance...
Il te faut alors alimenter ta collection avec la même élégance et utiliser l'argument Key de la méthode Add , ce qui te permettra ensuite de t'y référer dans la méthode Remove ...

[medkarim]

A condition de pouvoir recuperer la clé

Code :

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

1
2
3
4
5
6
7
 
for each elt in macollection
   if elt=valeur then
       key=?
      macollection.remove(key)
  end if
next elt

a moins de se compliquer la vie en créant une classe elt perso et lui ajouter une propriete key (key=elt.key) c'est impossible d'effacer un element d'une collection dans une boucle for each

je garde la solution peu elegante de for... to...

[ucfoutu]

Oh ...

exemple, donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
  Dim toto As New Collection ' Create a Collection object.
  toto.Add Item:="membre1", Key:="membre1"
  toto.Add Item:="membre2", Key:="membre2"
  For Each x In toto
    MsgBox x
    If x = "membre1" Then
      toto.Remove x
    End If
  Next
  MsgBox "on va voir, maintenant"
  For Each x In toto
    MsgBox x
  Next
End Sub

J'espère qu'il "te parle" un peu...