resultat formule

[Dorkahn]

Bonjour le forum,

J'ai un petit probleme de formule, je cherche a voir directement le resultat de la formule dans un tableur mais il m'affiche dans la case #VALUE!

si quelqu'un a une idee, merci beaucoup:


Private Sub formul()
Dim Y As Byte

For Y = 2 To 10

ActiveSheet.Range('P' & Y)=[IF(RC[-5]-RC[-3]='''','''',RC[-5]-RC[-3])]

Next

End Sub

 

[ERIC S]

Bonjour

et que vois-tu dans la barre où le contenu de la cellule (formule) et non le résultat apparaît

l'enregistreur de macro donne

ActiveCell.FormulaR1C1 = '=SUMIF(RC[2]:R[2]C[2],RC[3],RC[2]:R[2]C[2])'

(cas d'un somme.si)

la syntaxe est différente de ce que tu as écrit

essaie l'enregistreur sur ta formule

A+

 

[Dorkahn]

Merci de te pencher sur mon probleme Eric

En fait je me suis peut etre mal exprime dans mon explication.

je veux uniquement dans la cellule le resultat de la formule et non la formule elle meme.

j'etais tombe sur un site qui repondait partiellement a ma reponse voici ce que dit le site:
'En mettant la formule entre crochets seul le résultat de la formule
'est affiché dans la cellule
[A1] = [average(C5:C8)] ' moyenne de C5:C8

J'essaye d'adapter ceci a ma formule
ActiveSheet.Range('a' & 1) = [IF(RC[-5]-RC[-3]='''','''',RC[-5]-RC[-3])]
Mais ca ne fonctionne pas.

Est ce qu'il est possible de faire cette manipulation??

merci beaucoup

 

[ERIC S]

re

déjà fait attention car si tu sélectionnes A1 et que tu as des déplacements négatifs en ligne ou colonne cela pose un pb

sinon utilise l'enregistreur de macros :

outil macro nouvelle macro...

puis écris la formule qui t'intéresse dans une cellule

ferme l'enregistreur

va voir le code généré (alt F11 ou outils macros macro modifier)

A+

 

[Dorkahn]

Ca marche, merci pour ton aide

bonne journee et bon week end

 

[pierrejean]

bonjour Dorkahn

Salut ERIC S


ta formule ne marche pas (difference de 2 cellules ne peut pas etre vide)

j'ais pu obtenir un resultat avec

Sub formul()
Dim Y As Byte

For Y = 2 To 10

ActiveSheet.Range('P' & Y).FormulaR1C1 = '=IF(RC[-5]-RC[-3]=0,0,RC[-5]-RC[-3])'

Next

et dans la cellule il y a bien le resultat ,par contre la formule est dans la barre superieure