Discussion :

[SixteenVBA]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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? Je souhaite qu'elle retourne soit 1, soit rien càd du vide.

[SixteenVBA]

J'ai trouvé toute seule !

Il fallait définir comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si ca peut servir!

[78chris]

Bonjour

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

[SixteenVBA]

Effectivement. Avez-vous une autre solution?
Merci

[unparia]

Bonjour

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 ...

[78chris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antonysansh]

Bonjour tout le monde,

Je ne comprend pas, tu indiques dans ta fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Alors pourquoi pas tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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? Je souhaite qu'elle retourne soit 1, soit rien càd du vide.

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