[VBA-E] Afficher et fixer la formule d'une cellule donnée

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

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...

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.

Citation:

---

Envoyé par cladsam

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.

Citation:

---

Envoyé par Alain Tech

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()

bonjour

tu peux essayer

Code:

---

1 2 3 4

Sub afficherFormlule() Range("A1") = "'" & Range("A1").FormulaLocal End Sub

---

Code:

---

1 2 3

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

---

bonne journée
michel

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.