une cellule est elle une fonction

[BasicInstinct]

bonjour tout le monde.

Est il possible, sans VBa, de savoir si une cellule contient le resultat d'une fonction ?

ca donnerai un truc comme ca en Vba, je pense.

sub IsFunction(cellule as string) as boolean
'cellule='A1'
dim laFunc as string
lafunc=activesheet.range(cellule).formulaR1C1
if left(laFunc,1)='=' then
  isFunction=True
else
  isFunction=false
end if


end sub

 

[Hervé]

bonjour


je me lance

essaye ceci : =CELLULE('type';B2)='v'

ta formule en B2.

salut

PS : je sens le zop d'ici.

 

[BasicInstinct]

helas ca ne fonctionne pas. :unsure:

 

[andré]

Salut,

Hi,hi, hi, Hervé !

L'aide MS :
'type' : la valeur de texte correspondant au type des données de la cellule.
Renvoie « i » si la cellule est vide, « l » (pour label (étiquette)) si la cellule contient une constante de texte et « v » (pour valeur) si la cellule contient un autre type d'élément.

Donc pas uniquement une fonction.

Je regarde sous les anciennes macros XL4 pour voir s'il n'y a pas quelque chose qui pourrait servir.

+

 

[Hervé]

re
salut andré

🙂 j'ai tenté le coup.

Pour me faire pardonner, une fonction personnalisée en VBA.

Public Function fonction(cellule As Range) As Boolean
fonction = cellule.HasFormula
End Function

salut

 

[andré]

Resalut Hervé,

Tu me fais penser à ma femme !
Quand je lui dis, dans un moment de tendresse : 'je vais tenter un coup', elle me répond ipso facto :'j'espère pour toi que cela réussisse !' (lol).

Restons sérieux !

Effectivement sous les macros XL4 il y a quelque chose qui pourrait servir, nous pas pour décéler une fonction, mais bien une formule :
=LIRE.CELLULE(48;la cellule)

Attention : il faut nommer cette formule, puis employer son nom dans la cellule qui renverra VRAI ou FAUX.

Pour plus d'explications :
Lien supprimé

Bonne soireé.

Â+

 

[BasicInstinct]

re,

Je dois pas etre bien doué, j'arive pas a exploiter LIRE.CELLULE...
serait il possible d'avoir un exemple concret ???
:whistle:

d'avance merci

 

[andré]

Salut,

Voici le petit exemple avec un mot d'explication.

Â+

[file name=lire_cellule.zip size=2098]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/lire_cellule.zip[/file]

 

[BasicInstinct]

oky merci, c'est tout simple en fait...
merci beaucoup, ca correspond parfaitement a ce que je voulais.