Problème de class

Hello,

Comment est implémentée ta collection? Utilises-tu un simple objet
collection ou une classe dédiée?
Comment initialises-tu tes variables? De quel type sont elles?

Le code suivant fonctionne bien:
Option Explicit

Private m_oGroups As Collection

Private Sub Command1_Click()
Dim a As CGroup
Set a = New CGroup

m_oGroups.Add a
m_oGroups.Add a


For Each a In m_oGroups
Debug.Print "a"
Next a

End Sub

Private Sub Form_Load()
Set m_oGroups = New Collection
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set m_oGroups = Nothing
End Sub

Avec la classe CGroup qui ne contient pas de code.

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Bernard Bourée" <bernard@bouree.net> a écrit dans le message de
news:%23TjhhtcYEHA.3420@TK2MSFTNGP12.phx.gbl

J'ai une class nommé Groupe avec comme propriété NOM et NUM,

puis une Collection nommée GROUPES qui contient des objets du type
Groupe.

le code suivant me donne une erreur:

Dim oGroupe As Groupe
For Each oGroupe In Groupes
Debug.Print oGroupe.Nom, oGroupe.Num
If oGroupe.Nom = sGroupe Then
NumGroupe = oGroupe.Num
Exit Function
End If
Next

l'erreur est : Un objet est requis à la ligne: For Each.....
qqun peut-il me dire pourquoi?