Fonction If avec Formula

Bonjour,

Je bloque depuis ce matin sur une macro assez simple combinant 2 conditions dans un IF:
Si une case est vide et que dans l'autre on a la formule "=maintenant", on remplace cette dernière par "=aujourd'hui"

Code:

---

1 2 3 4 5

If Sheets("Donnees").Range("B3").Value = "" And Sheets("donnees").Range("c3").FormulaR1C1 = "=NOW()" Then Sheets("donnees").Range("c3").FormulaR1C1 = " "=today()" MsgBox ("pouet") Call macro End If

---

J'ai une erreur 13 pour la seconde condition. Je ne sais pas si ca vient du formulaR1C1 (j'ai tenté également Formula).

Cette macro avec le Formula dans le Then fonctionne bien par contre.

Code:

---

1 2 3 4 5

If Sheets("Donnees").Range("B3").Value = "" Then Sheets("donnees").Range("c3").FormulaR1C1 = " "=today()" MsgBox ("pouet") Call macro End If

---

Avec-vous une idée?

Cdlt

Bonjour,

Code:

---

FormulaR1C1 = " "=today()"

---

il te manque un guillemet ou tu en as un de trop, non ?

Bonjour à vous, Bonjour au Forum,

Pourquoi une formulation par VBA qui plus est FormulaR1C1 (Berk!)

Code:

---

Sh_travail.Range("A1").Value = Date

---

suffirait largement.

Et ce d'autant que cette propriété peut être liée à un évènement et ou une condition.

Bonjour,

J'avais fait cette partie de formulation car j'avais repris d'un enregistrement macro quand je fais certains, n'étant pas spécialiste VBA.

Et effectivement avec ton code, c'est plus propre et ça fonctionne.