Comment recuperer les parametre regionaux dans VBA
cs_modesteMax
Messages postés
2
Date d'inscription
vendredi 1 août 2003
Statut
Membre
Dernière intervention
26 janvier 2006
-
26 janv. 2006 à 15:59
kalobit Messages postés 169 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 7 avril 2008 - 26 janv. 2006 à 17:50
kalobit Messages postés 169 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 7 avril 2008 - 26 janv. 2006 à 17:50
A voir également:
- Comment recuperer les parametre regionaux dans VBA
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Byval vba - Conseils pratiques -Visual Basic / VB.NET
- Vba modulo - Forum Visual Basic
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Vba dernière ligne ✓ - Forum Visual Basic 6
1 réponse
kalobit
Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
2
26 janv. 2006 à 17:50
26 janv. 2006 à 17:50
il faut utiliser les api pour ça.
sinon, tu colle un nombre décimal dans un cellule, et récupère la chaine de caractères et tu test si c'est le point ou la virgule
sub SepDec()
lastvalue = activecell.formula
activecell.value = 1.5
valeur = activecell.value
if instr(valeur, ",")<>0 then
msgbox "Le séparateur décimale est la virgule"
else
msgbox "Le séparateur décimal est le point"
end if
activecell.formula = lastvalue
end sub
+++
[mailto:K@lobit K@lobit]
sinon, tu colle un nombre décimal dans un cellule, et récupère la chaine de caractères et tu test si c'est le point ou la virgule
sub SepDec()
lastvalue = activecell.formula
activecell.value = 1.5
valeur = activecell.value
if instr(valeur, ",")<>0 then
msgbox "Le séparateur décimale est la virgule"
else
msgbox "Le séparateur décimal est le point"
end if
activecell.formula = lastvalue
end sub
+++
[mailto:K@lobit K@lobit]
