Fonction VBA
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
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
2 réponses
-
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. -
ContributeurBonjour,
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 mettraisreturn XXX
juste avantEnd Function
.
Cordialement.
