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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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