Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Excel

VBA - Système de mesure

Le
Patrick
Bonjour,

J'aimerais pouvoir déterminer en VBA quel système de mesure est configuré
pour le PC, en centimètre ou en pouce.

Est-ce possible ?

Merci.

--
Patrick
Lire les 3 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #5137051
Si tu veux simplement savoir si ton système est en mesure métrique ou anglaise :

Sub Test()
If Application.International(xlMetric) = True Then
MsgBox "système métrique en application"
Else
MsgBox "Système anglais en application."
End If
End Sub




"Patrick"
Bonjour,

J'aimerais pouvoir déterminer en VBA quel système de mesure est configuré
pour le PC, en centimètre ou en pouce.

Est-ce possible ?

Merci.

--
Patrick
Répondre en citant
MichDenis
Le #5137021
Et s'il te prenait l'envie d'ouvrir la fenêtre où tu peux modifier la donne
du système (métrique ou anglais) en vba

Cette macro doit être lancé à partir de l'interface de la feuille de calcul
non directement dans la fenêtre de l'éditeur de code vba.

Sub test()
SendKeys "%{P}"
x = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,5")
End Sub



"MichDenis"
Si tu veux simplement savoir si ton système est en mesure métrique ou anglaise :

Sub Test()
If Application.International(xlMetric) = True Then
MsgBox "système métrique en application"
Else
MsgBox "Système anglais en application."
End If
End Sub




"Patrick"
Bonjour,

J'aimerais pouvoir déterminer en VBA quel système de mesure est configuré
pour le PC, en centimètre ou en pouce.

Est-ce possible ?

Merci.

--
Patrick
Répondre en citant
Patrick
Le #5143711
Merci.

--
Patrick


"MichDenis" wrote:

Et s'il te prenait l'envie d'ouvrir la fenêtre où tu peux modifier la donne
du système (métrique ou anglais) en vba

Cette macro doit être lancé à partir de l'interface de la feuille de calcul
non directement dans la fenêtre de l'éditeur de code vba.

Sub test()
SendKeys "%{P}"
x = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,5")
End Sub



"MichDenis"
Si tu veux simplement savoir si ton système est en mesure métrique ou anglaise :

Sub Test()
If Application.International(xlMetric) = True Then
MsgBox "système métrique en application"
Else
MsgBox "Système anglais en application."
End If
End Sub




"Patrick"
Bonjour,

J'aimerais pouvoir déterminer en VBA quel système de mesure est configuré
pour le PC, en centimètre ou en pouce.

Est-ce possible ?

Merci.

--
Patrick






Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme