Discussion :

[jeanjean6]

Bonjour,

J'obtiens une erreur '438'.

Voici mon code :

Code :

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

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

[vpovpo]

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

[jeanjean6]

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

[Invité]

Code :

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

Dim erreurs as New Logs

[jeanjean6]

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

Code :

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

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..

[Theze]

Bonjour,

Un tout petit exemple.
Dans un module standard :

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
 
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 :

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
 
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é.

[Invité]

Code :

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

DisplayLogs (erreurs) 'Plante ici..

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

Code :

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

DisplayLogs erreurs 'Plante ici..

[jeanjean6]

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.