Exercices

Bonjour,

je suis débutante en VBA ,j'ai un ensemble des exercices en VAB mais j'arrive pas à tester car j'ai un problémé coté logiciel.........
j'ai posté mon sujet plusieurs fois mais j'ai récu des réponses sans résultat claire et détaillés
:(
voici mon 1 ere exercice fonction :

Option Explicit
Dim NOmbre as long
Dim Te as Long
Private Function YYY (By RefNombre as long) As Boolean
If Nombre Mod 2 0 and Nombre <> 2 then goto Non
If right (str(Nombre)="0" or right (str(Nombre)="5") and Nombre <>5
Then goto non :
For Te =3 to sqr(Nombre) step 2
If Nombre Mod Te=0 then goto non
Next Te
YYY= true
Exit Function
Non:
YYY=flase
End function

qu'elele sont le résultat de cette fonction pour les valeur 2,5,13,16,23,25,,30

aide moi STp
merci d'avance