Discussion :

[Guizmonster]

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

[halaster08]

Bonjour,

Code :

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

FormulaR1C1 = " "=today()"

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

[MarcelG]

Bonjour à vous, Bonjour au Forum,

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

Code :

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

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.

[Guizmonster]

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.