Pb avec formule perosonnalisée

Pierre,

Je n'arrive pas à reproduire ton problème (Excel 2003).
En utilisant ce code, qui reprend les éléments que tu fournis, le calcul
se fait correctement :

'============== Sub essai()
Range("B1").Formula = "=sTotal(A1)"
End Sub

Function sTotal(MaCell As Range)
sTotal = MaCell * 2
End Function
'==============
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Pierre CFI a écrit :

Bonjour

je fais une formule perso
function stotal(MaCell as range)

en vba dans une sub
...
...
range("A10").Formula = "=stotal(K10)"

or dans A10 j'ai =stotal("K10")
K10 est entouré de "" et çà va pas
que faire

Pierre CFI

çà revient dans mes neuronnes fatigués
=stotal(rc)
çà gaze

"Pierre CFI" <xxx_pierresalaun@wanadoo.fr> a écrit dans le message de
news:uBTLWJ0bKHA.5576@TK2MSFTNGP02.phx.gbl...

Bonjour

je fais une formule perso
function stotal(MaCell as range)

en vba dans une sub
..
..
range("A10").Formula = "=stotal(K10)"

or dans A10 j'ai =stotal("K10")
K10 est entouré de "" et çà va pas
que faire

Pierre CFI

> Je n'arrive pas à reproduire ton problème (Excel 2003).

Cependant, si la cellule de destination est au format texte, la formule
est affichée
=sTotal(A1)
mais A1 n'est pas entre guillemets comme tu le constates.

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

FS a écrit :

Pierre,

Je n'arrive pas à reproduire ton problème (Excel 2003).
En utilisant ce code, qui reprend les éléments que tu fournis, le calcul
se fait correctement :

'============== > Sub essai()
Range("B1").Formula = "=sTotal(A1)"
End Sub

Function sTotal(MaCell As Range)
sTotal = MaCell * 2
End Function
'============== >
FS

Salut à toi

Je n'ai pas ce défaut chez moi

essaies toute fois comme ceci :

Range("A10").FormulaLocal = "=stotal(K10)"

Peut être du mieux te concernant

Dis moi !!!!!!