Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1336 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1041674
cello3135
Don't bring back ur strawberry
Posté le 10-04-2005 à 01:46:18  profilanswer
 

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 ?
mood
Publicité
Posté le 10-04-2005 à 01:46:18  profilanswer
 

n°1041692
galopin01
Posté le 10-04-2005 à 02:39:35  profilanswer
 

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+

n°1041806
cello3135
Don't bring back ur strawberry
Posté le 10-04-2005 à 12:15:18  profilanswer
 

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 ?
n°1041838
cello3135
Don't bring back ur strawberry
Posté le 10-04-2005 à 12:38:21  profilanswer
 

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 ?

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Action rechercher en VBALDAP et VBA
Création dynamique de combobox en VBAVBA Outlook : Création mail et insertion signature
Exécuter une macro Excel sans affichage intermédiaireExcel macro inserer formule et guillemet
ouvrir un .doc d'excel avec un chemin composé de variables[excel] tableau championnat?
Macro excel VBA complexe sur Filtre auto + récupération des données... 
Plus de sujets relatifs à : VBA / Excel et les séparateurs de décimales


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR