Objets "module de classe" passé en paramètre de fonction

Bonjour,

J'obtiens une erreur '438'.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub DoSmthg()   Dim erreurs as Logs ... DisplayLogs (erreurs) 'Plante ici..   End Sub   Sub DisplayLogs(l as Logs) End Sub

---

Je souhaite faire une collection "Logs" d'objets "Log" afin d'afficher a la fin de l'exécution l'ensemble des problèmes rencontrés.

Merci de votre aide

je connais pas "Logs" mais... voir ceci
http://www.developpez.net/forums/d49...log-vba-excel/

Logs est un objet que j'ai implémenté moi même.
On peut très bien le remplacer par une collection Erreurs qui contient des Erreur (Logs -> Log) Merci

Code:

---

Dim erreurs as New Logs

---

Merci pour ta réponse, mais j'avais essayé de l'instancié avec un :

Code:

---

Set erreurs = new Logs

---

Rien à faire..

Il doit y avoir un lien entre le passage d'une collection perso et les params d'une procédure..

Bonjour,

Un tout petit exemple.
Dans un module standard :

Code:

---

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

Dim erreurs As New Logs   Sub DoSmthg()   'affecte une valeur à la propriété "Erreur" erreurs.NumErreur = 2   'affecte une valeur à la propriété "Nom" erreurs.Nom = "Vilaine erreur"   'récupère cette valeur MsgBox DisplayLogs(1)   'récupère cette valeur MsgBox DisplayLogs(2)   End Sub   Function DisplayLogs(ValErreur As Integer) As Variant   Select Case ValErreur   Case 1   DisplayLogs = erreurs.NumErreur   Case 2   DisplayLogs = erreurs.Nom   End Select   End Function

---

Dans un module de classe nommé "Logs" :

Code:

---

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

Private mNumErreur As Long Private mNomErreur As String   Property Get NumErreur() As Long   NumErreur = mNumErreur   End Property   Property Let NumErreur(Err As Long)   mNumErreur = Err   End Property   Property Get Nom() As String   Nom = mNomErreur   End Property   Property Let Nom(NomErr As String)   mNomErreur = NomErr   End Property

---

Hervé.

Oups,

Désolé Robert, pas rafraîchi :o(

Hervé.

Code:

---

DisplayLogs (erreurs) 'Plante ici..

---

Quand tu n’attends pas de réponse pas de ()

Code:

---

DisplayLogs erreurs 'Plante ici..

---

Bonjour Theze,

merci pour ta réponse mais il s'agit d'une collection donc c'est encore différent.

La solution a été apportée par rdurupt. Merci à lui je marque le sujet en Résolu.