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
Daniel
Bonjour. Si le choix est entre français et anglais :
Sub test() [D1].Formula = "=today()" If [D1].Formula = [D1].FormulaLocal Then MsgBox "Excel anglais" End If End Sub
si tu veux être sûr que c'est bien XL français, teste [D1].FormulaLocal = "=AUJOURDHUI()" Cordialement. Daniel "Bouffon" a écrit dans le message de news:
j'aimerais savoir si il existe un formule pour trouvé si je suis sur un excel francais ou sur un excel anglais
Bonjour.
Si le choix est entre français et anglais :
Sub test()
[D1].Formula = "=today()"
If [D1].Formula = [D1].FormulaLocal Then
MsgBox "Excel anglais"
End If
End Sub
si tu veux être sûr que c'est bien XL français, teste [D1].FormulaLocal =
"=AUJOURDHUI()"
Cordialement.
Daniel
"Bouffon" <Bouffon@discussions.microsoft.com> a écrit dans le message de
news: 79CF781B-8D78-4DAE-A3B2-123014A3875D@microsoft.com...
j'aimerais savoir si il existe un formule pour trouvé si je suis sur un
excel
francais ou sur un excel anglais
Bonjour. Si le choix est entre français et anglais :
Sub test() [D1].Formula = "=today()" If [D1].Formula = [D1].FormulaLocal Then MsgBox "Excel anglais" End If End Sub
si tu veux être sûr que c'est bien XL français, teste [D1].FormulaLocal = "=AUJOURDHUI()" Cordialement. Daniel "Bouffon" a écrit dans le message de news:
j'aimerais savoir si il existe un formule pour trouvé si je suis sur un excel francais ou sur un excel anglais
lSteph
Bonjour ou Hello
"Bouffon" a écrit dans le message de news:
j'aimerais savoir si il existe un formule pour trouvé si je suis sur un excel francais ou sur un excel anglais
Bonjour ou Hello
"Bouffon" <Bouffon@discussions.microsoft.com> a écrit dans le message de
news: 79CF781B-8D78-4DAE-A3B2-123014A3875D@microsoft.com...
j'aimerais savoir si il existe un formule pour trouvé si je suis sur un
excel
francais ou sur un excel anglais
j'aimerais savoir si il existe un formule pour trouvé si je suis sur un excel francais ou sur un excel anglais
Michel Pierron
Bonsoir Bouffon; La totale:
Sub LanguageTest() MsgBox "User Interface Language: " _ & Langue(Application.LanguageSettings _ .LanguageID(msoLanguageIDUI)) End Sub
Private Function Langue(ByVal ID&) As String Select Case ID Case 1078: Langue = "Africaans" Case 1052: Langue = "Albanais" Case 1031: Langue = "Allemand - Allemagne" Case 3079: Langue = "Allemand - Autriche" Case 5127: Langue = "Allemand - Liechtenstein" Case 4103: Langue = "Allemand - Luxembourg" Case 2055: Langue = "Allemand - Suisse" Case 7177: Langue = "Anglais - Afrique du Sud" Case 3081: Langue = "Anglais - Australie" Case 10249: Langue = "Anglais - Belize" Case 4105: Langue = "Anglais - Canada" Case 9225: Langue = "Anglais - Caraïbes" Case 1033: Langue = "Anglais - États-Unis" Case 6153: Langue = "Anglais - Irlande" Case 8201: Langue = "Anglais - Jamaïque" Case 13321: Langue = "Anglais - Philippines" Case 2057: Langue = "Anglais - Royaume-Uni" Case 11273: Langue = "Anglais - Trinidad" Case 5121: Langue = "Arabe - Algérie" Case 1025: Langue = "Arabe - Arabie Saoudite" Case 15361: Langue = "Arabe - Bahreïn" Case 3073: Langue = "Arabe - Égypte" Case 14337: Langue = "Arabe - Émirats Arabes Unis." Case 2049: Langue = "Arabe - Iraq" Case 11265: Langue = "Arabe - Jordanie" Case 13313: Langue = "Arabe - Koweït" Case 12289: Langue = "Arabe - Liban" Case 4097: Langue = "Arabe - Libye" Case 6145: Langue = "Arabe - Maroc" Case 8193: Langue = "Arabe - Oman" Case 16385: Langue = "Arabe - Qatar" Case 10241: Langue = "Arabe - Syrie" Case 7169: Langue = "Arabe - Tunisie" Case 9217: Langue = "Arabe - Yémen" Case 1067: Langue = "Arménien" Case 2092: Langue = "Azéri - Cyrillique" Case 1068: Langue = "Azéri - Latin" Case 1069: Langue = "Basque" Case 1059: Langue = "Biélorusse" Case 1026: Langue = "Bulgare" Case 1027: Langue = "Catalan" Case 3076: Langue = "Chinois - Hong-Kong" Case 5124: Langue = "Chinois - Macao" Case 2052: Langue = "Chinois - Rép. Populaire de Chine" Case 4100: Langue = "Chinois - Singapour" Case 1028: Langue = "Chinois - Taïwan" Case 1042: Langue = "Coréen" Case 1050: Langue = "Croate" Case 1030: Langue = "Danois" Case 11274: Langue = "Espagnol - Argentine" Case 16394: Langue = "Espagnol - Bolivie" Case 13322: Langue = "Espagnol - Chili" Case 9226: Langue = "Espagnol - Colombie" Case 5130: Langue = "Espagnol - Costa Rica" Case 17418: Langue = "Espagnol - El Salavador" Case 12298: Langue = "Espagnol - Équateur" Case 1034: Langue = "Espagnol - Espagne" Case 4106: Langue = "Espagnol - Guatemala" Case 18442: Langue = "Espagnol - Honduras" Case 19466: Langue = "Espagnol - Mexique" Case 6154: Langue = "Espagnol - Panama" Case 15370: Langue = "Espagnol - Paraguay" Case 10250: Langue = "Espagnol - Pérou" Case 20490: Langue = "Espagnol - Puerto Rico" Case 7178: Langue = "Espagnol - République Dominicaine" Case 14346: Langue = "Espagnol - Uruguay" Case 8202: Langue = "Espagnol - Venezuela" Case 1061: Langue = "Estonien" Case 1065: Langue = "Farsi" Case 1080: Langue = "Féroïen" Case 1035: Langue = "Finlandais" Case 2060: Langue = "Français - Belgique" Case 3084: Langue = "Français - Canada" Case 1036: Langue = "Français - France" Case 5132: Langue = "Français - Luxembourg" Case 4108: Langue = "Français - Suisse" Case 1071: Langue = "FYRO Macédonien" Case 1084: Langue = "Gaélique - Écosse" Case 2108: Langue = "Gaélique - Irlande" Case 1032: Langue = "Grec" Case 1037: Langue = "Hébreu" Case 1081: Langue = "Hindi" Case 1038: Langue = "Hongrois" Case 1057: Langue = "Indonésien" Case 1039: Langue = "Islandais" Case 1040: Langue = "Italien - Italie" Case 2064: Langue = "Italien - Suisse" Case 1041: Langue = "Japonais" Case 1062: Langue = "Letton" Case 1063: Langue = "Lituanien" Case 2110: Langue = "Malais - Brunei" Case 1086: Langue = "Malais - Malaisie" Case 1082: Langue = "Maltais" Case 1102: Langue = "Marathi" Case 2067: Langue = "Néerlandais - Belgique" Case 1043: Langue = "Néerlandais - Pays-Bas" Case 1044: Langue = "Norvégien - Bokmaal" Case 2068: Langue = "Norvégien - Nynorsk" Case 1056: Langue = "Ourdou" Case 2115: Langue = "Ouzbek - Cyrillique" Case 1091: Langue = "Ouzbek - Latin" Case 1045: Langue = "Polonais" Case 1046: Langue = "Portugais - Brésil" Case 2070: Langue = "Portugais - Portugal" Case 1047: Langue = "Rhéto - Roman" Case 2072: Langue = "Roumain - Moldavie" Case 1048: Langue = "Roumain - Roumanie" Case 1049: Langue = "Russe" Case 2073: Langue = "Russe - Moldavie" Case 1103: Langue = "Sanskrit" Case 3098: Langue = "Serbe - Cyrillique" Case 2074: Langue = "Serbe - Latin" Case 1074: Langue = "Setswana" Case 1051: Langue = "Slovaque" Case 1060: Langue = "Slovène" Case 1070: Langue = "Sorbian" Case 2077: Langue = "Suédois - Finlande" Case 1053: Langue = "Suédois - Suède" Case 1072: Langue = "Sutu" Case 1089: Langue = "Swahili" Case 1097: Langue = "Tamoul" Case 1092: Langue = "Tatar" Case 1029: Langue = "Tchèque" Case 1054: Langue = "Thaï" Case 1073: Langue = "Tsonga" Case 1055: Langue = "Turque" Case 1058: Langue = "Ukrainien" Case 1066: Langue = "Vietnamien" Case 1076: Langue = "Xhosa" Case 1085: Langue = "Yiddish" Case 1077: Langue = "Zoulou" Case Else: Langue = "Unknown" End Select End Function
MP
"Bouffon" a écrit dans le message de news:
j'aimerais savoir si il existe un formule pour trouvé si je suis sur un excel francais ou sur un excel anglais
Bonsoir Bouffon;
La totale:
Sub LanguageTest()
MsgBox "User Interface Language: " _
& Langue(Application.LanguageSettings _
.LanguageID(msoLanguageIDUI))
End Sub
Private Function Langue(ByVal ID&) As String
Select Case ID
Case 1078: Langue = "Africaans"
Case 1052: Langue = "Albanais"
Case 1031: Langue = "Allemand - Allemagne"
Case 3079: Langue = "Allemand - Autriche"
Case 5127: Langue = "Allemand - Liechtenstein"
Case 4103: Langue = "Allemand - Luxembourg"
Case 2055: Langue = "Allemand - Suisse"
Case 7177: Langue = "Anglais - Afrique du Sud"
Case 3081: Langue = "Anglais - Australie"
Case 10249: Langue = "Anglais - Belize"
Case 4105: Langue = "Anglais - Canada"
Case 9225: Langue = "Anglais - Caraïbes"
Case 1033: Langue = "Anglais - États-Unis"
Case 6153: Langue = "Anglais - Irlande"
Case 8201: Langue = "Anglais - Jamaïque"
Case 13321: Langue = "Anglais - Philippines"
Case 2057: Langue = "Anglais - Royaume-Uni"
Case 11273: Langue = "Anglais - Trinidad"
Case 5121: Langue = "Arabe - Algérie"
Case 1025: Langue = "Arabe - Arabie Saoudite"
Case 15361: Langue = "Arabe - Bahreïn"
Case 3073: Langue = "Arabe - Égypte"
Case 14337: Langue = "Arabe - Émirats Arabes Unis."
Case 2049: Langue = "Arabe - Iraq"
Case 11265: Langue = "Arabe - Jordanie"
Case 13313: Langue = "Arabe - Koweït"
Case 12289: Langue = "Arabe - Liban"
Case 4097: Langue = "Arabe - Libye"
Case 6145: Langue = "Arabe - Maroc"
Case 8193: Langue = "Arabe - Oman"
Case 16385: Langue = "Arabe - Qatar"
Case 10241: Langue = "Arabe - Syrie"
Case 7169: Langue = "Arabe - Tunisie"
Case 9217: Langue = "Arabe - Yémen"
Case 1067: Langue = "Arménien"
Case 2092: Langue = "Azéri - Cyrillique"
Case 1068: Langue = "Azéri - Latin"
Case 1069: Langue = "Basque"
Case 1059: Langue = "Biélorusse"
Case 1026: Langue = "Bulgare"
Case 1027: Langue = "Catalan"
Case 3076: Langue = "Chinois - Hong-Kong"
Case 5124: Langue = "Chinois - Macao"
Case 2052: Langue = "Chinois - Rép. Populaire de Chine"
Case 4100: Langue = "Chinois - Singapour"
Case 1028: Langue = "Chinois - Taïwan"
Case 1042: Langue = "Coréen"
Case 1050: Langue = "Croate"
Case 1030: Langue = "Danois"
Case 11274: Langue = "Espagnol - Argentine"
Case 16394: Langue = "Espagnol - Bolivie"
Case 13322: Langue = "Espagnol - Chili"
Case 9226: Langue = "Espagnol - Colombie"
Case 5130: Langue = "Espagnol - Costa Rica"
Case 17418: Langue = "Espagnol - El Salavador"
Case 12298: Langue = "Espagnol - Équateur"
Case 1034: Langue = "Espagnol - Espagne"
Case 4106: Langue = "Espagnol - Guatemala"
Case 18442: Langue = "Espagnol - Honduras"
Case 19466: Langue = "Espagnol - Mexique"
Case 6154: Langue = "Espagnol - Panama"
Case 15370: Langue = "Espagnol - Paraguay"
Case 10250: Langue = "Espagnol - Pérou"
Case 20490: Langue = "Espagnol - Puerto Rico"
Case 7178: Langue = "Espagnol - République Dominicaine"
Case 14346: Langue = "Espagnol - Uruguay"
Case 8202: Langue = "Espagnol - Venezuela"
Case 1061: Langue = "Estonien"
Case 1065: Langue = "Farsi"
Case 1080: Langue = "Féroïen"
Case 1035: Langue = "Finlandais"
Case 2060: Langue = "Français - Belgique"
Case 3084: Langue = "Français - Canada"
Case 1036: Langue = "Français - France"
Case 5132: Langue = "Français - Luxembourg"
Case 4108: Langue = "Français - Suisse"
Case 1071: Langue = "FYRO Macédonien"
Case 1084: Langue = "Gaélique - Écosse"
Case 2108: Langue = "Gaélique - Irlande"
Case 1032: Langue = "Grec"
Case 1037: Langue = "Hébreu"
Case 1081: Langue = "Hindi"
Case 1038: Langue = "Hongrois"
Case 1057: Langue = "Indonésien"
Case 1039: Langue = "Islandais"
Case 1040: Langue = "Italien - Italie"
Case 2064: Langue = "Italien - Suisse"
Case 1041: Langue = "Japonais"
Case 1062: Langue = "Letton"
Case 1063: Langue = "Lituanien"
Case 2110: Langue = "Malais - Brunei"
Case 1086: Langue = "Malais - Malaisie"
Case 1082: Langue = "Maltais"
Case 1102: Langue = "Marathi"
Case 2067: Langue = "Néerlandais - Belgique"
Case 1043: Langue = "Néerlandais - Pays-Bas"
Case 1044: Langue = "Norvégien - Bokmaal"
Case 2068: Langue = "Norvégien - Nynorsk"
Case 1056: Langue = "Ourdou"
Case 2115: Langue = "Ouzbek - Cyrillique"
Case 1091: Langue = "Ouzbek - Latin"
Case 1045: Langue = "Polonais"
Case 1046: Langue = "Portugais - Brésil"
Case 2070: Langue = "Portugais - Portugal"
Case 1047: Langue = "Rhéto - Roman"
Case 2072: Langue = "Roumain - Moldavie"
Case 1048: Langue = "Roumain - Roumanie"
Case 1049: Langue = "Russe"
Case 2073: Langue = "Russe - Moldavie"
Case 1103: Langue = "Sanskrit"
Case 3098: Langue = "Serbe - Cyrillique"
Case 2074: Langue = "Serbe - Latin"
Case 1074: Langue = "Setswana"
Case 1051: Langue = "Slovaque"
Case 1060: Langue = "Slovène"
Case 1070: Langue = "Sorbian"
Case 2077: Langue = "Suédois - Finlande"
Case 1053: Langue = "Suédois - Suède"
Case 1072: Langue = "Sutu"
Case 1089: Langue = "Swahili"
Case 1097: Langue = "Tamoul"
Case 1092: Langue = "Tatar"
Case 1029: Langue = "Tchèque"
Case 1054: Langue = "Thaï"
Case 1073: Langue = "Tsonga"
Case 1055: Langue = "Turque"
Case 1058: Langue = "Ukrainien"
Case 1066: Langue = "Vietnamien"
Case 1076: Langue = "Xhosa"
Case 1085: Langue = "Yiddish"
Case 1077: Langue = "Zoulou"
Case Else: Langue = "Unknown"
End Select
End Function
MP
"Bouffon" <Bouffon@discussions.microsoft.com> a écrit dans le message de
news: 79CF781B-8D78-4DAE-A3B2-123014A3875D@microsoft.com...
j'aimerais savoir si il existe un formule pour trouvé si je suis sur un
excel
francais ou sur un excel anglais
Sub LanguageTest() MsgBox "User Interface Language: " _ & Langue(Application.LanguageSettings _ .LanguageID(msoLanguageIDUI)) End Sub
Private Function Langue(ByVal ID&) As String Select Case ID Case 1078: Langue = "Africaans" Case 1052: Langue = "Albanais" Case 1031: Langue = "Allemand - Allemagne" Case 3079: Langue = "Allemand - Autriche" Case 5127: Langue = "Allemand - Liechtenstein" Case 4103: Langue = "Allemand - Luxembourg" Case 2055: Langue = "Allemand - Suisse" Case 7177: Langue = "Anglais - Afrique du Sud" Case 3081: Langue = "Anglais - Australie" Case 10249: Langue = "Anglais - Belize" Case 4105: Langue = "Anglais - Canada" Case 9225: Langue = "Anglais - Caraïbes" Case 1033: Langue = "Anglais - États-Unis" Case 6153: Langue = "Anglais - Irlande" Case 8201: Langue = "Anglais - Jamaïque" Case 13321: Langue = "Anglais - Philippines" Case 2057: Langue = "Anglais - Royaume-Uni" Case 11273: Langue = "Anglais - Trinidad" Case 5121: Langue = "Arabe - Algérie" Case 1025: Langue = "Arabe - Arabie Saoudite" Case 15361: Langue = "Arabe - Bahreïn" Case 3073: Langue = "Arabe - Égypte" Case 14337: Langue = "Arabe - Émirats Arabes Unis." Case 2049: Langue = "Arabe - Iraq" Case 11265: Langue = "Arabe - Jordanie" Case 13313: Langue = "Arabe - Koweït" Case 12289: Langue = "Arabe - Liban" Case 4097: Langue = "Arabe - Libye" Case 6145: Langue = "Arabe - Maroc" Case 8193: Langue = "Arabe - Oman" Case 16385: Langue = "Arabe - Qatar" Case 10241: Langue = "Arabe - Syrie" Case 7169: Langue = "Arabe - Tunisie" Case 9217: Langue = "Arabe - Yémen" Case 1067: Langue = "Arménien" Case 2092: Langue = "Azéri - Cyrillique" Case 1068: Langue = "Azéri - Latin" Case 1069: Langue = "Basque" Case 1059: Langue = "Biélorusse" Case 1026: Langue = "Bulgare" Case 1027: Langue = "Catalan" Case 3076: Langue = "Chinois - Hong-Kong" Case 5124: Langue = "Chinois - Macao" Case 2052: Langue = "Chinois - Rép. Populaire de Chine" Case 4100: Langue = "Chinois - Singapour" Case 1028: Langue = "Chinois - Taïwan" Case 1042: Langue = "Coréen" Case 1050: Langue = "Croate" Case 1030: Langue = "Danois" Case 11274: Langue = "Espagnol - Argentine" Case 16394: Langue = "Espagnol - Bolivie" Case 13322: Langue = "Espagnol - Chili" Case 9226: Langue = "Espagnol - Colombie" Case 5130: Langue = "Espagnol - Costa Rica" Case 17418: Langue = "Espagnol - El Salavador" Case 12298: Langue = "Espagnol - Équateur" Case 1034: Langue = "Espagnol - Espagne" Case 4106: Langue = "Espagnol - Guatemala" Case 18442: Langue = "Espagnol - Honduras" Case 19466: Langue = "Espagnol - Mexique" Case 6154: Langue = "Espagnol - Panama" Case 15370: Langue = "Espagnol - Paraguay" Case 10250: Langue = "Espagnol - Pérou" Case 20490: Langue = "Espagnol - Puerto Rico" Case 7178: Langue = "Espagnol - République Dominicaine" Case 14346: Langue = "Espagnol - Uruguay" Case 8202: Langue = "Espagnol - Venezuela" Case 1061: Langue = "Estonien" Case 1065: Langue = "Farsi" Case 1080: Langue = "Féroïen" Case 1035: Langue = "Finlandais" Case 2060: Langue = "Français - Belgique" Case 3084: Langue = "Français - Canada" Case 1036: Langue = "Français - France" Case 5132: Langue = "Français - Luxembourg" Case 4108: Langue = "Français - Suisse" Case 1071: Langue = "FYRO Macédonien" Case 1084: Langue = "Gaélique - Écosse" Case 2108: Langue = "Gaélique - Irlande" Case 1032: Langue = "Grec" Case 1037: Langue = "Hébreu" Case 1081: Langue = "Hindi" Case 1038: Langue = "Hongrois" Case 1057: Langue = "Indonésien" Case 1039: Langue = "Islandais" Case 1040: Langue = "Italien - Italie" Case 2064: Langue = "Italien - Suisse" Case 1041: Langue = "Japonais" Case 1062: Langue = "Letton" Case 1063: Langue = "Lituanien" Case 2110: Langue = "Malais - Brunei" Case 1086: Langue = "Malais - Malaisie" Case 1082: Langue = "Maltais" Case 1102: Langue = "Marathi" Case 2067: Langue = "Néerlandais - Belgique" Case 1043: Langue = "Néerlandais - Pays-Bas" Case 1044: Langue = "Norvégien - Bokmaal" Case 2068: Langue = "Norvégien - Nynorsk" Case 1056: Langue = "Ourdou" Case 2115: Langue = "Ouzbek - Cyrillique" Case 1091: Langue = "Ouzbek - Latin" Case 1045: Langue = "Polonais" Case 1046: Langue = "Portugais - Brésil" Case 2070: Langue = "Portugais - Portugal" Case 1047: Langue = "Rhéto - Roman" Case 2072: Langue = "Roumain - Moldavie" Case 1048: Langue = "Roumain - Roumanie" Case 1049: Langue = "Russe" Case 2073: Langue = "Russe - Moldavie" Case 1103: Langue = "Sanskrit" Case 3098: Langue = "Serbe - Cyrillique" Case 2074: Langue = "Serbe - Latin" Case 1074: Langue = "Setswana" Case 1051: Langue = "Slovaque" Case 1060: Langue = "Slovène" Case 1070: Langue = "Sorbian" Case 2077: Langue = "Suédois - Finlande" Case 1053: Langue = "Suédois - Suède" Case 1072: Langue = "Sutu" Case 1089: Langue = "Swahili" Case 1097: Langue = "Tamoul" Case 1092: Langue = "Tatar" Case 1029: Langue = "Tchèque" Case 1054: Langue = "Thaï" Case 1073: Langue = "Tsonga" Case 1055: Langue = "Turque" Case 1058: Langue = "Ukrainien" Case 1066: Langue = "Vietnamien" Case 1076: Langue = "Xhosa" Case 1085: Langue = "Yiddish" Case 1077: Langue = "Zoulou" Case Else: Langue = "Unknown" End Select End Function
MP
"Bouffon" a écrit dans le message de news:
j'aimerais savoir si il existe un formule pour trouvé si je suis sur un excel francais ou sur un excel anglais