Scrollbar et écrire 0.5 au lieu de 0,5 dans un fichier

  • Initiateur de la discussion Initiateur de la discussion flo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

flo

Guest
Bonjour a tous,

je voudrais avoir, si possible, un petit conseil sur probléme est le suivant :
Comment écrire dans un fichier un nombre décilmal sous la forme 0.5 alors que celui ci est affiché par défaut sous la forme 0,5 dans une TextBox?

D'avance merci.

flo

Code:

Private Sub CommandButton1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\Windows\Bureau\test.txt", True)
a.Writeline TextBox1.Value
End Sub
Private Sub UserForm_Initialize()
ScrollBar1.Min = 0
ScrollBar1.Max = 10
ScrollBar1.Value = 5
ScrollBar1.SmallChange = 1
End Sub
Private Sub ScrollBar1_Change()
TextBox1.Value = ScrollBar1.Value / 10
End Sub
Private Sub ScrollBar1_Scroll()
TextBox1.Value = ScrollBar1.Value / 10
End Sub
 
Bonjour,
je pense que c'est un pb de "langue" (ici française) de ton programme XL.
La séparation entre l'entier et la décimale n'est pas affichée de la même manière en francais (virgule) et en anglais (point).
D'habitude, les conversions sont faites automatiquement par windows et office avec la reconnaissance des différentes versions de langue.
Ce peut être la source de pb lorsque l'on écrit directement dans un fichier ou lorsque l'on copie et colle des valeurs par le biais de VB.
J'ai eu une fois ce type de pb que j'ai résolu en travaillant en "texte" avant l'écriture et remplaçant le point par la virgule ou inversement.

Courage...
 
Effectivement, il suffit de faire la modification suivante :

Cliquer sur Démarrer / Paramètres / Panneau de configuration / Options Régionales

Sélectionner le volet Nombres puis dans le champs Symbole décimal mettre . au lieu de ,

@+
flo
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
Réponses
0
Affichages
984
Mathou
M
Retour