Beoin d'aide en vba

misty -
ccm81 Messages postés 11033 Statut Membre - 15 juin 2011 à 17:35

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

Afficher la suite

A voir également:

Beoin d'aide en vba
Excel compter cellule couleur sans vba - Guide
Vba find - <a href="https://forums.commentcamarche.net/forum/astuces-et-solutions-378">Astuces et Solutions</a>
Vba inputbox - <a href="https://forums.commentcamarche.net/forum/astuces-et-solutions-378">Astuces et Solutions</a>
Incompatibilité de type vba ✓ - <a href="https://forums.commentcamarche.net/forum/vb-vba-267">Forum VB / VBA</a>
Vba range avec variable ✓ - <a href="https://forums.commentcamarche.net/forum/vb-vba-267">Forum VB / VBA</a>

1 réponse

Réponse 1 / 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

Discussions similaires

erreur d'execution 9, l'indice n'appartient pas à la sélection

VBA excel : résoudre problème de capacité.

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

[Excel] Méthode Autofill dans une macro

Discussions similaires

Newsletters