Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Utilisation de la valeur d'un textbox dans un formule


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    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



    Merci de votre aide.

  2. #2
    Expert éminent sénior
    Si c'est un contrôle ActivX, Clic droit > Propriété > LinkedCell > A1
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  3. #3
    Candidat au Club
    Merci de ta réponse, mais je ne souhaite justement pas utiliser la propriété linkedCell

  4. #4
    Expert confirmé
    Bonjour,

    je ne souhaite pas utiliser la propriété LinkedCeli
    Utilises une fonction personnalisée (VBA).
    Cordialement,
    Patrice
    Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.

    Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur

  5. #5
    Candidat au Club
    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.

  6. #6
    Expert confirmé
    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
    Cordialement,
    Patrice
    Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.

    Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur

  7. #7
    Candidat au Club
    Merci beaucoup c'est OK ! Trop content !

  8. #8
    Candidat au Club
    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

  9. #9
    Expert confirmé
    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
    Cordialement,
    Patrice
    Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.

    Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur

  10. #10
    Candidat au Club
    Merci nickel

  11. #11
    Candidat au Club
    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.

  12. #12
    Expert confirmé
    Citation Envoyé par linlindu68 Voir le message
    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 ?
    Cordialement,
    Patrice
    Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.

    Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur

  13. #13
    Candidat au Club
    Citation Envoyé par Patrice740 Voir le message
    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

  14. #14
    Expert confirmé
    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
    Cordialement,
    Patrice
    Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.

    Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur

  15. #15
    Candidat au Club
    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