Bonjour
Je voudrais écrire un code qui demande le rayon d’un cercle et donne la surface . Pour se faire je dois veuiller à ce que rayon soit bien numérique. J’ai ce code-ci il me marche pas je ne vois pas où se situe le problème
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub surfacecercle()
Dim rayon as byte 
Rayon = inputbox(´´ entrer le rayon’´)
If isnumeric(rayon) then 
    Call msgbox(worksheetfunction.pi*rayon*rayon)
Else 
    Call msgbox(‘´ entrer une valeur numérique ‘´)
End if 
End sub