Beoin d'aide en vba

misty -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

je veux écrire cette phrase en code vb
cb=0.0158
if round(ca,2) est impair then
y=cb+0.01
else
y=cb+0.02


1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonjour

il y a un pb avec round(ca,2) qui renvoie un décimal avec 2 chiffres après la virgule, la propriété pair/impair concerne des entiers.
si tu veux tester la parité de la partie entière de ca (ici voir si elle est impaire)
If Round(ca) Mod 2 = 1 Then 
  y = cb + 0.01 
Else 
  y = cb + 0.02 
End If

bonne suite
0