Discussion :

[cladsam]

Bonjour,

Sous Excel, j'aimerais savoir comment, pour un cellule donée :
1) Spécifier la formule correspondante
2) Faire en sorte que pour cette cellule, ce qui soit affiché soit non pas la valeur calculée de la formule mais la formule elle même.

Merci,

Cladsam

[Vesta]

Pour permettre d'afficher une formule tu peux placer un ' devant le =

exemple:

'=SOMME(A1:A12)

Sinon dans les préférences tu peux demander d'afficher toutes les formules...

[cladsam]

Bonjour, je te remercie pour la réponse mais ayant mis [VBA] dans mon sujet, je pensais que la question etait claire, comment depuis le CODE VBA affecter une formule à une cellule et dire que j'aimerais que pour cette cellule s'affiche la formule et non sa valeur calculée.

[AlainTech]

comment depuis le CODE VBA affecter une formule à une cellule

Cette formule n'est jamais que du texte.
Pour éviter que ce texte ne soit interpété comme une formule, suis le conseil de Vesta.

Pour savoir comment mettre du texte dans une cellule, utilise l'enregistreur de macros.

[cladsam]

Cette formule n'est jamais que du texte.
Pour éviter que ce texte ne soit interpété comme une formule, suis le conseil de Vesta.

Si je mets le texte '=SOMME(A1:A12)

Je n'aurai pas affiché la formule de la case mais bien la valeur de la case qui sera du texte et ce n'est pas ce que je veux car derrière je veux bien entendu pouvoir repasser a l'affichage du résultat. Ce qu'il me faudrait c'est donc bien un moyen de dire depuis le code un truc du genre

maCellule.afficheFormule()

[SilkyRoad]

bonjour

tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub afficherFormlule()
Range("A1") = "'" & Range("A1").FormulaLocal
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub afficherResultat()
Range("A1").FormulaLocal = Mid(Range("A1"), 1)
End Sub

bonne journée
michel

[kedpro]

Pour éviter l'apostrophe ( ' ) tu peux créer une fonction personnalisée. Voici un exemple de code

1. Function AfficherFormule(MaCellule As Range)
2. 'Macro permettant d'afficher la formule d'une cellule dans une autre cellule au choix
3. AfficherFormule = MaCellule.Formula
4. End Function

Une fois la fonction créée, sélectionne une cellule et tape =AfficherFormule()
Les parenthèses doivent contenir la référence de la cellule qui contient la formule à afficher.