une fonction , probabilités

Bonsoir , j'ai écrit une fonction qui renvoit de manière aléatoire un nombre entre 0 et n , cette fonction marche , voici le code :

Code:

---

1 2 3 4 5 6

Function alea(ByVal x As Long) As Long Dim cou As Long, n As Long n = x cou = Int((n * Rnd) + 1) alea = cou End Function

---

maintenant je dois écrire une fonction qui étant donné un entier positif , renvoie avec une probabilité de 0,7 un entier compris entre 0 et l'entier donné , voici le code que j'ai écrit mais qui ne marche pas :

Code:

---

1 2 3 4 5 6 7 8

Function Alea1(ByVal x As Variant) As Variant If x >= 0 And x <= 1 And Rnd(x) < 0.9 Then x = alea Else x = "salut" End If Alea1 = x End Function

---

Pourquoi cette fonction ne me renvoit pas un nombre entre 0 et l'entier donné avec une probabilité de 0,9 ?

merci

BONSOIR,

elle attends quoi ta premiere fonction !!!!
utilise des msgbox ou des debug.print pour voir l evolution de tes procedures

Code:

---

1 2	Function alea(ByVal x As Long) As Long

---

non je dois pas utiliser de choses en rapport avec des procédures , ma fonction marche et c'est sur la seconde que j'ai un probleme...

hum, vu que tu as mis ton autre post en delestage, je te fais un copier coller de ma derniere réponse
de plus

Code :

Code:

---

1 2 3

Function proba(ByVal n As Variant) As Variant 'Renvoie un nombre aléatoire entre 0 et n avec une probabilité de 0,7 If n >= 0 And n <= 1 And Rnd(n) < 0.7 Then

---

le seul chiffre que tu teste ici c'est Rnd(n) donc je résume
tu as le chiffre n
toto te donne un aléatoire entre 0 et n
mais ta fonction proba ne prend en compte que le chiffre n
et le chiffre que tu teste est un aléatoire issu de ce chifre n
je vois pas l'interet de ta manip
ce qu'il faut c'est que
toto renvoie un chiffre aléatoire n compris entre 0 et 1 (peut etre même que tu serais avisé de travailler avec des entiers. entre 0 et 10 par exemple)

Code:

---

1 2 3 4 5 6

Function proba(ByVal n As Variant) As Variant 'Renvoie un nombre aléatoire entre 0 et 10 avec une probabilité de 7/10 If n <=7 Then x = "hello" Else x = "salut" End If proba = xEnd Function

---

ce qui pourrait ensuite devenir

Code:

---

1 2 3 4 5

Function proba(ByVal n As Variant) As Variant If n <=7 Then x = "hello" Else x = "salut"proba = xEnd Function   et donc ensuite

---

Code :

Code:

---

1 2 3 4

Function proba(ByVal n As Variant) As Variant proba = IIf(n <= 7, "hello", "salut") End Function

---

alsimbad merci de m'avoir répondu mais tu n'as probablement pas lu mon 1er message , la fonction alea ( la 1ere qui marche ) doit bien renvoyer un nombre entre 0 et n et non entre 0 et 1 c'est la consigne de l'exercice .

c'est pgz qui m'a mis sur la voix avec la fonction rnd , faut qu'on l'attende car si tt le monde répond ça sera illisible et je vais tt mélanger...

je repete

Code:

---

1 2

x = alea

---

je comprends pas tes réponses patbou :cry:

ds la fonction alea1 tu apelles la fonction alea, celle ci attends un arguments

Code:

---

1 2 3 4 5 6 7 8 9

Function Alea1(ByVal x As Variant) As Variant If x >= 0 And x <= 1 And Rnd(x) < 0.9 Then x = alea 'ici Else x = "salut" End If Alea1 = x End Function

---

j'ai corrigé mais quand je teste la fonction j'ai une erreur VALEUR :

Code:

---

1 2 3 4 5 6 7 8 9

Function Alea1(ByVal x As Long, ByVal m As String) As Variant Dim n As Long If x >= 0 And x <= 1 And Rnd(x) < 0.9 Then x = alea(n) Else x = "salut" End If Alea1 = x End Function

---

j'ai nettoyé ma fonction , j'y suis presque , mais elle me renvoit sans arrêt le mot "salut" :

Code:

---

1 2 3 4 5 6 7 8 9

Function Alea1(ByVal x As Variant) As Variant Dim n As Long If x >= 0 And x <= 1 And Rnd(x) < 0.9 Then x = alea(n) Else x = "salut" End If Alea1 = x End Function

---

quand je la teste comme ça dans excel alea1(20) , elle me renvoit tjs salut ...

soit tu relis patbou, tu cherche et tu vas comprendre, soit je te donne mon avis ci dessous, ne lis pas si tu veux chercher :D
il me viens un doute. quand tu dis
maintenant je dois créer une fonction qui ... es ce que ça veut dire que alea et alea1 ne sont pas dans le meme exercice ?

si si alea et ale1 sont dans le meme exercice mais regarde mon dernier code il marche presque , la fonction compile bien...mais il m'affiche toujours salut au lieu de m'afficher avec 0,9 de proba des nombres entre 0 et n

si tu utilise F8 tu t'apercevra vite que
If x >= 0 And x <= 1 And Rnd(x) < 0.9 Then
si x = 20 forcement tu seras toujour sur else

ds quelle cas ta condition est verifié:roll:

Citation:

---

quand je la teste comme ça dans excel alea1(20) , elle me renvoit tjs salut ...

---

relis ta fonction

oui tu as raison tt le problème vient de cette ligne donc je vais déclarer une autre variable y qu'en penses tu :

Code:

---

1 2 3 4 5 6 7 8 9

Function Alea1(ByVal x As Variant) As Variant Dim n As Long, y As Double If y >= 0 And y <= 1 And Rnd(y) < 0.9 Then x = alea(n) Else x = "salut" End If Alea1 = x End Function

---

ça marche tjs pas :)

je ferai peut etre mieux d'affecter directement à y une valeur non ?

mais je sais pas dire en vba y = de 0 à 1 ...

essaye d'en ajouter encore une ou deux, ça simplifiera surement les choses :D
tu devrais plutot écrire ta fonction en français
je prend un chiffre X ...
j'en extrai un aléatoire ...
continue pour voir

a ton avis quel est la valeur d une varaible non initialisée ?(y)

A QUOI SERT CETTE CONDITION SI TU VEUX UNE PROBABILITE DE 0,1

alsimbad , alors voilà j'en ai rajouté mais bon sans succès :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function Alea1(ByVal x As Variant) As Variant Dim n As Long, y As Double, w As Double, z As Double w = 0 z = 1 If y >= w And y <= z And Rnd(y) < 0.9 Then x = alea(n) Else x = "salut" End If Alea1 = x End Function

---

patbou je ne sais pas combien vaut une variable initialisée je suis désolée ...

mais je suis d'accord avec toi ya un problème avec la condition...

je suis certaine que le probleme vient du rnd(y)