Savoir si la cellule contient une formule

J

jeromegmc

XLDnaute Occasionnel

• 5 Décembre 2005

• #2

Salut,

Voici une function réalisé en VBA:

Code:

Function Test_Formule(MaCellule As Range)

If Left(MaCellule.Formula, 1) = '=' Then
Test_Formule = 'FORMULE'
Else
Test_Formule = 'PAS DE FORMULE'
End If

End Function

Voici un exemple:
Dans A1 écrit '100'
Dans B1 écrit '=A1'
Dans C1 écrit '=test_formule(B1)'
Et en C1 tu auras comme résultat: 'FORMULE'.

Si maintenant dans B1 tu y supprimes ta formule tu auras en A3 le résultat: 'PAS DE FORMULE'.


A+

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 5 Décembre 2005

• #3

bonjour SVri , bonjour Jeromegmc

ci joint une autre possibilité adaptée de la fonction proposée par Jeromegmc


Function Test_Formule(MaCellule As Range)
If MaCellule.HasFormula Then
Test_Formule = 'FORMULE'
Else
Test_Formule = 'PAS DE FORMULE'
End If
End Function



bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

S

SVri

Guest

• 5 Décembre 2005

• #4

OK,
Merci à vous 2 pour ces fonctions ...

Bon, alors, par contre, je ne sais pas comment l'appliquer (pas habitué à utiliser des function) ...
je l'ai copiée dans la page de code de la page/ du classeur, mais elle n'est pas reconnue lorsque je l'utilise (=test_formule(A1))...

Qu'ais-je oublié ??

 

Vote positif 0 Vote négatif

J

jeromegmc

XLDnaute Occasionnel

• 5 Décembre 2005

• #5

Re,


En fait, une fonction doit se trouver dans un 'module', pour cela, sous VBA, fait un clic droit sur la feuil1 par exemple et puis / insertion / module, et colles ta fonction dans la fenêtre qui vient de s'ouvrir.

A+

 

Vote positif 0 Vote négatif

S

SVri

Guest

• 5 Décembre 2005

• #6

Merci, ca fonctionne.

SVri

 

Vote positif 0 Vote négatif

P

p.a.giasson

XLDnaute Nouveau

• 6 Novembre 2013

• #7

Re : Savoir si la cellule contient une formule

J'ai essayé de suivre les instructions qui sont indiquées dans le forum et j'obtiens le message d'erreur suivant:

Microsoft Visual Basic

Erreur de compilation:

Erreur de syntaxe

Est-ce que quelqu'un a une idée de ce que je fais de mal? Pour votre information, j'utilise une vieille version d'Excel (2003).

Merci!

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Novembre 2013

• #8

Re : Savoir si la cellule contient une formule

Bonjour à toutes et à tous,

Bienvenue sur XLD, p.a.giasson.

Peut-être en modifiant le code de MichelXld comme suit :

Code:

Option Explicit
Function Test_Formule(MaCellule As Range)
If MaCellule.HasFormula Then
Test_Formule = "FORMULE"
Else
Test_Formule = "PAS DE FORMULE"
End If
End Function

A bientôt

 

Vote positif 0 Vote négatif

P

p.a.giasson

XLDnaute Nouveau

• 6 Novembre 2013

• #9

Re : Savoir si la cellule contient une formule

Ça fonctionne! Merci beaucoup!

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 6 Novembre 2013

• #10

Re : Savoir si la cellule contient une formule

Bonsoir, coucou ÔÔ

Une autre solution sans macro :
Ce lien n'existe plus

et avec 2013 : = Formuletexte(A1) (fonction NATIVE d'excel)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Novembre 2013

• #11

Re : Savoir si la cellule contient une formule

Bonjour à tous,

Un essai avec un nom dynamique et une formule.

Se positionner sur une cellule quelconque: par exemple H1
Définir le nom formula par la formule: =LIRE.CELLULE(6;Feuil1!G1)
G1 est la cellule à gauche de la cellule H1 qui est la cellule active
Bien écrire G1 sans aucun $ (pas $G1, pas G$1, pas $G$1)

Après avoir défini le nom formula, saisir la formule suivante en B2:
=SI(ET(GAUCHE(Formula;1)="=";Formula<>A2);"Formule";"Valeur saisie")

Tirer cette formule vers le bas.

Bonjour Misange Tu m'as devancé de peu avec ton lien La formule proposée est plus simple mais je n'avais pas le paramètre 48 dans mon pense-bête.

 

Pièces jointes

• Guest SVri v1.xls

  66 KB · Affichages: 181

Dernière édition: 6 Novembre 2013

Vote positif 0 Vote négatif