Formule en VBA

[AssuiS]

Bonjour à tous,

Je pédale un peu pour coder la formule suivante en VBA.
=ET(AUJOURDHUI()-M18>0;Q19<Q18)
J'ai essayé avec FormulaLocal mais sans succès.
Quelqu'un peut-il m'aider?
En vous remerciant par avance!

 

[JCGL]

Re : Formule en VBA

Bonjour à tous,
Bienvenue sur XLD

Sans savoir où tu souhaites poser cette formule, un code en absolu :

ActiveCell.Formula = "=AND(TODAY()-R18C13>0,R19C17<R18C17)"

Si tu souhaites la poser en A2, cela donnerait :

Range("A2").Formula = "=AND(TODAY()-R[16]C[12]>0,R[17]C[16]<R[16]C[16])"

En formule locale :

Range("A2").FormulaLocal = "=ET(AUJOURDHUI()-M18>0;Q19<Q18)"

A + à tous

 

[stefan373]

Re : Formule en VBA

Bonsoir assuis et le forum,

Avec l'enregistreur de macro, cela devrait fonctionner.

A +

 

[AssuiS]

Re : Formule en VBA

Merci pour cette réponse rapide...
Ca fonctionne!!

Bonne soirée.