Bonjour à toutes et tous !

Comme indiqué dans le sujet...

Code dans un module de Classe nommé Zoom : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
...
...
Private objControle As Control
...
...
 
' Propriete Controle
Property Set Controle(objControleSet As Object)
    Set objControle = objControleSet
End Property
 
Property Get Controle() As Object
    Controle = objControle
End Property

Code dans un module standard : 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
Option Compare Database
 
Public objZoom As Zoom
 
Public Sub ZoomerContenu(ByRef ObjetControle As Object, _
                         Optional ByVal Modifiable As Boolean = False)
 
    Dim objZoomTemp As New Zoom
 
    With objZoomTemp
        .Controle = ObjetControle
        .ContenuOriginal = ObjetControle.Value
        .Modifiable = Modifiable
    End With
 
    Set objZoom = objZoomTemp
 
    DoCmd.OpenForm "F_ZOOM"
 
    With Forms("F_ZOOM")
        .Controls("txtZoom").Value = objZoom.ContenuOriginal
    End With
 
    Set objZoomTemp = Nothing
End Sub


Code d'un événement de TextBox dans un formulaire : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub txtConsignes_DblClick(Cancel As Integer)
    Dim objControle As Object
 
    Set objControle = Forms("F_LOG_BOOK_EN_TETE").Form("SF_LOG_BOOK_NIVEAU").Form("SSF_LOG_BOOK_CORPS").Controls("txtConsignes")
 
    ZoomerContenu objControle
End Sub
La chose étrange qui se produit est qu'arrivé à la ligne 11 de ma procédure ZoomerContenu (second bloc de code ci-dessus), une erreur se produit (objet non défini), et lorsque j'exécute en pas à pas, cette ligne censée affecter la propriété Controle de l'objet objZoomTemp active Property Get au lieu de Property Set

Effectivement, s'il essaie de lire la propriété au lieu de la définir...

Merci d'avance pour vos réponses !
Eric