Pourquoi IsEmpty(vbEmpty) renvoi FALSE ???

Question

Bonjour à tous,

Pour des raisons de rigueur, je voulais utiliser vbEmpty comme retour d'une fonction qui échoue.
Seulement, IsEmpty(vbEmpty) renvoi False, c'est quoi ce charabia ?

Je n'y comprend plus rien, avez-vous une idée ? 

Merci d'avance

MadMatt

cs_casy · Answer

vbEmpty est utilisé avec la fonction VarType et plus exactement comme valeur de retour.
vbEmpty est une constante de type Integer, égale à 0. Elle signifie que la variable testée, et en l'occurrence une variable de type Variant, est de type Empty. Cela signifie pour une variable de Variant que la valeur est égale à 0 dans un contexte numérique ou à une chaine de longueur nulle dans un contexte textuel.

IsEmpty(vbEmpty) = False car vbEmpty n'est pas vide, elle est bien définie, de type integer, et égale à 0

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

MadM@tt · Answer

Arf merci pour la réponse, mais alors que dois-je utiliser pour renvoyer une valeur vide non typeé ?

MadMatt

Renfield · Answer

un Variant, me semble

MadM@tt · Answer

Oui mais quelle valeur je met dedans ? 

MadMatt

PCPT · Answer

salut, voici un exemple de fiasco observable.... Option Explicit Dim iTest As Integer Dim sTest As String Private Sub Form_Load() Dim u As Integer MsgBox IsEmpty(fYes) '<- NON MsgBox IsEmpty(fNo) '<- NON MsgBox IsEmpty(sTest) '<- NON MsgBox IsEmpty(iTest) '<- NON MsgBox IsEmpty(u) '<- NON MsgBox IsNull(fYes) '<- NON MsgBox IsNull(fNo) '<- NON MsgBox IsEmpty(sTest) '<- NON MsgBox IsEmpty(iTest) '<- NON MsgBox IsNull(u) '<- NON Unload Me End Sub Function fYes() As Integer fYes = 0 End Function Function fNo() As Integer ' End Function [../code.aspx?ID=39466 Coloration VB6, VBA, VBS] pourquoi? une partie est expliqué par casy d'autres subtilités existent, à l'instant je n'arrive pas à les reproduire, mais je garde (au final) de mauvais souvenirs de ces 2 fonctions soit disant utiles déclare U en variant, les résultats ne sont pas les mêmes... à part IS NOTHING( qui ne colle pas ici), mieux vaut rester méfiant une possibilité (à toi de voir...) serait de passer par une classe, avec sa fonction perso : Option Explicit ' Private mValue As Variant Dim bEmpty As Boolean Public Property Get Value() As Variant Value = mValue End Property Public Property Let Value(ByVal nValue As Variant) mValue = nValue bEmpty = False End Property Private Sub Class_Initialize() bEmpty = True End Sub Public Function IsEmpty() As Boolean IsEmpty = bEmpty End Function Option Explicit ' Private Sub Form_Load() Dim x As New Class1 MsgBox x.IsEmpty '<- OUI x = 30 MsgBox x.IsEmpty '<- NON Unload Me End Sub [../code.aspx?ID=39466 Coloration VB6, VBA, VBS] ici plus aucun problème.... NB : il faut attribuer ( outils > attributs de procédure... ) VALUE par défaut pour na pas avoir à spécifier la propriété ++

Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Renfield · Answer

??

Private Sub Form_Load()
    MsgBox IsEmpty(MaFonction) '# => Renvoie True
    MsgBox IsEmpty(MaFonctionPasVide) '# => Renvoie False
End Sub

Public Property Get MaFonction() As Variant
'
End Property

Public Property Get MaFonctionPasVide() As Variant
    MaFonctionPasVide = 3
End Property





ca fonctionne très bien

PCPT · Answer

oui c'est aussi ce que j'ai indiqué "

déclare U en variant

"

je voulais dire d'utiliser un type défini (integer par exemple) pour Value dans la classe, et que la fonction retourne un type classe

mais faut voir selon l'utilité

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

MadM@tt · Answer

Ah ouais c'est peu fiable ! Enfin bon avec un variant je vois que ça marche. Merci.

MadMatt

Pourquoi IsEmpty(vbEmpty) renvoi FALSE ???

8 réponses

Votre réponse