Discussion :

[smotte76]

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 :

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

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 :

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

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

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

Merci par avance.

[mercatog]

Bonsoir,

Code :

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

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

[smotte76]

Merci cela fonctionne !

Bonne soirée