Discussion :

[linlindu68]

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



Merci de votre aide.

[Menhir]

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

[linlindu68]

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

[Patrice740]

Bonjour,

je ne souhaite pas utiliser la propriété LinkedCeli

Utilises une fonction personnalisée (VBA).

[linlindu68]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Patrice740]

re,

A adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[linlindu68]

Merci beaucoup c'est OK ! Trop content !

[linlindu68]

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 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[Patrice740]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub SaisiQte_LostFocus()
  Me.Calculate
End Sub

[linlindu68]

Merci nickel

[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.

[Patrice740]

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 ?

[linlindu68]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
    Calculate
    ThisWorkbook.RefreshAll
End Sub

ça ne fonctionne non plus

[Patrice740]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[linlindu68]

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