Discussion :

[Phifou]

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

[Marc-L]

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 !

[Phifou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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.

[eric4459]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.TextBox1.Value

je suis parvenu à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CDate(UserForm1.TextBox1.Value)

Dans ton cas tu devrais peut-etre essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Eric

[Phifou]

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

Bonne journée,


Philippe

[Marc-L]

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

[Phifou]

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