Problème insertion depuis une textbox dans une cellule

Bonjour à tous,

bonne rentrée à ceux qui ont eu des vacances, courage pour les autres. :)

Voici mon problème, j'ai une UserForm qui sert à entrer des heures dans un fichier excel. Tout fonctionnait à merveille jusqu'à ce qu'on me demande de pouvoir entrer des nombres à virgule.
Le principe est simple, lorsque je valide ma saisie, la macro entre dans la cellule son contenu plus celui de la TextBox.
Je pensais avoir résolu le problème en mettant la cellule au format de nombre, ça marche pas... En utilisant Textbox.value au lieu de TextBox.text, mais résultat sensiblement identique...
Si j'entre 2,3 puis 3,4 il devrait me donner "idéalement" : 5,7 mais moi il me donne 2,33,4 dans la cellule... (le fourbe)

Bref si vous avez une idée de la raison de ce problème et éventuellement de la manière de le résoudre, je vous en serais gré !!

Mille merci par avance,


Philippe

Bonjour, bonjour !

A part une erreur de conception, rien d'autre ‼
Comme son nom l'indique, TextBox n'est qu'une zone de texte, rien à voir donc avec une cellule !
Et sans poster de code, consulter alors une cartomancienne ! (cf règles du forum …)

Rappel : Excel / VBA ne se trompant pas, la concaténation n'est pas une addition !

Est-ce qu'alors il existerait une zone de "nombre" une "numberbox" pour les userforms ?
Le fait est qu'il y a des éléments pour lequel ça fonctionne et d'autre pour lequel si je n'entre qu'un nombre, il est marqué au niveau de la cellule que le nombre est précédé d'une apostrophe.

Pour le code d'insertion le voici :

Code:

---

1 2 3 4

If Worksheets(FeuilleSelectionnee).Cells(i, 2) = ListBox_SsCategorie.Text And Worksheets(FeuilleSelectionnee).Cells(i, 2) <> "Diverses" Then NumLigne = i Worksheets(FeuilleSelectionnee).Cells(NumLigne, NumColonne) = Worksheets(FeuilleSelectionnee).Cells(NumLigne, NumColonne) + TextBox_Entree1.Value Exit For

---

C'est dans une boucle for qui parcoure le tableau afin de trouver la bonne cellule.

J'ai aussi essayé :

Code:

---

1 2 3 4

If Worksheets(FeuilleSelectionnee).Cells(i, 2) = ListBox_SsCategorie.Text And Worksheets(FeuilleSelectionnee).Cells(i, 2) <> "Diverses" Then NumLigne = i Worksheets(FeuilleSelectionnee).Cells(NumLigne, NumColonne).Value = Worksheets(FeuilleSelectionnee).Cells(NumLigne, NumColonne).Value + TextBox_Entree1.Value Exit For

---

Ou encore

Code:

---

1 2 3 4

If Worksheets(FeuilleSelectionnee).Cells(i, 2) = ListBox_SsCategorie.Text And Worksheets(FeuilleSelectionnee).Cells(i, 2) <> "Diverses" Then NumLigne = i Worksheets(FeuilleSelectionnee).Cells(NumLigne, NumColonne) = Worksheets(FeuilleSelectionnee).Cells(NumLigne, NumColonne).Value + TextBox_Entree1.Value Exit For

---

Les trois me donnant le même résultat.

Citation:

---

Envoyé par Marc-L

Rappel : Excel / VBA ne se trompant pas, la concaténation n'est pas une addition !

---

Raison pour laquelle j'ai utilisé l'addition et non la concaténation.

Bonjour,
J'ai rencontré un problème similaire en voulant comparer deux dates situées sur une feuille Excel, l'une d'entre elle étant issue d'une saisie depuis une TextBox.
Résultat: Retour d'erreur "Incompatibilité de Type".
Après avoir placé 2 espions j'ai vu que la donnée issue de la TextBox était du type String. En fouillant sur les forums et les didactitiels j'ai lu qu'il me fallait préciser le type de ma variable.
de

Code:

---

UserForm1.TextBox1.Value

---

je suis parvenu à

Code:

---

CDate(UserForm1.TextBox1.Value)

---

Dans ton cas tu devrais peut-etre essayer

Code:

---

ma cellule.Value=CDec(Userform1.TExtBox1.Value)

---

Eric

Un grand merci, ça fonctionne à merveille. C'est exactement ce qu'il me fallait.

Bonne journée,


Philippe

Comme quoi l'addition de texte est bien une concaténation !

Effectivement, mais ce qui est étonnant c'est que comme je l'ai dit, le code initiale fonctionnait à un moment donné, ce qui n'était alors pas une concaténation...
Ma réponse hâtive à cette affirmation aura sans doute été motivé par le manque de clarté accompagnant la phrase qui n'apportait pas tellement de réponse à mon problème. Ne l'expliquant même pas vraiment sur le moment...
J'aurais pu, c'est vrai, ajouter un peu de code, même si l'ajout d'une valeur à une autre ce fait par addition de manière générale. (Ce qui peut conduire à une concaténation dans le cas de certaines valeurs.)

Bien à vous,


Philippe

En consultant les règles de ce forum, idéalement le demandeur doit accompagner sa présentation avec le code en question …

Cela peut aider à comprendre la problématique, non ?! Sans code, pas sûr déjà d'obtenir une réponse !