Separateur decimal sur Excel Visual basic

Fermé
jack62 - 30 mars 2008 à 16:51
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 30 mars 2008 à 17:20
Bonjour,
J'ai un petit souci de programmation sur Excel. J'ai crée une macro avec un masque Userform qui contient des valeurs.
Ces valeurs peuvent être changée manuellement grace au masque mais quand la personne met un point (".") à la place d'une virgule (",") ma macro beug. J'ai été obligé de copier la valeur dans une cellule de la page pour pouvoir changer le separateur decimal.

Range ("a42").Formula = (cote_actuelle.value)
Application.decimalSeparator = "."
Application.userSystemSeparators = false
var6 = Range("a42")


De cette façon, que la personne mette un point ou une virgule, le calcul se fait sans probléme.
Mais je voudrais pouvoir effectuer ce calcul sans repasser par la page active pour changer le separateur.

Quelqu'un pourrait il m'aider??

merci d'avance
A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
30 mars 2008 à 17:20
bonjour

Si dans la gestion de la saisie de ta zone texte tu mets ceci, tu ne devrais pas être perturbé par la saisie du point
Private Sub cote_actuelle.value_Change()
       cote_actuelle.value.Text = Replace(cote_actuelle.value.Text, ".", ",")
End Sub
0