Discussion :

[BtjpsspgrW]

Bonjour,

Je souhaiterais insérer une formule conditionnelle dans la cellule active.

Code :

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

Selection.FormulaR1C1 = "=+IF(RC[-2]-RC[-1]>0.01,""ECART"","""")"

Qui correspond dans Excel dans la barre de formule =+SI(J2-K2>0.01;"ECART";"")

Comment faire apparaitre les cellules nommées J2 et K2 dans vba et faire apparaître exactement dans la barre de formule =+SI(J2-K2>0.01;"ECART";"")
Les cellules J2 et K2 contiennent des nombres.

Ci-dessous, mon modèle à corriger :

Code :

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

1
2
3
Sub formule_conditionnelle()
ActiveCell.Formula = "=..." 
End Sub

Vous en remerciant par avance.

Cordialement.

[Philippe Tulliez]

Bonjour,
Il y a deux possibilités (sans parler des formules locales)
Soit en style L1C1

Code :

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

ActiveCell.FormulaR1C1 = "=IF(RC[-2]-RC[-1]>0.01,""ECART"","""")"

soit

Code :

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

ActiveCell.Formula = "=IF(J2-K2>0.01,""ECART"","""")"

Si tu hésites pour la syntaxe d'une formule, tu écris ta formule par exemple en cellule C2
Tu vas dans la fenêtre Exécution de ton éditeur (que l'on active par Ctrl+G) et tu tapes l'instruction suivante

Code :

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

? Range("C2").formula

ou

Code :

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

? Range("C2").FormulaR1C1

Tu vas voir s'afficher la formule dans le style choisi.
Il te suffit ensuite de faire un Copier/Coller dans ton code en doublant les guillemets des constantes alphanumériques s'il y en a dans la formule.