Fonction VBA

2301 -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je suis débutante en VBA ,j'ai des fonctions mais j'arrive pas de trouver la solution correcte,
par exemple avec cette fonction est ce qu'elle retourne flase seleument




Private Function XXX(by val chiffre as long)as Boolean
If chiffre <4 or chiffre =5 or chiffre =7 then
XXX=true
Exit Function
End IF
If chiffre<=7 or chiffre mod 2=0
Or chiffre mod 3=0 then
XXX=false
Exit function
End if
Dim i as long, j as long, r as long,r2 as long
r =1 : r2=1
do while(i*i <= chiffre and r*r2 >0)
j=j+1
i=6* j -1 : r =chiffre mod i
if r=0 or r2= 0 then
if r=0 or i=i-2 then
XXX=flase
END IF
Else
XXX=true
End if loop
End function

Je suis confus
aide moi STP

merci d'avance
A voir également:

2 réponses

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour

Le meilleur moyen de savoir ce que retourne la fonction, c'est de la tester ... non tu ne crois pas ? Ca ne te vient pas à l'idée de passer en mode débogage et de faire tourner le code pas à pas ?

Et non la fonction ne retourne pas uniquement False. A toi de tester pour savoir quand elle retourne False ou True.
1
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
Bonjour,

déjà je pense que ce n'est pas flase mais false que tu veux retourner, mais pour pouvoir retourner quelque chose, il faut préciser juste avant la fin de ta fonction ce qui doit être retourné.

Perso je mettrais
return XXX
juste avant
End Function
.

Cordialement.
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour chossette.

Je réponds ici, l'autre sujet étant fermé.
Je l'ai remarqué également depuis hier, je l'ai signalé à la modération. Il faut en faire de même si tu en trouves d'autre, c'est le seul moyen que nous avons d'intervenir.

Bon courage

;o)
0