[XL-2010] Mettre dans cellule que le résultat et non la formule [Résolu]

[Philippe76]

Bonjour a tous en bonne année 2012
Voilà je prend un exemple simple j'ai des nombres de A1 à A10 et j'écris en B2 la formule suivante

Code :

=SI(SOMME(A1:A10)>30;"grand";"petit")

le résultat me mais bien grand ou petit en fonction de la somme des nombres de la conne A.
Maintenant je mais en VBA cette formule

Code :

1
2
3
4
Sub Macro1()
    ActiveCell.FormulaR1C1 = _
        "=IF(SUM(R[-2]C[-1]:R[7]C[-1])>30,""grand"",""petit"")"
End Sub

je souhaite afficher que le résultat et la formule
Je voudrai aussi transformer cette macro1 en une function personnalisé
Merci et bonne journée a tous
Philippe

[ZebreLoup]

Attention, à l'orthographe et aux mots manquants, ce n'est pas toujours évident de comprendre ce que tu veux. Mais je crois que je vois, je te fais un truc de suite.

Code :

1
2
3
4
5
Public Function SommeGrandePetite(rg As Range) As String
    Dim s As Double
    s = WorksheetFunction.Sum(rg)
    SommeGrandePetite = IIf(s > 30, "grand", "petit")
End Function

[Philippe76]

Merci pour ta réponse
Effectivement je souhaite presque cela mais cela affiche dans la, cellule

Code :

=SommeGrandePetite(A1:A10)

et moi je voulais juste grand ou petit.
A moins de pouvoir écrire en VBA la formule sous forme Macro mais n'afficher que le résultat
merci

[ZebreLoup]

C'est un cellule au format texte ? Parce que sinon, ça devrait marcher, j'ai testé.

Et tu l'as mis où ce code ?

[Philippe76]

Merci
J'ai écrit le code dans un module effectivement cela écrit bien grand ou petit mais ce que voulait et je crois que cela n'est possible du moins sous cette forme d'ecriture c'est quand je clic dans ma cellule je ne vois que "grand ou petit" comme si je faisais un copier/coller les valeurs
Merci

[ZebreLoup]

Dans ce cas il faut faire une macro qui va recopier le résultat dans la cellule. Mais ça ne se mettra pas à jour automatiquement. Sauf en jouant avec l'évènement Worksheet_Change...