Utilisation de la valeur d'un textbox dans un formule

Bonjour,

je ne sais pas si c'est possible mais je souhaiterais utiliser la valeur d'une TextBox dans une formule d'une cellule.

En VBA, je sais le faire:
[A1] = TextBox1.Value

Mais à partir d'une formule de cellule, je n'arrive pas et je ne trouve pas sur les forums.
Et je ne souhaite pas utiliser la propriété LinkedCell de TextBox1

Pièce jointe 564973

Merci de votre aide.

Si c'est un contrôle ActivX, Clic droit > Propriété > LinkedCell > A1

Merci de ta réponse, mais je ne souhaite justement pas utiliser la propriété linkedCell

Bonjour,

Citation:

---

je ne souhaite pas utiliser la propriété LinkedCeli

---

Utilises une fonction personnalisée (VBA).

J'ai créé une fonction personnalisée comme tu l'as suggéré, ma fonction est bien reconnue dans l'éditeur de formule

Code:

---

1 2 3

Function ValeurTextBox1() ValeurTextBox1 = TextBox1.Value End Function

---

Dans ma cellule j'ai écrit =ValeurTextBox1() mais ça ne fonctionne pas, j'ai #VALEUR comme résultat. :roll:

re,

A adapter :

Code:

---

1 2 3

Public Function ValeurTextBox1() As Variant ValeurTextBox1 = Worksheets("Feuil1").OLEObjects("Textbox1").Object.Value End Function

---

Merci beaucoup c'est OK ! Trop content !

Bonjour, j'ai un autre soucis, le raffraichissement du résultat de ma fonction personnalisée


Je m'explique, j'ai un TextBox que je saisi, je récupère la valeur dans une fonction personnalisée mais si je modifie la saisie du TextBox, mon résultat de la fonction ne se raffraichit pas.
Comment faire ?
Code à rajouter dans Procédure de TextBox2_Change ?
Adapter le code ma fonction ?

Pièce jointe 565462

Code:

---

1 2 3

Public Function FctValeurSaisiQte() As Variant FctValeurSaisiQte = Worksheets("Tableau de bord").OLEObjects("SaisiQte").Object.Value End Function

---

Merci

Bonjour,

Dans le module de la feuille Tableau de bord qui contient le textbox SaisiQte

Code:

---

1 2 3

Private Sub SaisiQte_LostFocus() Me.Calculate End Sub

---

Merci nickel ;)

Je ne comprends pas, un coup ça fonctionne et là plus rien. Je modifie du code dans l'éditeur de VBA ça refonctionne pour 1 ou 2 calculs puis plus rien.

Citation:

---

Envoyé par linlindu68

Je ne comprends pas, un coup ça fonctionne et là plus rien. Je modifie du code dans l'éditeur de VBA ça refonctionne pour 1 ou 2 calculs puis plus rien.

---

Il peut y avoir plusieurs causes, sans voir la totalité des codes, difficile de répondre.
Ça ne mets à jour les résultats que quand tu quittes le textbox (donc après y avoir placé le curseur)
Est-ce que les évènements sont activés ?

Citation:

---

Envoyé par Patrice740

Il peut y avoir plusieurs causes, sans voir la totalité des codes, difficile de répondre.
Ça ne mets à jour les résultats que quand tu quittes le textbox (donc après y avoir placé le curseur)
Est-ce que les évènements sont activés ?

---

Oui les événements sont activés (j'ai mis un msg box pour être sûr), que ce soit sur change_box ou lostfocus, j'ai l'impression que la méthode calculate n'est pas assez efficace.
Par contre si je rentre dans la cellule de la formule avec ma fonction personnalisée + ENTER alors tout se met à jour !?

J'ai même créé un bouton pour lancer le code suivant:

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Calculate ThisWorkbook.RefreshAll End Sub

---

ça ne fonctionne non plus

Re,

Je ne vois pas pour quelle raison le Me.Calculate dans SaisiQte_LostFocus ne fonctionne pas (la fonction FctValeurSaisiQte doit être dans une ou plusieurs cellules de la même feuille).

Tu peux essayer d'ajouter volatile à la fonction :

Code:

---

1 2 3 4

Public Function FctValeurSaisiQte() As Variant Application.Volatile FctValeurSaisiQte = Worksheets("Tableau de bord").OLEObjects("SaisiQte").Object.Value End Function

---

Oui effectivement, la fonction est appelée par plusieurs cellules, elle est même appelée dans un tableau.
J'ai testé avec volatile, ça ne marche pas mieux.

Merci quand même, ce n'est pas grave, je vais me débrouiller autrement, merci pour ton aide