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: trouver 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.

La liste complète des langues avec leur codes (cliquez pour afficher la liste)

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'Excel de l'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…

Cliquez pour visualiser le code de la fonction

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

Pour aller plus loin en VBA

Voici quelques autres articles qui pourraient vous servir…

42 0

VBA: trouver la langue d’Excel et le pays de l’utilisateur