Beoin d'aide en vba

misty -  
ccm81 Messages postés 11033 Statut Membre -
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

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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