Discussion :

[Sylver---]

Bonjour, j'utilise Excel 2000 et j'ai un ptit souci.
Comment faire pour vérifier qu'un elem existe dans la collection ?

J'utilise

Code :

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

coll.Contains(i)

mais il me dit :

Propriété ou méthode non géré

.

Ok.

Et si je veux tester les éléments un par un, je n'arrive pas à utiliser le FOR NEXT, si qqun a un exemple !

Merci

[decondelite]

Tu programmes ton code en considérant que l'élément existe, et tu ajoute une routine de gestion d'erreur pour gérer les cas où ton élément n'existe pas.

Mais sans exemple, ça va être difficile de t'expliquer comment faire. Si on pouvait au moins savoir de quel type est coll, et avoir le code de la classe s'il s'agit d'une classe que tu as créé.

Petit exemple tout bête:

Code :

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

1
2
3
4
5
6
7
8
9
Public Property Get Contains(ByVal NomElement As String) As Boolean
    On Error GoTo erreur
    Contains = True
    ' Ton programme provoquera une erreur ici si ton élément n'existe pas
    MaCollection.Item (NomElement)
    Exit Property
erreur:
    Contains = False
End Property

[Sylver---]

Je te copie tout le code, c'est juste des fonctions de test pour apprendre à utiliser, donc cela ne sert à rien

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Test()
Start:
 
Dim coll As New Collection
Dim number As Object
Dim i As Integer
i = 0
 
While (coll.Count < 8)
 
random = Randomisation(8)
If coll.Contains(random) Then
i = 1
Else: coll.Add random
End If
 
Wend
 
 
i = 0
 
While (i < 8)
MsgBox coll.Item(i)
Wend
 
 
 
 
 
End Sub
 
Function Randomisation(nb As Integer)
   Dim aleatoire As Integer
 
   Randomize
   Randomisation = Int(Rnd * nb) + 1
 
End Function

[decondelite]

Ton code ne fonctionne pas pour la simple et bonne raison que Contains n'est pas une propriété d'un objet de type Collection.

Ceci dit, tu peux toujours utiliser une routine de gestion d'erreur à l'intérieur de ton code pour voir si ton objet coll(i) existe.

Si tu veux savoir si un objet existe en faisant coll.Contains(i), tu devras créer une classe (avec un module de classe donc) contenant un champ privé de type Collection et une propriété "Property Get Contains" ressemblant plus ou moins à celle que je t'ai donné.

Bref, tu fais comme tu veux c'est toi qui vois, mais perso je préfère utiliser une classe contenant une collection pour pouvoir y ajouter des propriétés et des méthodes.

Je pense que ce tuto de Michel Blavin te sera très utile si tu souhaite travailler avec une classe, ou juste pour ta culture VB/VBA. Il est à la base pour Access, mais ça vaut tout aussi bien pour Excel ou VB:
http://sinarf.developpez.com/access/vbaclass/

[Sylver---]

Merci, je vais lire ça.
Et aurais tu un exemple de For Next pour parcourir la collection ?

Merci

[decondelite]

Code :

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

1
2
3
4
5
6
7
Public Sub Bidon()
Dim coll As New Collection, total As Integer, i As Integer
    total = coll.Count
    For i = 1 To total
        ' Ton code ici travaillera sur l'élément de collection coll(i)
    Next
End Sub

Sachant que le tableau de la collection commence à l'indice 1 et que la propriété Count d'une collection renvoie le nombre total d'éléments.

Tu peux aussi utiliser une structure For Each:

Code :

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

1
2
3
4
5
6
Public Sub Bidon()
Dim coll As New Collection, elem_coll As Variant
    For Each elem_coll In coll
        ' Ton code ici travaillera sur l'élément de collection elem_coll
    Next
End Sub