Rechercher : dans
Par :

Separateur decimal sur Excel Visual basic

Dernière réponse le 30 mar 2008 à 17:20:17 jack62, le 30 mar 2008 à 16:51:54 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Internet Explorer 7.0

Meilleures réponses pour « Separateur decimal sur Excel Visual basic » dans :
Erreur système : Microsoft Visual Basic VoirEn ouvrant Excel, vous rencontrez un message d'erreur. Une fenêtre au nom de "Microsoft Visual Basic" s'ouvre avec le contenu suivant : Erreur système &H80004005 (-2147467259). Erreur non spécifiée Pour corriger le problème, suivez les...
Télécharger Visual Basic 6 Runtime (VB6 DLL) VoirLe Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en langage Visual Basic 6.0. Il contient notamment les DLL suivantes :...
Introduction à Visual Basic VoirPrésentation de Visual Basic Visual Basic est un outil développé par Microsoft pour développer facilement des applications fonctionnant sous Microsoft Windows ©. Visual Basic est, comme son nom l'indique, un outil visuel permettant de créer...
Généralités sur Visual Basic VoirConcept de Visual Basic l'Environnement de Développement intégré

1

 gbinforme, le 30 mar 2008 à 17:20:17

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

Toujours zen

Répondre à gbinforme
Collection CommentÇaMarche.net