Souci dans une Fonction

[kioups]

Bonsoir, j'ai créé une fonction...

Function Bonus1N2(i, j, k As Integer)
Dim a, b, c As String
    If i <> 0 And i < 0.2 Then
        a = "1"
        Else
        a = "-"
    End If
    If j <> 0 And j < 0.2 Then
        b = "N"
        Else
        b = "-"
    End If
    If k <> 0 And k < 0.2 Then
        c = "2"
        Else
        c = "-"
    End If
    Bonus1N2 = a & b & c
End Function

... qui doit afficher 1-- si i<0.2 et les autres valeurs supérieurs ou égales à 0.2,
-N- si j<0.2 et les autres valeurs supérieures, etc.

Problème... Quelle que que la valeur de k, je n'ai jamais de 2 qui apparaissent...

Merci beaucoup !

Kioups

 

[PascalXLD]

Re : Souci dans une Fonction

Bonjour

tu pourrais fournir un petit fichier exemple STP

 

[vbacrumble]

Re : Souci dans une Fonction

Bonsoir

Function Bonus1N2(i As Double, j As Double, k As Double)

 

[kioups]

Re : Souci dans une Fonction

Oki ! C'est parti !

 

[vbacrumble]

Re : Souci dans une Fonction

Re*
*


Forum Excel = xls

Forum Excel 2007 =xlsm

Donc un xls svp !

PS: tu as essayé la modif proposée dans mon précédent message ?

 

[kioups]

Re : Souci dans une Fonction

Bonsoir

Function Bonus1N2(i As Double, j As Double, k As Double)

Merci VBA...

Bravo le prof de maths qui prend les décimaux pour des entiers !

Merci beaucoup !

 

[Minick]

Re : Souci dans une Fonction

Salut,

C'est un probleme de declaration de variable.

Erreur frequente

Dim i, j, k as Interger

veut dire

Dim i as Variant, j as Variant, k as Integer

et non

Dim i as Interger, J as Integer, K as integer

De plus tu veux comparer un chiffre a decimal en le declarant en Entier.
Ton erreur fais que i et j sont bien des decimales mais pas k vu qu'il passe en entier : donc en faisant k = 0.2 en fait tu as k = 0

Meme erreur de declaration pour Dim a, b, c as String

Change :

Function Bonus1N2(i, j, k As Integer) 
Dim a, b, c As String

Comme cela :

Function Bonus1N2(i As Single, j As Single , k As Single) As String
Dim a As String, b As String, c As String

++
Minick

 

[PascalXLD]

Re : Souci dans une Fonction

Re

ET oui ton erreur vient du Integer

Si tu mets -1 tu auras bien 2

mais sinon il arrondit à l'integer 0 et donc tu n'as pas ton 2

 

[kioups]

Re : Souci dans une Fonction

Merci beaucoup pour vos réponses !!!

J'ai un autre souci bizarre, mais là, je vais aller rejoindre Morphée...

Bonne nuit !