Discussion :

[abbba]

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

[helas]

Bonjour,
Si c'est privé c'est que ce n'est pas pour les autres.
Moi, je mettrais un Global à la place du Private si je veux lire les variables depuis n'importe quelle fonction.

[abbba]

Merci de me répondre!
Mais malheureusement, cela ne marche pas.

Il semblerait qu'un module de classe n'accepte que le passage en private des paramètres de type Array.