VBA: Function retournant booléen ou objet

[Guy_M]

Bonjour,

Je rencontre à l'exécution une erreur "type incompatible" sur la ligne "Set Resultat = Appelee" avec le code exemple suivant (j'ai simplifié le code à l'extrème) :

Sub Appelante()
Dim Resultat As Variant
Set Resultat = Appelee()
End Sub

Function Appelee() As Variant
Set Appelee = Nothing
Appelee = False
End Function

C'est "normal" puisse que j'essaye de faire un SET avec un variant/booléen.

Dans mon code "Appelee" retourne un variant/booléen quand elle s'est mise en erreur (pour remonter l'erreur au niveau de l'appelant) sinon elle retourne un objet.

Auriez-vous un truc pour réussir à gérer ce genre de situation ?

Par avance, je vous remercie de vos réponses.

A bientôt
Guy

 

[Dranreb]

Re : VBA: Function retournant booléen ou objet

Bonjour.

À part en mettant On Error Resume Next devant je ne vois pas trop.
Le mieux serait de laisser Nothing l'objet retourné, ça ne plante pas au Set dans l'appelant et ça se teste facilement ensuite.

If Resultat Is Nothing Then MsgBox "Rien"

 

[Guy_M]

Re : VBA: Function retournant booléen ou objet

Merci Draneb,

C'est ce que je me suis résolu à faire, en remontant une erreur puisse que la valeur booléenne correspondait à l'existence d'une erreur dans la procédure appelée

Sub Appelante()
Dim Resultat As Variant
Set Resultat = Appelee()
if err.number > 512 then
'Traitement du mauvais déroulement de Appelee
end if
End Sub

Function Appelee() As Variant
Set Appelee = Nothing
err.number=512+1
End Function

A bientôt
Guy

 

[Dranreb]

Re : VBA: Function retournant booléen ou objet

la valeur booléenne correspondait à l'existence d'une erreur dans la procédure appelée

Oui mais le Nothing à lui seul peut-il correspondre à autre chose que ça ? Sinon un test avec Resultat Is Nothing suffirait !

 

[Guy_M]

Re : VBA: Function retournant booléen ou objet

Bonjour Dranreb

J'ai ajouté le test sur err.number car Appelee peut retourner Nothing sans que cela soit la conséquence d'une erreur.

Peut être, devrait-je faire un err.raise dans Appelee ? J'ai encore des progrès à faire sur la gestion des erreurs.

A bientôt
Guy

 

[Dranreb]

Re : VBA: Function retournant booléen ou objet

Dans ce cas j'écrirais peut être une Function qui retourne un indicateur d'erreur, avec l'objet passé en paramètre ByRef.

Sub Appelante()
Dim Resultat As Object ' Préférer un type d'objet explicite si possible, pareil pour le paramètre de la Function.
If AppeléeErr(Resultat) Then
   MsgBox "Erreur"
ElseIf Resultat Is Nothing Then
   MsgBox "Pas d'objet assigné"
Else
   ' Utiliser l'objet Resultat
   End If
End Sub

Function AppeléeErr(ByRef Obj As Object) As Boolean
Set Obj = Nothing
AppeléeErr = True
End Function