Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Résultats dans TextBox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zeltron24

XLDnaute Impliqué
Bonjour le Forum,

Depuis ce matin j'essaie de trouver une formule afin d'avoir le résultat d'une opération dans un TextBox.
Voila, j'ai un TextBox 1 que je multiplie à un TextBox 2 Dans le troisième Textbox je souhaite obtenir le résultat.
Est ce que cela est possible.
Ci joint un fichier exemple
D'avance Merci pour votre aide.
zeltron24
 

Pièces jointes

Re : Résultats dans TextBox

Slt Zeltron, Forum,

Essaie comme ceci sur ton TextBox "TextRes1"...
Code:
Private Sub TextRes1_Change()

    If BoxVal021022.Value <> "" And BoxBas021022.Value <> "" Then
        TextRes1.Value = Val(BoxVal021022.Value) * Val(BoxBas021022.Value)
    Else
        MsgBox "Remplissez les champs ''Valeur'' et ''Base'' !"
        BoxVal021022.SetFocus
    End If
    
End Sub
Si ça joue, plus qu'à faire les autres.
 
Re : Résultats dans TextBox

Re,

Ou plutôt comme ça dans les TextBox "BoxVal et BoxBas"...
Code:
Private Sub BoxVal021022_Change()
    
    If BoxVal021022.Value <> "" And BoxBas021022.Value <> "" Then
        TextRes1.Value = Val(BoxVal021022.Value) * Val(BoxBas021022.Value)
    Else
        MsgBox "Remplissez les champs ''Valeur'' et ''Base'' !"
        TextBoxVal021022.SetFocus
    End If

End Sub

Private Sub BoxBas021022_Change()

    If BoxVal021022.Value <> "" And BoxBas021022.Value <> "" Then
        TextRes1.Value = Val(BoxVal021022.Value) * Val(BoxBas021022.Value)
    Else
        MsgBox "Remplissez les champs ''Valeur'' et ''Base'' !"
        TextBoxVal021022.SetFocus
    End If
    
End Sub
 
Re : Résultats dans TextBox

merci Hulk,
Peux tu me fournir le fichier avec les modifs car cela ne fonctionne pas correctement cela fais deux heures que je suis dessus et ca commence à me "gaver"
Merci d'avance
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
163
  • Question Question
Microsoft 365 Lecture vocale USF
Réponses
5
Affichages
285
Réponses
6
Affichages
327
Réponses
10
Affichages
382
Réponses
5
Affichages
306
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…