Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de news:
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
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" <no.spam.patrick.fredin@iquebec.com> a écrit dans le message de news:
16F7E574-26FE-4657-B038-794C41B00874@microsoft.com...
Bonjour,
J'aimerais pouvoir déterminer en VBA quel système de mesure est configuré
pour le PC, en centimètre ou en pouce.
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" a écrit dans le message de news:
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
MichDenis
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" a écrit dans le message de news:
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" a écrit dans le message de news:
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
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" <michdenis@hotmail.com> a écrit dans le message de news:
uH5HdIuXIHA.3940@TK2MSFTNGP05.phx.gbl...
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" <no.spam.patrick.fredin@iquebec.com> a écrit dans le message de news:
16F7E574-26FE-4657-B038-794C41B00874@microsoft.com...
Bonjour,
J'aimerais pouvoir déterminer en VBA quel système de mesure est configuré
pour le PC, en centimètre ou en pouce.
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" a écrit dans le message de news:
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" a écrit dans le message de news:
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
Patrick
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" a écrit dans le message de news:
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" a écrit dans le message de news:
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
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" <michdenis@hotmail.com> a écrit dans le message de news:
uH5HdIuXIHA.3940@TK2MSFTNGP05.phx.gbl...
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" <no.spam.patrick.fredin@iquebec.com> a écrit dans le message de news:
16F7E574-26FE-4657-B038-794C41B00874@microsoft.com...
Bonjour,
J'aimerais pouvoir déterminer en VBA quel système de mesure est configuré
pour le PC, en centimètre ou en pouce.
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" a écrit dans le message de news:
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" a écrit dans le message de news:
Bonjour,
J'aimerais pouvoir déterminer en VBA quel système de mesure est configuré pour le PC, en centimètre ou en pouce.
