Peut-on se servir d'une TextBox comme d'une cellule Excel ?

[Papynou]

Bonjour,

Quelqu'un peut-il répondre à ma question : Est-il possible dans une TextBox de saisir des montants les uns à la suite des autres en utilisant les signes "+" "/" "*" "-" et d'obtenir le résulat dans la TextBox comme on le fait dans une cellule sur une feuille lorsque l'on tape "=123+3699.87+123-258" ?

Merci d'avance.
@+

 

[lapix]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

Bonjour,

Le textbox permet de saisir du texte.
Cependant rien n'empèche de saisir une operation et de la calculer par une macro

 

[Hervé]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

bonjour papynou, lapix

oui, dans ce cas la on utilise la méthode evaluate :

dans textbox1= 10+3

TextBox1.Value = Evaluate(TextBox1.Value)

renvoi 13

salut

 

[Papynou]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

Bonjour Lapix,

Tu peux me mettre sur une piste ?
@+

 

[Papynou]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

Bonjour Hervé, re Lapix

J'ai répondu avant de voir la réponse d'Hervé, j'essaye de suite.
@+

 

[Papynou]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

Re,

Il n'en veut pas du beau code à Hervé !

Je l'ai mis là :

Private Sub Txt_De0a15_AfterUpdate()

TxtBox_De0a15.Value = Evaluate(TxtBox_De0a15.Value)

End Sub

Je l'ai mal placé ?

J'ai utilisé F1 pour essayer de comprendre mais l'aide ne fait référence qu'aux WorkSheets et pas aux TextBox.

 

[Papynou]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

re,

Je suis un âne, j'ai mis le code au bon endroit mais j'ai fait une erreur de frappe (Les doigts trop gros ou les touches trop petites ?) 😀

Ca fonctionne parfaitement 🙂

Merci encore
@+

 

[Hervé]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

re

n'aurais tu pas une légère erreur de syntaxe 🙄

Private Sub Txt_De0a15_AfterUpdate()

TxtBox_De0a15.Value = Evaluate(TxtBox_De0a15.Value)

End Sub

salut

 

[Hervé]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

re re

pas rafraichit

par contre fais attention avec les décimaux, j'ai pas testé mais ca doit pas fonctionner.

salut

 

[Papynou]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

re Hervé,

Yes Sir, avec les décimales ça coince. 😡

 

[Hervé]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

re 🙂

ah ces textbox !!!!

quel séparateur utilises-tu ?

le point ou la virgule

chez moi ca coince pour la virgule.

essaye comme ceci :

Private Sub Txt_De0a15_AfterUpdate()

Txt_De0a15.Value = Evaluate(Replace(Txt_De0a15.Value, ",", "."))

End Sub

salut

 

[Papynou]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

re,

Ca fonctionne correctement mais la TextBox qui affiche la somme de celles où sont saisies les sommes donne le bon total mais remplace les décimales par des 00. 😕

 

[Papynou]

Re : Peut-on se servir d'une TextBox comme d'une cellule Excel ?

re

Pour l'histoire du point et de la virgule qui m'a bien occupé, 😡
Robert 🙂 sur ce forum, il y a quelques jours m'a conseillé le code :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

Ca marche !