Comment savoir si une cellule contient une formule ?

Hosni

unread,

Feb 13, 2001, 4:48:02 AM2/13/01

to

Bonjour,
Comment on peut savoir si une cellule contient une formule ??
J'ai essayé la fonction Type(cellule) qui normalement retourne 8 si la cellule
contient une formule mais elle me retourne toujours 1 (nombre).

Merci pour l'aide,
Hosni GOUIDER

Daures L

unread,

Feb 13, 2001, 5:08:18 AM2/13/01

to

ça m'avait été envoyé par Frédéric Sigonneau
If [A1].HasFormula Then
Ou bien
If range("A1")HasFormula Then

J'en fais profiter les voisins
Amicalement
Laurent (de Marseille)

"Hosni" <hosni....@mailcity.com> a écrit dans le message news:
25dc01c095a2$0e728280$19ef2ecf@tkmsftngxa01...

Daures L

unread,

Feb 13, 2001, 5:13:36 AM2/13/01

to

Pardon, j'avais oublié un point
> If range("A1").HasFormula Then
Les mauvaises langues qui prononceraont le mot stats auront mon point sur le
"i" aussi.
Amicalement
Laurent (de Marseille)
"Daures L" <LAURENt...@wanadoo.fr> a écrit dans le message news:
96b0do$g8r$1...@wanadoo.fr...

Hosni

unread,

Feb 13, 2001, 5:51:52 AM2/13/01

to

Merci pour ton aide,

ceci peut être utilisé dans une macro ??
Mais je veux faire ce test directement sur la cellule !! Tu vois ce que je veux
dire !!!
Merci encore

-----Message d'origine-----

.

André Barelier

unread,

Feb 13, 2001, 6:09:31 AM2/13/01

to

Laurent a du partir respirer humer le vent d'Ouest : je réponds à sa place.
Dans une macro ? Bien sûr !
Sur la cellule elle-même ? Bien sûr :
If ActiveCell.HasFormula Then etc.etc.

André

"Hosni" <hosni....@mailcity.com> a écrit dans le message news:

2bad01c095aa$f97cd2a0$b1e62ecf@tkmsftngxa04...

Pascal Engelmajer

unread,

Feb 13, 2001, 7:01:50 AM2/13/01

to

salut,
je pense que la question d'hosni concerne la fonction TYPE() de la feuille
de calcul.
Y-a-t-il quecun dans ce forum qui ait un exemple ou TYPE(A1) renvoi la
valeur 8 ?
C'est à dire la cellule A1 contient une formule.
Pascal
André Barelier <andre.b...@wanadoo.fr> wrote in message
news:eLDXNyalAHA.1424@tkmsftngp03...

ChrisV

unread,

Feb 13, 2001, 7:05:39 AM2/13/01

to

Bonjour Hosni,

Sub FormuleOuPas()
If ActiveCell.HasFormula Then
Rep = MsgBox("La cellule " & ActiveCell.Address & _
" contient une formule.", , _
"Formule ou pas ?")
Else: Rep = MsgBox("La cellule " & ActiveCell.Address & _
" ne contient pas de formule.", , "Formule ou pas ?")
End If
End Sub

ChrisV

"Hosni" <hosni....@mailcity.com> a écrit dans le message news:
25dc01c095a2$0e728280$19ef2ecf@tkmsftngxa01...

Bernard Rey

unread,

Feb 13, 2001, 7:59:17 AM2/13/01

to

Manifestement, la fonction TYPE() renvoie un nombre en fonction
du résultat de la cellule, du contenu apparent. On obtient assez
facilement 1, 2 ou 16 (erreur), mais je ne vois pas comment
faire apparaître une fonction comme résultat dans une cellule.

Peut-être un "plus plumé" de la liste saurait...

--
Bernard Rey / Toulouse

"Pascal Engelmajer" <pascal.e...@ilyapa.net> a écrit dans
le message news: uwFlaLblAHA.1348@tkmsftngp02...

ChrisV

unread,

Feb 13, 2001, 9:44:27 AM2/13/01

to

Bonjour Bernard,

Peut être avec:

Function FormuleCellule(cellule)
If cellule.Range("A1").HasFormula Then
FormuleCellule = cellule.Range("A1").FormulaLocal
Else
FormuleCellule = ""
End If
End Function

ChrisV

"Bernard Rey" <Pas...@free.fr> a écrit dans le message news:
udUx30blAHA.1616@tkmsftngp04...

Bernard Rey

unread,

Feb 14, 2001, 5:17:52 AM2/14/01

to

Intéressant, mais =TYPE(A2) continue à voir du texte (renvoie la
valeur 2) dans la cellule A2, si c'est dans celle-ci qu'on
rentre =FormuleCellule(A1).

C'est amusant, cette formule, finalement...

--
Bernard Rey / Toulouse

"ChrisV" <cver...@free.fr> a écrit dans le message news:
eHRXnzclAHA.408@tkmsftngp04...