Discussion :

[zebi42]

Bonjour,

Dans le code ci-dessous, la fonction Vraifaux me renvoie une erreur de syntaxe dans une macro VBA.
Pouvez-vous m'aider ou bien, y a t'il une autre façon d'écrire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
a = Range("A65536").End(xlUp).Row
 
Columns("H:H").Select
    Selection.NumberFormat = "0.00%"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = vraifaux(rc[-1]=0;100;"(RC[-2]-RC[-1])/RC[-1]")
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H" & a)
    Range("H2:H" & a).Select

[User]

Salut,

En VBA il faut utiliser la notation anglo-saxone avec , au lieu de ; :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

iif(condition,SiVrai, SiFaux)

A+

[zebi42]

merci pour ta réponse, mais cela ne fonctionne pas mieux; il doit y avoir une erreur dans la syntaxe.

[User]

merci pour ta réponse, mais cela ne fonctionne pas mieux; il doit y avoir une erreur dans la syntaxe.

En effet, il doit y avoir une problème dans cette expression:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = vraifaux(rc[-1]=0;100;"(RC[-2]-RC[-1])/RC[-1]")

Je ne connais pas bien Excel, mais a mon avis il attend l'expression d'une formule, donc je verrai bien une chaine de caractère du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveCell.FormulaR1C1 = "=Somme([A1:A10])"

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveCell.FormulaR1C1 = "=SI(A1;A10;A20)"

un truc du style quoi

Je ne suis pas sûr de l'argument...

[zebi42]

J'ai enfin trouvé la bonne syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-1]), 1, (RC[-2]-RC[-1])/100)"