XL 2021 Excel/vba et vb.net: Propriété de type OBJECT "ingérable"

[p'tit vieux]

Bonjour à tous
Je ne sais pas si parmi vous certains connaissent vb.net et COM avec VBA.
je suis en train de faire un portage de certaines parties d'un UDF VBA en vb.net.
Je suis débutant en .NET.
Mon problème est "simple" j'ai créé des classes en VB.Net et certaines propriétés doivent être des types Object. Pas le choix.
Devinez!!
Je bloque sur le fait que lorsque je veux passer une valeur à cette propriété de type Object je me fais "jeter".
pour exemple voici ce que j'ai fait:
<ComVisible(True)>
<ClassInterface(ClassInterfaceType.AutoDual)>
Public Property ValueMax As Object
Get
Return _ValueMax
End Get
Set
_ValueMax = Value
End Set
End Property
Quelqu'un peut il m'aider à résoudre ce souci?
Par avance merci à tous.

 

[dysorthographie]

bonjour,
j'imagine que tu as créé une bibliothèque de classe ?

Classe Toto
private _ValueMax as Object
Public Property ValueMax As Object
    Get
        Return _ValueMax
    End Get
    Set(value As Object)
        _ValueMax = value
    End Set
End Property
end classe

ensuite soi tu registre ta librairie:
C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe

soit tu importe le manifeste dans excel :
Menu Outils → Références → Parcourir…
le fichier porte l'extension [tlb]

 

[p'tit vieux]

bonjour,

Classe Toto
private _ValueMax as Object
Public Property ValueMax As Object
    Get
        Return _ValueMax
    End Get
    Set(value As Object)
        _ValueMax = value
    End Set
End Property
end classe

Bonjour Dysort.
Merci pour ta réponse
mais cela ne résout pas le problème qui est dans VBA lorsque je tente d'affecter une valeur :
set toto.ValueMax = 789 ' tout simplement ou aussi une chaine
je me fais jeter : "erreur de type"
A priori je crois que COM a du mal "à digérer" le type Object

 

[p'tit vieux]

 

[dysorthographie]

tu as dit objet mais quel genre d'objets ?
peut être qu'il faut décliner t.ValueMax.value

si tu mets t dans l'espion ?

comment as tu intègres ta librairie dans les références excel ?

789 n'est pas un objet mais avant toute chose regarde si l'instance t existes

 

[p'tit vieux]

tu as dit objet mais quel genre d'objets ?
peut être qu'il faut décliner t.ValueMax.value

si tu mets t dans l'espion ?

comment as tu intègres ta librairie dans les références excel ?

789 n'est pas un objet mais avant toute chose regarde si l'instance t existes

par le menu VBE Références: Maclasse.TLB
oui l'instance existe sinon comme le montre la capture je n'aurais pas cela
Quand tu ne sais pas c'est un cauchemard ... je te le dis 😭

 

[dysorthographie]

oui mais je vois le message d'erreur objet requis si tu place t dans l'espion il est très certainement a nothing.

 

[dysorthographie]

retour à visualiser studio
Va dans fichier ajouter un nouveau projet de type console par exemple. et défini le comme projet de démarrage.

vas dans le propriété de ce nouveau projet et active la référence qui ce trouve dans la solution
dans sub main déclare un instances de ta librairie.

tan que tu n'arrives pas à l'utiliser dans Visual studio tu ne pourras pas l'utiliser dans excel

 

[p'tit vieux]

oui mais je vois le message d'erreur objet requis si tu place t dans l'espion il est très certainement a nothing.

"amusant":
en VBA: t.ValueMin = 10
En debug dans vb.Net j'ai :
Value = Nothing

 

[p'tit vieux]

Dyso.,
J'ai réussi à faire cela en suivant tes indications:
Module Module1
Sub Main()
Dim TT As New AL7_FDXRPN.clsColumnInfo
TT.ValueMin = "10"
TT.ValueMax = "100"
End Sub
End Module

voici la fenetre Espion de VS

 

[dysorthographie]

déjà on peut éliminer le coté VS.
ceci dit la propriété retourne en objet pas une variable classique!

Sub test()
    Dim t As New AL7_FDXDLL.clsColumnInfo
    t.ValueMin = 10 'la conversion en object est implicite coté vb.net
    Debug.Print CDbl(t.ValueMin)  ' ou CStr(t.ValueMin)
End Sub

 

[p'tit vieux]

déjà on peut éliminer le coté VS.
ceci dit la propriété retourne en objet pas une variable classique!

Sub test()
    Dim t As New AL7_FDXDLL.clsColumnInfo
    t.ValueMin = 10
    Debug.Print CDbl(t.ValueMin)  ' ou CStr(t.ValueMin)
End Sub

Oui sinon j'aurais les mêmes problèmes avec les autres propriétés de la classe et ce n'est pas le cas.
Juste avec celles déclarées comme Object. D'aprés ce que j'ai pu lire (mais bon je suis novice) c'est fréquent avec les types Object et interfaces COM. Mais pas trouvé de solution qui fonctionne.

 

[dysorthographie]

Imports System.Runtime.InteropServices

Public Class ClsColumnInfof

    Private _ValueMax As Object

    Public Property ValueMax As Object
        Get
            Return _ValueMax
        End Get
        Set(Value As Object)
            _ValueMax = Value
        End Set
    End Property

End Class

registrer la dll

C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe "C:\Projets GuilLab\al7_fdxdll\AL7_FDXDLL\bin\x86\Debug\AL7_FDXDLL.dll"

dé registrer la dll

C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe "C:\Projets GuilLab\al7_fdxdll\AL7_FDXDLL\bin\x86\Debug\AL7_FDXDLL.dll" /unregister

https://gitlab.com/dysorthographie/al7_fdxdll/-/archive/main/al7_fdxdll-main.zip?ref_type=heads

 

[p'tit vieux]

Regarde la pièce jointe 1229018

Imports System.Runtime.InteropServices

Public Class ClsColumnInfof

    Private _ValueMax As Object

    Public Property ValueMax As Object
        Get
            Return _ValueMax
        End Get
        Set(Value As Object)
            _ValueMax = Value
        End Set
    End Property

End Class

registrer la dll

C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe "C:\Projets GuilLab\al7_fdxdll\AL7_FDXDLL\bin\x86\Debug\AL7_FDXDLL.dll"

dé registrer la dll

C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe "C:\Projets GuilLab\al7_fdxdll\AL7_FDXDLL\bin\x86\Debug\AL7_FDXDLL.dll" /unregister

https://gitlab.com/dysorthographie/al7_fdxdll/-/archive/main/al7_fdxdll-main.zip?ref_type=heads

bonjour dyso
j'ai regardé ton code.
je n'ai rien remarqué de plus. Désolé.
Jusqu'à présent la seule chose qui fonctionne c'est de déclarer ceci:
<ComVisible(True)>
<ClassInterface(ClassInterfaceType.AutoDispatch)>

Inconvénient dans la fenetre espions de vba tu ne vois plus la totalité de la classe juste propriété par propriété.
Tu perds aussi l'Intesense et l'autocomplétioon. Donc il faut connaitre toutes les propriété par cœur 🤕😁.
A ce stade une seule propriété avec un type Object pour le passage d'un variant VBA vers un type Object oblige à faire cela.

Merci pour ton aide.
P.S. :
Si je trouve une solution je te la mettrai ici.

 

[dysorthographie]

bonjour,
Ok je regarde pour l'Intesense
[

Imports System.Runtime.InteropServices

<ComVisible(True)>
<ClassInterface(ClassInterfaceType.AutoDual)>
Public Class ClsColumnInfof

    Private _ValueMax As Object

    Public Property ValueMax As Object
        Get
            Return _ValueMax
        End Get
        Set(Value As Object)
            _ValueMax = Value
        End Set
    End Property

End Class