Discussion :

[Jacksun]

Bonjour

J'ai passé de Windows 7 à Windows 10 et depuis le problème suivant que je n'avais pas avec Windows 7 est apparu:

En VBA, le transfert d'un chiffre d'une 'Variable' vers une 'Textbox' transforme ce chiffre de numérique à texte (string) et vice versa rendant par ce fait une comparaison ultérieure entre elles impossible.

(La "Textbox" se trouve sur une "Userform")

Code :

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

1
2
Dim SoldeBu as long
SoldeBu=220.15

SoldeBu est numérique avec un point avant la décimale

Code :

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

TB_SoldeBk=SoldeBu

TB_SoldeBk est un texte (string) avec une virgule avant la décimale: "220,15"

Lorsque je veux les comparer:

Code :

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

1
2
Diff=SoldeBu-TB_SoldeBk
Le message logique "Incompatibilité de Type" apparaît.

Dans Régions (Windows 10) le format du point décimal est pourtant bien un point.
Il y a-t-il un endroit dans Excel pour forcer un point?
Langue: Français(Suisse).

Si j'utilise la formule VAL(TB_SoldeBk) les décimales sont, bien-sûr, supprimées.

Pourquoi cette transformation point-virgule? Comment y remédier??

Qui peut m'aider?

Jacksun

[hyperion13]

Salut
Pour le pourquoi, la réponse est là.
Dans les options avancées d'Excel, vous pouvez assigner le séparateur de décimale et de millier.
Sinon

Code :

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

1
2
3
Sub test()
ActiveCell = Replace(ActiveCell, ",", ".")
End Sub

[Jacksun]

Salut

Merci pour tes bonnes suggestions.

1. Dans Excel - Options - Avancées, le format des chiffres était bien "." et non ","

2. Si, dans mes TextBox's j'utilise :

Code :

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

1
2
3
Sub test()
TB_myBox.Replace(TB_myBox",",".")
End Sub

Cela fonctionne très bien une fois. Dans mon code je dois changer les valeurs transférées à mes TextBox's une dizaine de fois dans différents endroits du code.
A chaque changement la virgule réapparaît et il faut la remplacer chaque fois à nouveau par un point...

N'y aurait-t-il pas une méthode où ce changement serait fait par défaut et s'appliquerait ainsi à toutes les TextBox's d'Excel?
Pourquoi le réglage dans Excel - Options - Avancées ne remplit pas ce rôle?

Merci pour toutes nouvelles suggestions.

Jacksun