Bonjour tout le monde,

Je rencontre un problème qui me rend fou, j'espère que vous pourrez m'aider.

Comme dit dans le titre le message d'erreur retourné est : "Private object modules cannot be used in public object modules as parameters ..."

Un petit bout du code (module de classe) correspondant est :

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
Option Explicit 
 
Private TimeSerie() As clsTimeValue 
Private Times() As Date 
Private Values() As Double 
Private Lperfs() As Double 
 
Private MinPos As Long 
Private MaxPos As Long 
Private CurPos As Long 
 
 
Public Function GetPosTimeValue(d As Long) As clsTimeValue 
    Set GetPosTimeValue = Nothing 
    If d > 0 Then 
        Set GetPosTimeValue = TimeSerie(d) 
    End If 
End Function
Si je comprends bien l'erreur, je ne peux pas retourner les valeurs de TimeSerie (défini private/ Définition forcée par le module de classe), dans une fonction dont la portée est publique.

J'ai essayé de changer les publique/private mais cela bloque.

J'espère avoir réussi à être clair, et que vous pourrez m'aider.

Un grand merci d'avance