Envoyer une formule avec variable dans une cellule via VBA

[pilote301152]

Re Bonjour,

Je ne comprends pas pourquoi ma variable TTC n'est pas accepté dans le code ci-dessous!
Voici le code qui plante:

dim TTC, tva

tva=0.2
TTC = 1 + tva
ActiveSheet.Range("H9").Formula = "=if(Loyervrpa="""","""",Loyervrpa *" & TTC & ")"

Merci de votre patience et intérêt pour mon pb.

 

[soenda]

Re : Envoyer une formule avec variable dans une cellule via VBA

Bonjour le fil, pilote301152

...
Oups, j'ai encore écrit une grosse bêtise

A plus

 

[pilote301152]

Re : Envoyer une formule avec variable dans une cellule via VBA

Bonjour Soenda,

Merci pour ton astuce mais hélas si la valeur LoyerTTC est bien calculée par la variable (déclarée en variant) ....cela plante toujours (erreur1004!). Quelle est cette astuce avec les crochets ("[]")?

 

[camarchepas]

Re : Envoyer une formule avec variable dans une cellule via VBA

Bonjour,

Voici une proposition pas très loin de celle de Soenda :

Sub test()
Dim TTC As Double, loyerTTC As Double
TTC = 1.2
loyerTTC = TTC * Range("Loyervrpa")
Range("H9") = "=if(" & Range("Loyervrpa").Value & "="""",""""," & Str(loyerTTC) & ")"
End Sub

 

[soenda]

Re : Envoyer une formule avec variable dans une cellule via VBA

Re

dim TTC, tva

tva=0.2
TTC = 1 + tva
ActiveSheet.Range("H9").Formula = "=if(Loyervrpa="""","""",Loyervrpa *" & TTC & ")"

Si le code ci-dessus se trouve dans uns un module, alors la formule de la cellule [H9] n'a pas accès à la variable TTC (puisque cette variable se trouve dans un module)

A plus

Edition : Bonjour camarchepas 🙂

 

[pilote301152]

Re : Envoyer une formule avec variable dans une cellule via VBA

Re Bonjour Soenda et Camarchepas,

le code suivant fonctionne (désolé je ne sais pas présenter comme vous en encadré!):
ActiveSheet.Range("H9").Formula = "=if(Loyervrpa="""",""""," & Str(loyerTTC) & ")"

La solution est donc dans l'utilisation de "str" sans que je ne comprenne pourquoi!
Seulement j'aurai voulu comme l'annonce Soenda voir conservé dans la formule de la feuille le détail de loyerTTC et non pas le résultat.

Je sais je suis exigeant ... mais la tva est une variable "public" déclarée dans un module et je veux pouvoir m'assurer en voyant la formule de calcul que le bon taux a été appliqué.

Merci de votre retour

 

[Staple1600]

Re : Envoyer une formule avec variable dans une cellule via VBA

Bonjour

pilote301152

le code suivant fonctionne (désolé je ne sais pas présenter comme vous en encadré!):

Pour cela il suffit d'utiliser ceci:

(Tu sélectionnes ton code VBA et tu cliques sur l'icône précitée)

(ou manuellement d'utiliser les balises BB suivantes : CODE)

 

[pilote301152]

Re : Envoyer une formule avec variable dans une cellule via VBA

Voilà après définition de la variable tva comme public dans un autre module, le code qui fonctionne mais en donnant dans la formule le résultat TTC plutôt que le détail du calcul!

Dim loyerTTC As Double
loyerTTC = (1 + tva) * [Loyervrpa]

ActiveSheet.Range("H9").Formula = "=if(Loyervrpa="""",""""," & Str(loyerTTC) & ")"

Comment donc faire pour obtenir le miracle annoncé par Soenda?

Bonne fin de WE à tous!

 

[soenda]

Re : Envoyer une formule avec variable dans une cellule via VBA

Re,

Une solution :
Tu définis un nom, ex : TTC
qui fera référence à = 1.2

puis dans ton code, tu écris

[H9].Formula = "=if(Loyervrpa="""","""",Loyervrpa*TTC)"

A plus

 

[pilote301152]

Re : Envoyer une formule avec variable dans une cellule via VBA

Effectivement cela marchera mais je préférais utiliser la donnée TVA dans une variable plutôt que de l'inscrire en dur dans une cellule nommée.

Merci tout de même pour l'idée.

 

[MJ13]

Re : Envoyer une formule avec variable dans une cellule via VBA

Bonjour à tous

Effectivement cela marchera mais je préférais utiliser la donnée TVA dans une variable plutôt que de l'inscrire en dur dans une cellule nommée.

Pilote: Tu peux aussi utilser une variable défini avec Insertion Nom Définir. Mais c'est peut être plus compliqué, quoique, des fois on a des surprises avec Excel.

 

[soenda]

Re : Envoyer une formule avec variable dans une cellule via VBA

Re,
Bonjour Stapple1600 🙂 (que je n'avais pas vu tout à l'heure)

@pilote
Je t'ai répondu à ce sujet, au post #5

A plus

Edition : Bonjour MJ13 🙂

 

[camarchepas]

Re : Envoyer une formule avec variable dans une cellule via VBA

Re moi ,

A force de ce battre avec les formules , voici :

Sub test()
'pour l'exemple je défini tva ici sachant qu'il vient d'ailleurs
tva = 0.192
ActiveSheet.Range("H9") = "=IF(" & Range("Loyervrpa") & "="""","""",VALUE((1+0.192)* " & Range("Loyervrpa") & "))"
End Sub

 

[pilote301152]

Re : Envoyer une formule avec variable dans une cellule via VBA

Re Soenda,

J'ai bien lu ton msg en post5 ... comme je le dis au post suivant cela ne fonctionne pas chez moi ! En revanche en utilisant "str" la conversion est acceptée ... mais il est vrai que j'aurai préféré ta solution pour conserver le détail de la formule ...
Merci de ton suivi

 

[camarchepas]

Re : Envoyer une formule avec variable dans une cellule via VBA

Re moi ,

Un peu vite tout à l'heure , mais là :

Sub test()
Dim TTC As Double, loyerTTC As Double
'pour l'exemple je défini tva ici sachant qu'il vient d'ailleur
tva = 0.192
ActiveSheet.Range("H9").Formula = "=IF(Loyervrpa="""","""",VALUE((1+" & Str(tva) & ")* Loyervrpa))"
End Sub