VBA - "Insérer une formule dans une autre formule"

[chrisbor]

Bonjour tout le monde,

Je vous détaille un peu plus mon problème (je n'ai pas trouvé de titre vraiment clair...) :

Je travaille sous Windows XP SP2, Excel 2007
Je pars d'une cellule où il y a une formule (rarement la même). Cette formule peut renvoyer comme résultat #DIV/0! ou d'autres erreurs.
Je rajoute donc, manuellement et c'est ce que je voudrais automatiser par une macro, SI(ESTERREUR('ma_formule_initiale')=VRAI;0;ma_formule_initiale)

Pour résumer par un exemple :
Dans la cellule active j'ai '=B6/C6'
Je voudrais que ma macro me donne (toujours dans la même cellule active) :
'=SI(ESTERREUR(B6/C6)=VRAI;0;B6/C6)

Je pensais récupérer le texte de la formule de la cellule active, mais je n'y arrive pas. A chaque fois je récupère la valeur de la formule.

Auriez-vous des idées ou des pistes à me donner s'il vous plaît ?

Merci.

 

[tototiti2008]

Re : VBA - "Insérer une formule dans une autre formule"

Bonjour ChrisBor,

Je te propose quelquechose comme ça :

    ActiveCell.FormulaLocal = _
        "=SI(ESTERREUR(" & Right(ActiveCell.FormulaLocal, Len(ActiveCell.FormulaLocal) - 1) & ");0;" & Right(ActiveCell.FormulaLocal, Len(ActiveCell.FormulaLocal) - 1) & ")"

J'espère que ça t'inspire 🙂

 

[skoobi]

Re : VBA - "Insérer une formule dans une autre formule"

Bonjour, bienvenue sur XLD,

tu démarres l'enregistreur de macro, puis tu vas dans la formule comme pour la modifier, tu valides (entrée), tu stop l'enregistreur de macro.
Le code pour la formule se trouve dans le module créé dans VBE.

Edit: suis en retard moi, bonjour tototiti

 

[chrisbor]

Re : VBA - "Insérer une formule dans une autre formule"

Merci tototiti2008, c'est exactement cela, ça fonctionne à merveille !

Merci beaucoup ! 🙂