Peut-on saisir une addition (1+2+3 etc..) dans une textbox et que la textbox en renvoie la somme dans la cellule de destination?
Bonjour,
Par définition une Textbox contient du texte.
L'instruction Split permet de découper un texte qui contirnt un délimiteur.
(ici on pourra considérer que le délimiteur est le +)
Tu peux adapter le code suivant à ta Textbox
___________________
Private Sub TextBox1_Change()
'Crée la somme des valeurs, Valeur1 + Valeur2 + Valeur3 ..., saisies dans la TextBox
' résultat en cellule F2
' l'exemple suivant gère la somme de 6 valeurs
'Gestion de l'erreur obligatoire
On Error GoTo Suite
Cells(2, 6) = Split(TextBox1.Value, "+")(0) 'Valeur1
Cells(2, 6) = Cells(2, 6) + Split(TextBox1.Value, "+")(1) '+Valeur2
Cells(2, 6) = Cells(2, 6) + Split(TextBox1.Value, "+")(2) '+Valeur3
Cells(2, 6) = Cells(2, 6) + Split(TextBox1.Value, "+")(3)
Cells(2, 6) = Cells(2, 6) + Split(TextBox1.Value, "+")(4)
Cells(2, 6) = Cells(2, 6) + Split(TextBox1.Value, "+")(5)
Suite:
On Error GoTo 0 ' ne sert à rien si il n'y a pas d'instruction après
' repositionne la gestion des erreurs à l'état standard
End Sub
_____________________
Cordialement