ActiveCell.FormulaR1C1

Résolu/Fermé

Toums91 - 23 févr. 2011 à 10:47
Paf - 23 févr. 2011 à 18:06

Bonjour,

Je souhaiterais afficher le résultat d'une formule dans un userform et plus pariculièrement à l'intérieur d'une textbox.
En effet en cliquant sur les options d'une msgBox, il y a deux résultats possibles.
A ce titre, le code est le suivant:
If MsgBox("Globalement, les composés comprennent-ils un nombre important de composants ?", vbYesNo, "Densité de composants") = vbYes Then
NCOMP.FormulaR1C1 = "=a*NURA^b"
Else
NCOMP.FormulaR1C1 = "=a*NURA^b/2"
End If
NCOMP représente la valeur du TextBox.

Pourriez-vous m'aider à résoudre ce code en effet le message apparaît bien mais rien ne s'affiche dans le NCOMP.

Merci.

Cdlt.

Mathieu

3 réponses

Réponse 1 / 3

Paf
23 févr. 2011 à 11:11

bonjour,

si le nom de la textbox sur le Userform est Textbox1:

Textbox1.value = a*NURA^b

Réponse 2 / 3

Toums91
23 févr. 2011 à 13:24

j'ai ajouté textbox1.value à la place de NCOMP.Formula R1C1 mais il n'y a toujours pas de valeur qui s'affiche dans la textbox concernée.

Je pense que le problème vient plutôt de la formule de calcul, à savoir que a et b sont des valeurs définies à partir de deux cellules dans un onglet spécifique.

D'autres suggestions?

Merci d'avance.

Réponse 3 / 3

Paf
Modifié par Paf le 23/02/2011 à 18:11

ah ben oui !!

à ce moment là il faut rajouter avant If Msgbox...:

a=worksheets("NOMDELAFEUILLE").range("CELLULE1").value
b=worksheets("NOMDELAFEUILLE").range("CELLULE2").value

où NOMDELAFEUILLE est le nom de la feuille (ou onglet) où sont les cellules

et CELLULE1 est la référence de la cellule (par exemple B12 )

et la variable NURA est initialisée ?

Discussions similaires

variable dans FormulaR1C1 VBA Excel

vba ActiveCell.Formula

probleme avec activecell.formulaR1C1 en vba

Discussions similaires

Newsletters