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
 
- 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
162
  • Question Question
Microsoft 365 Lecture vocale USF
Réponses
5
Affichages
284
Réponses
6
Affichages
327
Réponses
10
Affichages
381
Réponses
5
Affichages
306
Retour