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

p'tit vieux · Hier à 11:16

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 · Hier à 11:31

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

VB:

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 · Hier à 11:46

dysorthographie à dit:

bonjour,

VB:

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 · Hier à 11:52

dysorthographie · Hier à 12:03

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 · Hier à 13:01

dysorthographie à dit:
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 · Hier à 13:10

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 · Hier à 13:16

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 · Hier à 13:18

dysorthographie à dit:
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 · Hier à 13:58

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 · Hier à 14:11

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

VB:

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 · Hier à 14:15

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

VB:

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 · Hier à 17:44

VB:

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

Code:

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

Code:

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

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

p'tit vieux

XLDnaute Occasionnel

dysorthographie

XLDnaute Barbatruc

p'tit vieux

XLDnaute Occasionnel

p'tit vieux

XLDnaute Occasionnel

dysorthographie

XLDnaute Barbatruc

p'tit vieux

XLDnaute Occasionnel

dysorthographie

XLDnaute Barbatruc

dysorthographie

XLDnaute Barbatruc

p'tit vieux

XLDnaute Occasionnel

p'tit vieux

XLDnaute Occasionnel

dysorthographie

XLDnaute Barbatruc

p'tit vieux

XLDnaute Occasionnel

dysorthographie

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency