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

Réponse 1 / 1
ccm81 Messages postés 11033 Statut Membre 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

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses