Fonction et valeurs nulles

bonjour,

quelle fonction ? y'en a plein qui pourraient renvoyer des valeus nulles.Par
ailleurs, quel est le sens réel de ta question , en d'autres termes quel but
poursuis-tu ?

A+

Bonjour !
Sauriez-vous me dire s'il est possible de faire renvoyer
la valeur nulle à une fonction VBA ?
Merci d'avance

V.

Sauriez-vous me dire s'il est possible de faire renvoyer
la valeur nulle à une fonction VBA ?

Function Cnul()
Cnul = 0
End Function


C'est pas ça ?
;-)
AV

Bonjour,
Je cherche juste à renvoyer une valeur nulle, ou vide...

Public Function Test(Grille As Range) As Double
Dim Arg1 As Boolean
.../...
If Arg1 Then
Test = 0 'Vide serait mieux
Else
Test = Grille.Cells.Count
End If
End Function

J'aimerais faire en sorte que si dans une cellule, Test
renvoie 0, et que je teste cette cellule dans ma feuille
de calcul par la fonction ESTVIDE, Estvide me renvoie
VRAI !
Est-ce plus clair ?
Merci encore...

:o)))
Mort de rire, mais non, ce n'est pas ça ! :-p

-----Message d'origine-----

Sauriez-vous me dire s'il est possible de faire renvoyer
la valeur nulle à une fonction VBA ?

Function Cnul()
Cnul = 0
End Function


C'est pas ça ?
;-)
AV


.

re,

je déclarerais la fonction test Public Function Test(Grille As Range) As
Variant au lieu de Double et je l'écrirais

Public Function Test(Grille As Range) As Variant

Dim Arg1 As Boolean

If Arg1 Then
Set Test = Nothing
Else
Test = Grille.Cells.Count
End If

End Function


et je mettrais dans la procédure appelante de la fonction les instructions
suivantes

On Error Resume Next

tampon = Test(Cells(1, 1))

If Err.Number <> 0 Then
Err.Clear
MsgBox "test est vide"
Else
MsgBox Test(Cells(1, 1))
End If


sais pas si j'ai bien compris ta demande

A+

Bonjour,
Je cherche juste à renvoyer une valeur nulle, ou vide...

Public Function Test(Grille As Range) As Double
Dim Arg1 As Boolean
..../...
If Arg1 Then
Test = 0 'Vide serait mieux
Else
Test = Grille.Cells.Count
End If
End Function

J'aimerais faire en sorte que si dans une cellule, Test
renvoie 0, et que je teste cette cellule dans ma feuille
de calcul par la fonction ESTVIDE, Estvide me renvoie
VRAI !
Est-ce plus clair ?
Merci encore...

En fait, je voudrais écrire en A1 d'une feuille :
=Test(A2:B2)
et en B1, =ESTVIDE(A1)
et que B1 me renvoie vrai si test renvoie du vide (ce que
je n'arrive pas à faire, puisque avec Set test = Nothing,
j'obtiens en A1 un beau #VALEUR!).
Merci quand même pour la piste !

-----Message d'origine-----
re,

je déclarerais la fonction test Public Function Test
(Grille As Range) As

Variant au lieu de Double et je l'écrirais

Public Function Test(Grille As Range) As Variant

Dim Arg1 As Boolean

If Arg1 Then
Set Test = Nothing
Else
Test = Grille.Cells.Count
End If

End Function


et je mettrais dans la procédure appelante de la
fonction les instructions

suivantes

On Error Resume Next

tampon = Test(Cells(1, 1))

If Err.Number <> 0 Then
Err.Clear
MsgBox "test est vide"
Else
MsgBox Test(Cells(1, 1))
End If


sais pas si j'ai bien compris ta demande

A+

Bonjour,
Je cherche juste à renvoyer une valeur nulle, ou
vide...

Public Function Test(Grille As Range) As Double
Dim Arg1 As Boolean
..../...
If Arg1 Then
Test = 0 'Vide serait mieux
Else
Test = Grille.Cells.Count
End If
End Function

J'aimerais faire en sorte que si dans une cellule, Test
renvoie 0, et que je teste cette cellule dans ma
feuille

de calcul par la fonction ESTVIDE, Estvide me renvoie
VRAI !
Est-ce plus clair ?
Merci encore...

.

La formule =ESTVIDE(A1) ne pourra jamais te renvoyer VRAI si A1 contient
=Test(A2:B2) et cela, quel que soit le résultat de ta fonctin perso !

AV

Eh bé voilà ! bien fait pour moi, et merci pour l'info !

-----Message d'origine-----
La formule =ESTVIDE(A1) ne pourra jamais te renvoyer VRAI
si A1 contient

=Test(A2:B2) et cela, quel que soit le résultat de ta
fonctin perso !

AV


.