Pb avec formule perosonnalisée

Le
Pierre CFI
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FS
Le #20642701
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


Pierre CFI
Le #20642691
çà revient dans mes neuronnes fatigués
=stotal(rc)
çà gaze

"Pierre CFI" news:
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


FS
Le #20642681
> 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


FFO
Le #20642831
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 !!!!!!
Publicité
Poster une réponse
Anonyme