VBA / Excel et les séparateurs de décimales

VBA / Excel et les séparateurs de décimales - VB/VBA/VBS - Programmation

Marsh Posté le 10-04-2005 à 01:46:18    

Salut tout le monde,  
 
 
Je travaille actuellement sur VBA sous un logiciel qui s'appelle Arena et le code que j'ai créé va en fait chercher des valeurs décimales sous Excel et les rapatrie sous Arena.  
Mais le problème est que les nombres rapatriés sont avec des virgules alors que j'ai besoin d'avoir des décimales avec des points (notation internationale). J'ai beau changer le séparateur des décimales sous Excel, rien n'y fait. Il continue de me mettre des virgules. Je me demandais s'il n'y avait pas un truc à faire sous VBA pour lui dire de mettre des points à la place des virgules ou tout simplement une manip simple sous Excel (qui m'est inconnue) qui permet de régler le problème.  
Merci pour vos lumières...


---------------
Pourquoi les ballerines marchent-elles toujours sur la pointe des pieds? Ne serait-il pas plus simple d'embaucher des ballerines plus grandes ?
Reply

Marsh Posté le 10-04-2005 à 01:46:18   

Reply

Marsh Posté le 10-04-2005 à 02:39:35    

bonjour,
dans Outils, Options, International, il faut cocher utiliser les séparateurs systèmes puis...
Dans le Panneau de config de windows : Options régionales et linguistiques choisir Personnaliser / Option décimale basculer sur le .  
VBA et Excel travailleront alors en . décimal
A+

Reply

Marsh Posté le 10-04-2005 à 12:15:18    

galopin01 a écrit :

bonjour,
dans Outils, Options, International, il faut cocher utiliser les séparateurs systèmes puis...
Dans le Panneau de config de windows : Options régionales et linguistiques choisir Personnaliser / Option décimale basculer sur le .  
VBA et Excel travailleront alors en . décimal
A+


 
Merci pour l'info.  
Le problème est que le programme est destiné à plusieurs ordis et donc je me vois mal effectuer la manip pour chaque PC. Je cherche un bout de programme VBA qui puisse me faire ça...


---------------
Pourquoi les ballerines marchent-elles toujours sur la pointe des pieds? Ne serait-il pas plus simple d'embaucher des ballerines plus grandes ?
Reply

Marsh Posté le 10-04-2005 à 12:38:21    

Bon j'ai trouvé ça qui pourrait peut-être marcher mais j'y arrive pas encore...
 
----------------------------------------------------
Function GetVal(rng As Range)
Dim vIn, sDec$
 
vIn = rng
sDec = Application.International(xlDecimalSeparator)
 
If sDec <> "." And InStr(vIn, sDec) > 0 Then
vIn = Application.Substitute(vIn, sDec, "." )
End If
GetVal = Val(vIn)
 
End Function
-----------------------------------------------------
 
En revanche, comme je suis le plus noob de tous les noobs, je sais pas trop où mettre ce code. J' dois créer un module ou est-ce que je peux le mettre directement dans la feuille VBA principale?  
Please help
 


---------------
Pourquoi les ballerines marchent-elles toujours sur la pointe des pieds? Ne serait-il pas plus simple d'embaucher des ballerines plus grandes ?
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed