Remplacer virgule par point dans userform [Fermé]

- - Dernière réponse : cs_Le Pivert
Messages postés
6418
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
5 décembre 2019
- 24 mai 2014 à 12:10
Bonjour,

J'ai un userform qui s'appelle A, puis ce userform contient 15 texbox nommés ID1, ID2, ID 3...jusqu'à ID15

Quand je fais charger les données Exel dans les texbox, j'ai des valeur en virgule au lieu de point. Exemple : 12,5 au lieu de 12.5 et donc mes calculs sont biaisés.


J'ai essayé la fonction re,mplacer mais ça ne marche pas. Voici mon code, certainement il y a un problème:
for i=1 to 15
A.Controls("ID"&I).value.replace "," , "."
next

Merci de m'aider et de me dire aussi si je pourrais directement avoir les point lors du chargement dans les texbox. MERCI!!
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
6418
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
5 décembre 2019
419
2
Merci
Bonjour,

Je pense que c'est du vba:

Option Explicit
Private Sub CommandButton1_Click()
Dim Ctrl As Control
 For Each Ctrl In UserForm1.Controls
 If TypeName(Ctrl) = "TextBox" Then
Ctrl.Value = Replace(Ctrl.Value, ",", ".")
 End If
 Next
End Sub

Dire « Merci » 2

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 64336 internautes nous ont dit merci ce mois-ci

cs_Le Pivert
Messages postés
6418
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
5 décembre 2019
419 -
Tu remplaces TextBox par ID
Messages postés
6941
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1094
0
Merci
Bonjour,

C'est quel langage ?