Vérifier si Cellule contient une fonction précise

Bonsoir à tous,

Je fais un test sur différentes cellules.
En fait, je fais deux tests.

Exemple :

1) Je vérifie le résultat de la cellule

Code:

---

If ActiveCell.Value = 3575 Then

---

2) je véffie si la cellule contient une fonction précise. Exemple : moyenne.

J'ai essayé avec cette syntaxe mais cela ne fonctionne pas...

Code:

---

1 2	If ActiveCell.Formula Like "*moyenne*" then...

---

Quelqu'un a-t-il la réponse ?

Merci par avance.

Bonsoir,

Code:

---

If Left(Range("A1").Formula, 1) = "=" Then MsgBox "en A1 une formule"

---

Merci cela fonctionne !

Bonne soirée