Option Explicit
 
Private Propriete1 As testB


Public Property Let changerProp1(ByVal valeur As testB)
    
    Propriete1 = valeur

End Property

Option Explicit

Private prop As String


Private Sub Class_Initialize()
    prop = "hello"
End Sub

Option Explicit

Sub testProcedure()

    Dim a As testA
    Set a = New testA
    Dim b As testB
    Set b = New testB
    
    a.changerProp1 (b)
    
    MsgBox ("ok")

End Sub

-
Edité par Tati76 6 septembre 2018 à 14:09:04

Bonjour,

Une propriété ne s'appelle pas, ça s'utilise plutôt comme si c'était un attribut (en fait, VBA génère pour toi des propriétés quand tu définis un attribut public). De plus, un argument avec des parenthèses en trop a un sens en VBA : ça force le passage par valeur; pour ça, l'IDE t'aide en plaçant correctement les espaces.

Let fonctionnera avec un objet mais je te le déconseille : ça t'empêchera plus tard d'implémenter une propriété par défaut dans l'objet stocké comme attribut et c'est à mon avis un peu moins lisible puisque lorsque tu veux stocker une référence à un objet ailleurs que dans un attribut, tu dois utiliser Set. Au passage, le type de propriété Let vient d'un mot-clé implicite que tu peux écrire devant une affectation...

Adapte donc cette ligne dans testA :

Public Property Set Prop1(ByVal valeur As testB)

... ainsi que celles-ci dans ta procédure :

    Set a.Prop1 = b
     
    MsgBox "ok"

Tu pourrais aussi instancier directement tes objets avec Dim, la seule différence est que VB ne les instanciera réellement que lorsqu'il en aura besoin...

Dim a As New testA
Dim b As New testB

-
Edité par ghuysmans99 10 septembre 2018 à 9:37:22

il faut activer la page en question si dans le même classeur thisworkbook.sheets("nom_de_la_feuille").activate

unload ça décharge un userform, pas une feuille de classeur.