Si vous créez une macro un peu plus complexe ou directement une application en Excel, il se peut que ce programme soit multilingue. Dans ce cas, vous pouvez prévoir une langue par défaut qui sera utilisé avant que l'utilisateur choisisse lui-même une langue. Mais il existe une meilleure méthode qui donnera un aspect plus professionnel à votre fichier: détecter la langue d'Excel que l'utilisateur utilise et prendre celle-ci comme langue de référence. Dans la plupart des cas, il s'agira de la langue de l'utilisateur et il ne devra même pas faire le choix – la langue correcte lui sera proposée dès le début.
Pour cela, il est nécessaire de trouver la langue dans laquelle MS Excel a été installé. Cela peut être fait grâce à la fonction suivante:
Application.LanguageSettings.LanguageID(msoLanguageIDUI)
Cette fonction ne retourne pas le nom de la langue mais son code numérique. Il nous faudra donc traduire ce code en un nom de la langue.
Codes de langue en Windows
Langue | Pays / Région | Code LCID |
---|---|---|
Afrikaans | South Africa | 1078 |
Albanian | Albania | 1052 |
Alsatian | 1156 | |
Amharic | Ethiopia | 1118 |
Arabic | Saudi Arabia | 1025 |
Arabic | Algeria | 5121 |
Arabic | Bahrain | 15361 |
Arabic | Egypt | 3073 |
Arabic | Iraq | 2049 |
Arabic | Jordan | 11265 |
Arabic | Kuwait | 13313 |
Arabic | Lebanon | 12289 |
Arabic | Libya | 4097 |
Arabic | Morocco | 6145 |
Arabic | Oman | 8193 |
Arabic | Qatar | 16385 |
Arabic | Syria | 10241 |
Arabic | Tunisia | 7169 |
Arabic | U.A.E. | 14337 |
Arabic | Yemen | 9217 |
Armenian | Armenia | 1067 |
Assamese | 1101 | |
Azeri (Cyrillic) | 2092 | |
Azeri (Latin) | 1068 | |
Bashkir | 1133 | |
Basque | 1069 | |
Belarusian | 1059 | |
Bengali (India) | 1093 | |
Bengali (Bangladesh) | 2117 | |
Bosnian (Bosnia/Herzegovina) | 5146 | |
Breton | 1150 | |
Bulgarian | 1026 | |
Burmese | 1109 | |
Catalan | 1027 | |
Cherokee | United States | 1116 |
Chinese | People's Republic of China | 2052 |
Chinese | Singapore | 4100 |
Chinese | Taiwan | 1028 |
Chinese | Hong Kong SAR | 3076 |
Chinese | Macao SAR | 5124 |
Corsican | 1155 | |
Croatian | 1050 | |
Croatian (Bosnia/Herzegovina) | 4122 | |
Czech | 1029 | |
Danish | 1030 | |
Dari | 1164 | |
Divehi | 1125 | |
Dutch | Netherlands | 1043 |
Dutch | Belgium | 2067 |
Edo | 1126 | |
English | United States | 1033 |
English | United Kingdom | 2057 |
English | Australia | 3081 |
English | Belize | 10249 |
English | Canada | 4105 |
English | Caribbean | 9225 |
English | Hong Kong SAR | 15369 |
English | India | 16393 |
English | Indonesia | 14345 |
English | Ireland | 6153 |
English | Jamaica | 8201 |
English | Malaysia | 17417 |
English | New Zealand | 5129 |
English | Philippines | 13321 |
English | Singapore | 18441 |
English | South Africa | 7177 |
English | Trinidad | 11273 |
English | Zimbabwe | 12297 |
Estonian | 1061 | |
Faroese | 1080 | |
Farsi | 1065 | |
Filipino | 1124 | |
Finnish | 1035 | |
French | France | 1036 |
French | Belgium | 2060 |
French | Cameroon | 11276 |
French | Canada | 3084 |
French | Democratic Rep. of Congo | 9228 |
French | Cote d'Ivoire | 12300 |
French | Haiti | 15372 |
French | Luxembourg | 5132 |
French | Mali | 13324 |
French | Monaco | 6156 |
French | Morocco | 14348 |
French | North Africa | 58380 |
French | Reunion | 8204 |
French | Senegal | 10252 |
French | Switzerland | 4108 |
French | West Indies | 7180 |
Frisian | Netherlands | 1122 |
Fulfulde | Nigeria | 1127 |
FYRO Macedonian | 1071 | |
Galician | 1110 | |
Georgian | 1079 | |
German | Germany | 1031 |
German | Austria | 3079 |
German | Liechtenstein | 5127 |
German | Luxembourg | 4103 |
German | Switzerland | 2055 |
Greek | 1032 | |
Greenlandic | 1135 | |
Guarani | Paraguay | 1140 |
Gujarati | 1095 | |
Hausa | Nigeria | 1128 |
Hawaiian | United States | 1141 |
Hebrew | 1037 | |
Hindi | 1081 | |
Hungarian | 1038 | |
Ibibio | Nigeria | 1129 |
Icelandic | 1039 | |
Igbo | Nigeria | 1136 |
Indonesian | 1057 | |
Inuktitut | 1117 | |
Irish | 2108 | |
Italian | Italy | 1040 |
Italian | Switzerland | 2064 |
Japanese | 1041 | |
K'iche | 1158 | |
Kannada | 1099 | |
Kanuri | Nigeria | 1137 |
Kashmiri | 2144 | |
Kashmiri (Arabic) | 1120 | |
Kazakh | 1087 | |
Khmer | 1107 | |
Kinyarwanda | 1159 | |
Konkani | 1111 | |
Korean | 1042 | |
Kyrgyz (Cyrillic) | 1088 | |
Lao | 1108 | |
Latin | 1142 | |
Latvian | 1062 | |
Lithuanian | 1063 | |
Luxembourgish | 1134 | |
Malay | Malaysia | 1086 |
Malay | Brunei Darussalam | 2110 |
Malayalam | 1100 | |
Maltese | 1082 | |
Manipuri | 1112 | |
Maori | New Zealand | 1153 |
Mapudungun | 1146 | |
Marathi | 1102 | |
Mohawk | 1148 | |
Mongolian (Cyrillic) | 1104 | |
Mongolian (Mongolian) | 2128 | |
Nepali | 1121 | |
Nepali | India | 2145 |
Norwegian (Bokmål) | 1044 | |
Norwegian (Nynorsk) | 2068 | |
Occitan | 1154 | |
Oriya | 1096 | |
Oromo | 1138 | |
Papiamentu | 1145 | |
Pashto | 1123 | |
Polish | 1045 | |
Portuguese | Brazil | 1046 |
Portuguese | Portugal | 2070 |
Punjabi | 1094 | |
Punjabi (Pakistan) | 2118 | |
Quecha | Bolivia | 1131 |
Quecha | Ecuador | 2155 |
Quecha | Peru | 3179 |
Rhaeto | Romanic | 1047 |
Romanian | 1048 | |
Romanian | Moldava | 2072 |
Russian | 1049 | |
Russian | Moldava | 2073 |
Sami (Lappish) | 1083 | |
Sanskrit | 1103 | |
Scottish Gaelic | 1084 | |
Sepedi | 1132 | |
Serbian (Cyrillic) | 3098 | |
Serbian (Latin) | 2074 | |
Sindhi | India | 1113 |
Sindhi | Pakistan | 2137 |
Sinhalese | Sri Lanka | 1115 |
Slovak | 1051 | |
Slovenian | 1060 | |
Somali | 1143 | |
Sorbian | 1070 | |
Spanish | Spain (Modern Sort) | 3082 |
Spanish | Spain (Traditional Sort) | 1034 |
Spanish | Argentina | 11274 |
Spanish | Bolivia | 16394 |
Spanish | Chile | 13322 |
Spanish | Colombia | 9226 |
Spanish | Costa Rica | 5130 |
Spanish | Dominican Republic | 7178 |
Spanish | Ecuador | 12298 |
Spanish | El Salvador | 17418 |
Spanish | Guatemala | 4106 |
Spanish | Honduras | 18442 |
Spanish | Latin America | 22538 |
Spanish | Mexico | 2058 |
Spanish | Nicaragua | 19466 |
Spanish | Panama | 6154 |
Spanish | Paraguay | 15370 |
Spanish | Peru | 10250 |
Spanish | Puerto Rico | 20490 |
Spanish | United States | 21514 |
Spanish | Uruguay | 14346 |
Spanish | Venezuela | 8202 |
Sutu | 1072 | |
Swahili | 1089 | |
Swedish | 1053 | |
Swedish | Finland | 2077 |
Syriac | 1114 | |
Tajik | 1064 | |
Tamazight (Arabic) | 1119 | |
Tamazight (Latin) | 2143 | |
Tamil | 1097 | |
Tatar | 1092 | |
Telugu | 1098 | |
Thai | 1054 | |
Tibetan | Bhutan | 2129 |
Tibetan | People's Republic of China | 1105 |
Tigrigna | Eritrea | 2163 |
Tigrigna | Ethiopia | 1139 |
Tsonga | 1073 | |
Tswana | 1074 | |
Turkish | 1055 | |
Turkmen | 1090 | |
Uighur | China | 1152 |
Ukrainian | 1058 | |
Urdu | 1056 | |
Urdu | India | 2080 |
Uzbek (Cyrillic) | 2115 | |
Uzbek (Latin) | 1091 | |
Venda | 1075 | |
Vietnamese | 1066 | |
Welsh | 1106 | |
Wolof | 1160 | |
Xhosa | 1076 | |
Yakut | 1157 | |
Yi | 1144 | |
Yiddish | 1085 | |
Yoruba | 1130 | |
Zulu | 1077 | |
HID (Human Interface Device) | 1279 |
Cette liste se base sur le site officiel de Microsoft: https://msdn.microsoft.com/en-us/goglobal/bb964664
Nous avons donc le numéro de la langue et le nom de la langue correspondant. Il ne reste plus qu'à combiner ces deux information pour en faire une fonction VBA utilisable.
Fonctions VBA pour trouver la langue de l'utilisateur
Je vous propose ici deux fonctions VBA différentes:
- la première indique les langues principales (anglais, français, allemand,…) et remplace les autres (roumain, tamoul,…) langues par une mention "Autre" (vous pouvez remplacer cette mention par une autre qui correspond le mieux à vos besoins)
- la deuxième fonction VBA proposée distingue toutes les langues, même les plus exotiques. A vous de l'adapter pour qu'elle corresponde au mieux à vos besoins
Fonction VBA simplifiée pour déterminer la langue d'utilisateur
Public Function LangueSysteme() 'par: https://excel-malin.com On Error GoTo FunctionErreur Dim CodeLangueSysteme As Single 'trouver le code de la langue CodeLangueSysteme = Application.LanguageSettings.LanguageID(msoLanguageIDUI) 'associer le code à la langue (langues principales, les autres sont remplacées par l'anglais" Select Case CodeLangueSysteme Case 1036, 2060, 11276, 3084, 9228, 12300, 15372, 5132, 13324, 6156, 14348, 58380, 8204, 10252, 4108, 7180: LangueSysteme = "Français" Case 1033, 2057, 3081, 10249, 4105, 9225, 15369, 16393, 14345, 6153, 8201, 17417, 5129, 13321, 18441, 7177, 11273, 12297: LangueSysteme = "Anglais" Case 1031, 3079, 5127, 4103, 2055: LangueSysteme = "Allemand" Case 2052, 4100, 1028, 3076, 5124: LangueSysteme = "Chinois" Case 1043, 2067: LangueSysteme = "Néerlandais" Case 1040, 2064: LangueSysteme = "Italien" Case 3082, 1034, 11274, 16394, 13322, 9226, 5130, 7178, 12298, 17418, 4106, 18442, 22538, 2058, 19466, 6154, 15370, 10250, 20490, 21514, 14346, 8202: LangueSysteme = "Espagnol" Case 1025, 5121, 15361, 3073, 2049, 11265, 13313, 12289, 4097, 6145, 8193, 16385, 10241, 7169, 14337, 9217: LangueSysteme = "Arabe" Case Else: LangueSysteme = "Autre" End Select Exit Function FunctionErreur: LangueSysteme = "" End Function
Fonction complète pour déterminer la langue d'utilisateur
Cette fonction est assez longue car elle liste toutes les langues disponibles dans Windows. Vous l'afficherez en cliquant sur l'accordéon ci-dessus…
L'avantage de cette fonction est qu'elle est tout à fait complète. À vous de voir si vous avez l'utilité de la liste complète des langues possibles…
Public Function LangueSysteme() 'par: https://excel-malin.com On Error GoTo FunctionErreur Dim CodeLangueSysteme As Single 'trouver le code de la langue CodeLangueSysteme = Application.LanguageSettings.LanguageID(msoLanguageIDUI) 'associer le code à la langue (liste complète) Select Case CodeLangueSysteme Case 1036, 2060, 11276, 3084, 9228, 12300, 15372, 5132, 13324, 6156, 14348, 58380, 8204, 10252, 4108, 7180: LangueSysteme = "Français" Case 1033, 2057, 3081, 10249, 4105, 9225, 15369, 16393, 14345, 6153, 8201, 17417, 5129, 13321, 18441, 7177, 11273, 12297: LangueSysteme = "Anglais" Case 1031, 3079, 5127, 4103, 2055: LangueSysteme = "Allemand" Case 2052, 4100, 1028, 3076, 5124: LangueSysteme = "Chinois" Case 1043, 2067: LangueSysteme = "Néerlandais" Case 1040, 2064: LangueSysteme = "Italien" Case 3082, 1034, 11274, 16394, 13322, 9226, 5130, 7178, 12298, 17418, 4106, 18442, 22538, 2058, 19466, 6154, 15370, 10250, 20490, 21514, 14346, 8202: LangueSysteme = "Espagnol" Case 1025, 5121, 15361, 3073, 2049, 11265, 13313, 12289, 4097, 6145, 8193, 16385, 10241, 7169, 14337, 9217: LangueSysteme = "Arabe" Case 1078: LangueSysteme = "Afrikaans" Case 1052: LangueSysteme = "Albanian" Case 1156: LangueSysteme = "Alsatian" Case 1118: LangueSysteme = "Amharic" Case 1067: LangueSysteme = "Armenian" Case 1101: LangueSysteme = "Assamese" Case 2092: LangueSysteme = "Azeri (Cyrillic)" Case 1068: LangueSysteme = "Azeri (Latin)" Case 1133: LangueSysteme = "Bashkir" Case 1069: LangueSysteme = "Basque" Case 1059: LangueSysteme = "Belarusian" Case 1093: LangueSysteme = "Bengali (India)" Case 2117: LangueSysteme = "Bengali (Bangladesh)" Case 5146: LangueSysteme = "Bosnian (Bosnia/Herzegovina)" Case 1150: LangueSysteme = "Breton" Case 1026: LangueSysteme = "Bulgare" Case 1109: LangueSysteme = "Burmese" Case 1027: LangueSysteme = "Catalan" Case 1116: LangueSysteme = "Cherokee" Case 1155: LangueSysteme = "Corsican" Case 1050: LangueSysteme = "Croatian" Case 4122: LangueSysteme = "Croatian (Bosnia/Herzegovina)" Case 1029: LangueSysteme = "Tchèque" Case 1030: LangueSysteme = "Danois" Case 1164: LangueSysteme = "Dari" Case 1125: LangueSysteme = "Divehi" Case 1126: LangueSysteme = "Edo" Case 1061: LangueSysteme = "Estonian" Case 1080: LangueSysteme = "Faroese" Case 1065: LangueSysteme = "Farsi" Case 1124: LangueSysteme = "Filipino" Case 1035: LangueSysteme = "Finnish" Case 1122: LangueSysteme = "Frisian" Case 1127: LangueSysteme = "Fulfulde" Case 1071: LangueSysteme = "FYRO Macedonian" Case 1110: LangueSysteme = "Galician" Case 1079: LangueSysteme = "Georgian" Case 1032: LangueSysteme = "Greek" Case 1135: LangueSysteme = "Greenlandic" Case 1140: LangueSysteme = "Guarani" Case 1095: LangueSysteme = "Gujarati" Case 1128: LangueSysteme = "Hausa" Case 1141: LangueSysteme = "Hawaiian" Case 1037: LangueSysteme = "Hebrew" Case 1081: LangueSysteme = "Hindi" Case 1038: LangueSysteme = "Hungarian" Case 1129: LangueSysteme = "Ibibio" Case 1039: LangueSysteme = "Icelandic" Case 1136: LangueSysteme = "Igbo" Case 1057: LangueSysteme = "Indonesian" Case 1117: LangueSysteme = "Inuktitut" Case 2108: LangueSysteme = "Irish" Case 1041: LangueSysteme = "Japanese" Case 1158: LangueSysteme = "K'iche" Case 1099: LangueSysteme = "Kannada" Case 1137: LangueSysteme = "Kanuri" Case 2144: LangueSysteme = "Kashmiri" Case 1120: LangueSysteme = "Kashmiri (Arabic)" Case 1087: LangueSysteme = "Kazakh" Case 1107: LangueSysteme = "Khmer" Case 1159: LangueSysteme = "Kinyarwanda" Case 1111: LangueSysteme = "Konkani" Case 1042: LangueSysteme = "Korean" Case 1088: LangueSysteme = "Kyrgyz (Cyrillic)" Case 1108: LangueSysteme = "Lao" Case 1142: LangueSysteme = "Latin" Case 1062: LangueSysteme = "Latvian" Case 1063: LangueSysteme = "Lithuanian" Case 1134: LangueSysteme = "Luxembourgish" Case 1086, 2110: LangueSysteme = "Malay" Case 1100: LangueSysteme = "Malayalam" Case 1082: LangueSysteme = "Maltese" Case 1112: LangueSysteme = "Manipuri" Case 1153: LangueSysteme = "Maori" Case 1146: LangueSysteme = "Mapudungun" Case 1102: LangueSysteme = "Marathi" Case 1148: LangueSysteme = "Mohawk" Case 1104: LangueSysteme = "Mongolian (Cyrillic)" Case 2128: LangueSysteme = "Mongolian (Mongolian)" Case 1121, 2145: LangueSysteme = "Nepali" Case 1044: LangueSysteme = "Norwegian (Bokmål)" Case 2068: LangueSysteme = "Norwegian (Nynorsk)" Case 1154: LangueSysteme = "Occitan" Case 1096: LangueSysteme = "Oriya" Case 1138: LangueSysteme = "Oromo" Case 1145: LangueSysteme = "Papiamentu" Case 1123: LangueSysteme = "Pashto" Case 1045: LangueSysteme = "Polish" Case 1046, 2070: LangueSysteme = "Portuguese" Case 1094: LangueSysteme = "Punjabi" Case 2118: LangueSysteme = "Punjabi (Pakistan)" Case 1131, 2155, 3179: LangueSysteme = "Quecha" Case 1047: LangueSysteme = "Rhaeto" Case 1048, 2072: LangueSysteme = "Romanian" Case 1049, 2073: LangueSysteme = "Russian" Case 1083: LangueSysteme = "Sami (Lappish)" Case 1103: LangueSysteme = "Sanskrit" Case 1084: LangueSysteme = "Scottish Gaelic" Case 1132: LangueSysteme = "Sepedi" Case 3098: LangueSysteme = "Serbian (Cyrillic)" Case 2074: LangueSysteme = "Serbian (Latin)" Case 1113, 2137: LangueSysteme = "Sindhi" Case 1115: LangueSysteme = "Sinhalese" Case 1051: LangueSysteme = "Slovak" Case 1060: LangueSysteme = "Slovenian" Case 1143: LangueSysteme = "Somali" Case 1070: LangueSysteme = "Sorbian" Case 1072: LangueSysteme = "Sutu" Case 1089: LangueSysteme = "Swahili" Case 1053, 2077: LangueSysteme = "Suédois" Case 1114: LangueSysteme = "Syriac" Case 1064: LangueSysteme = "Tajik" Case 1119: LangueSysteme = "Tamazight (Arabic)" Case 2143: LangueSysteme = "Tamazight (Latin)" Case 1097: LangueSysteme = "Tamil" Case 1092: LangueSysteme = "Tatar" Case 1098: LangueSysteme = "Telugu" Case 1054: LangueSysteme = "Thai" Case 2129, 1105: LangueSysteme = "Tibetan" Case 2163, 1139: LangueSysteme = "Tigrigna" Case 1073: LangueSysteme = "Tsonga" Case 1074: LangueSysteme = "Tswana" Case 1055: LangueSysteme = "Turkish" Case 1090: LangueSysteme = "Turkmen" Case 1152: LangueSysteme = "Uighur" Case 1058: LangueSysteme = "Ukrainian" Case 1056, 2080: LangueSysteme = "Urdu" Case 2115: LangueSysteme = "Uzbek (Cyrillic)" Case 1091: LangueSysteme = "Uzbek (Latin)" Case 1075: LangueSysteme = "Venda" Case 1066: LangueSysteme = "Vietnamese" Case 1106: LangueSysteme = "Welsh" Case 1160: LangueSysteme = "Wolof" Case 1076: LangueSysteme = "Xhosa" Case 1157: LangueSysteme = "Yakut" Case 1144: LangueSysteme = "Yi" Case 1085: LangueSysteme = "Yiddish" Case 1130: LangueSysteme = "Yoruba" Case 1077: LangueSysteme = "Zulu" Case 1279: LangueSysteme = "HID (Human Interface Device)" Case Else: LangueSysteme = "" End Select Exit Function FunctionErreur: LangueSysteme = "" End Function
Astuce pour une utilisation optimale de ces fonctions VBA
Cette fonction peut être utilisée directement dans la feuille de votre fichier Excel (comme une "UDF – User Defined Function") ou comme une partie de votre code VBA.
Dans une Feuille, la formule à utiliser serait: =LangueSysteme()
Pour simplifier l'utilisation de cette fonction dans votre code, il peut être intéressant de remplacer les noms des langues par leur code ISO: 639-1 en deux lettres (par ex. le français = "FR") ou le 639-2 en trois lettres (par ex. le français = "FRA").
Plus d'infos et la liste des codes: Wikipédia – Liste des codes ISO 639-1