VBA --> afficher la formule - cells

Nairolf87

XLDnaute Nouveau
Bonjour,
Voila j'ai une macro qui tourne avec des colonnes bien définies, afin de prévenir le risque de rajout de colonne et d'éviter de modifier à chaque fois, je les ai mis en dure une bonne fois pour toute au début de ma macro.

J'utilise du coup la propriété cells afin d'opérer à mes différents calculs.

Je cherche à faire des calculs de cette façon afin que la formule de calcul s'affiche dans ma feuille excel et de ne pas avoir le résultat brut

Code:
Sub afficherformule ()
Dim mNbtitre_AC, mNbtitreN, mNbtitreN_1, i as integer
i = 2
mNbtitre_AC = 10
mNbtitreN = 11
mNbtitreN_1 = 12

Cells(i, mNbTitre_AC).Formula = "=Abs(" & Cells(i, mNbtitreN) - Cells(i, mNbtitreN_1) & ")"


End sub

Or cela ne marche pas, j'ai essayer en mettant cells.value, cells.range etc...

Merci d'avance
 

Pierrot93

XLDnaute Barbatruc
Re : VBA --> afficher la formule - cells

Bonjour,

Code:
afin de prévenir le risque de rajout de colonne et d'éviter de modifier à chaque fois, je les ai mis en dure une bonne fois pour toute au début de ma macro.

en l'état de ton code si rajout de colonne ton numéro de colonne ne sera plus bon... utilise plutôt une plage nommée onglet "formule" => bouton "gestionaire de noms"

bonne journée
@+
 

tototiti2008

XLDnaute Barbatruc
Re : VBA --> afficher la formule - cells

Bonjour à tous, :)

Peut-être

Code:
Dim mNbtitre_AC, mNbtitreN, mNbtitreN_1, i As Integer
i = 2
mNbtitre_AC = 10
mNbtitreN = 11
mNbtitreN_1 = 12


Cells(i, mNbtitre_AC).Formula = "=Abs(" & Cells(i, mNbtitreN).Address & "-" & Cells(i, mNbtitreN_1).Address & ")"
 

Dranreb

XLDnaute Barbatruc
Re : VBA --> afficher la formule - cells

Bonsoir.
Vous parlez tout le temps d'afficher les formules, mais dans des contextes explicatifs nébuleux qui font vraiment douter que ce soit ça que vouliez :
VB:
ActiveWindow.DisplayFormulas = True
MsgBox "Les formules sont affichées."
ActiveWindow.DisplayFormulas = False
 

PMO2

XLDnaute Accro
Re : VBA --> afficher la formule - cells

Bonjour,

Peut être avec le code suivant
Code:
Sub SwitchFormule_vs_Value()
ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas
End Sub
qui affiche, tour à tour, les formules ou les valeurs.
 

Discussions similaires

Réponses
8
Affichages
662
Réponses
20
Affichages
2 K
Réponses
2
Affichages
1 K

Statistiques des forums

Discussions
312 217
Messages
2 086 352
Membres
103 195
dernier inscrit
martel.jg