incérer dans une Cellule une formule

[zephir94]

Bonsoir à tous,

Après des recherches sur le web ainsi que dans le Forum, ne trouvant pas réponse à mon problème j'ai besoin de vos lumières.

Je dois incérer dans une Cellule une formule.
L'écriture s'effectue bien mais me génère une erreur 1004 , j'ai essayé du coup d'enregistrer une macro pour voir le code proposé par Excel, mais lui aussi en pas à pas génère la même erreur !

Voici mon code :

Range("Z1").FormulaR1C1=" =SI(ESTERREUR(B$26/P$26)=VRAI;"";B$26/P$26) "

et l'enregistreur de macro

    Range("Z1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(R26C[-24]/R26C[-10])=TRUE,"""",R26C[-24]/R26C[-10])"

J'ai fait pas mal de recherches sur Formula avant de poster mais je tourne en rond !
Merci par avance pour vos lumières

 

[Guest]

Re : incérer dans une Cellule une formule

Bonjour,

En évitant les espaces avant le signe égal de la formule, en doublant les guillemets intérieurs et en utilisant FormulaLocal:

Range("Z1").FormulaLocal="=SI(ESTERREUR(B$26/P$26)=VRAI;"""";B$26/P$26)"

Ou sans FormulaLocal:

Range("Z1").Formula="=IF(ISERROR(B$26/P$26)=TRUE,"""",B$26/P$26)"

Pas d'erreur
A+

 

[zephir94]

Re : incérer dans une Cellule une formule

Merci à toi Hasco,

J'ai essayé la première et la deuxième solution mais hélas j'ai une erreur d'exécution 13 incompatibilité de type dans les deux cas

J'ai donc essayé dans une feuille vierge et là ça fonctionne qu'est-ce qui pourrait générer cette erreur ?

 

[Staple1600]

Re : incérer dans une Cellule une formule

Bonsoir à tous, Hasco 😉

zephir94
Pas d'erreur sur mon pc (j'ai raccourci ta formule au passage 😉)

Sub a()
Sheets(1).Range("Z1").FormulaLocal = "=SI(ESTERR(B26/P26);"""";B26/P26)"
End Sub

Sinon tu peux aussi faire comme ceci

Sub b()
On Error Resume Next
Range("Z1").Value = Range("B26") / Range("P26")
End Sub

 

[zephir94]

Re : incérer dans une Cellule une formule

Merci à toi Staple1600,

J'ai donc essayé dans une feuille vierge et là ça fonctionne qu'est-ce qui pourrait générer cette erreur ?

 

[Staple1600]

Re : incérer dans une Cellule une formule

Re

zephir94
Regardes dans mon précédent message :
Observes ta formule et la mienne
Tu ne ne remarques rien ?

PS: j'ai ajouté une variante dans mon édition

 

[zephir94]

Re : incérer dans une Cellule une formule

J'ai fais un copier coller de ta proposition et elle me génère aussi une erreur 13

Tu as changé ESTERR, non ?

 

[Staple1600]

Re : incérer dans une Cellule une formule

Re

zephir94
J'ai testé avant de poster 🙄
et je certifie donc: pas d'erreur sur mon PC 😉
Pas d'erreur non plus avec ceci.

Sub c()
[Z1].FormulaLocal = "=SIERREUR(B26/P26;"""")"
End Sub

Sub d()
On Error Resume Next
[Z1] = [B26] / [P26]
End Sub

Tu n'as répondu à ma question: As-tu vu la différence entre ta formule et ma formule ?

 

[zephir94]

Re : incérer dans une Cellule une formule

Il est vrai que je suis très tenté par On Error Resume Next !
car je n'ai plus l'erreur de type 13 en l'utilisant mais bon je voudrais comprendre pourquoi !

Il n'y a plus vrai et tu as utilisé ESTERR, non ?

J'ai effectivement testé ta proposition dans une feuille vierge et ça fonctionne aussi chez moi mais dans la feuille où je dois l'implanter ça plante

 

[Staple1600]

Re : incérer dans une Cellule une formule

Re

zephir94
Encore une fois, compare les formules !!!
Tu ne vois pas où se situe la différence ??

EDITION: Voila, il n'y a plus VRAI 😉

PS: Les macros a,b,c et d fonctionnent sans erreur, non ?

 

[zephir94]

Re : incérer dans une Cellule une formule

J'ai effectivement testé ta proposition dans une feuille vierge et ça fonctionne aussi chez moi mais dans la feuille où je dois l'implanter ça plante

 

[Staple1600]

Re : incérer dans une Cellule une formule

Re

zephir94
Et donc devines ce que tu vas lire dans mon prochaine message ? 😉
un indice : PJ

J'ai effectivement testé ta proposition

Donc tu n'as pas testé les 4 macros mais une seule ?

 

[zephir94]

Re : incérer dans une Cellule une formule

Ta proposition en général donc toutes, par contre le vrai dans la formule me permettait d'éviter l'affichage de la division par 0, en le retirant cela fonctionnera quand même ?

 

[Staple1600]

Re : incérer dans une Cellule une formule

Re

en le retirant cela fonctionnera quand même ?

A ton avis ? 🙄

Fais le test et tu sauras 😉

 

[zephir94]

Re : incérer dans une Cellule une formule

Oui ça conserve et je te remercie pour toute ton aide, le On Error Resume Next cache l'erreur de type 13 mais par contre ne m'explique pas pourquoi j'ai cette dernière dans ma page si je le retire ????
Alors que dans une feuille vierge de mon classeur ça fonctionne sans soucis, et pour tant la Cellule ou j'écris la Formule est bien en relation au niveau Format 😕