Type fonction à determiner

Bonjour à tous,

VOilà j'ai créer une fonction que voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function IsAvancVar(ByVal Delay As Single, ByVal Avanc As Single) As Byte   'cette fonction renvoie vrai si le retard est supérieur à la variable jour de retard choisie   If Delay > Avanc * -1 Then IsAvancVar = "" Else IsAvancVar = 1 End If   End Function

---

Elle fonctionne lorsque elle est égale à 1, mais quand ca doit afficher vide, cela affiche #VALEUR! .
Je pense donc que cela vient du type définit, puisque Byte est pour du binaire, mais je ne trouve pas lequel mettre à la place. POuvez vous m'aider?:roll: Je souhaite qu'elle retourne soit 1, soit rien càd du vide.

J'ai trouvé toute seule !

Il fallait définir comme ceci :

Code:

---

Function IsAvancVar(ByVal Delay As Single, ByVal Avanc As Single) As String

---

Si ca peut servir!

Bonjour

Ton 1 va être sous forme de texte...

Effectivement. Avez-vous une autre solution?
Merci

Bonjour

Citation:

---

Effectivement. Avez-vous une autre solution?

---

peut-être dans l'utilisation (en formule) de cette fonction (en la retypant en byte)
Mais on ne la vois pas, ta formule ...

Bonjour

De façon général il n'est pas sain qu'une fonction renvoie tantôt du texte, tantôt un chiffre.

Car tout calcul doit pouvoir faire partie d'un enchaînement de calculs...

Pour ma part je renverrais 0, sachant qu'il y a de multiples possibilités de ne pas afficher les 0.

Sinon, si tu y tiens

Code:

---

Function IsAvancVar(ByVal Delay As Single, ByVal Avanc As Single) As Variant

---

Bonjour tout le monde,

Je ne comprend pas, tu indiques dans ta fonction :

Code:

---

'cette fonction renvoie vrai si le retard est supérieur à la variable jour de retard choisie

---

Alors pourquoi pas tout simplement :

Code:

---

1 2 3 4

Function IsAvancVar(ByVal delay As Single, ByVal Avanc As Single) As Boolean 'cette fonction renvoie vrai si le retard est supérieur à la variable jour de retard choisie IsAvancVar = Not delay > Avanc * -1 End Function

---

Ensuite tu peux convertir facilement un boolean en chiffre si besoin via la fonction vb CInt()
Il faut juste savoir que :

• CInt(True) vaut -1
• CInt(False) vaut 0

Je te propose ces deux tests pour voir le fonctionnement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test1() Dim delay!, Avanc! delay = 3.5: Avanc = -5 MsgBox IsAvancVar(delay, Avanc) MsgBox CInt(IsAvancVar(delay, Avanc)) * -1 End Sub   Sub test2() Dim delay!, Avanc! delay = 5: Avanc = -3.5 MsgBox IsAvancVar(delay, Avanc) MsgBox CInt(IsAvancVar(delay, Avanc)) * -1 End Sub

---

---

Autre chose :

Citation:

---

Envoyé par mmarpaud

Elle fonctionne lorsque elle est égale à 1, mais quand ca doit afficher vide, cela affiche #VALEUR! .
Je pense donc que cela vient du type définit, puisque Byte est pour du binaire, mais je ne trouve pas lequel mettre à la place. POuvez vous m'aider?:roll: Je souhaite qu'elle retourne soit 1, soit rien càd du vide.

---

Citation:

---

puisque Byte est pour du binaire

---

Byte n'est pas 0 ou 1 mais un entier entre 0 et 255. Il ne faut pas faire cette confusion.

1 bit c'est 0 ou 1
1 octet c'est 8 bit donc de 00000000 à 11111111 (0 à 255)
1 byte = 1 octet