Discussion :

[soazig]

Bonjour,
Nous avons un classeur contenant un certain nombre de macro qui émettent des messages à l'utilisateur en français, or l'utilisation de ces macros va se généraliser à une population anglophone.
Quel est le meilleur moyen de concevoir le multilangue?
Un onglet dédié masqué avec les messages?
Un fichier resources si tant est que ce soit possible avec Excel?
Une autre solution?

Sachant que les éléments à traduire sont essentiellement les messages à l'utilisateur, et peut-être à l'installation aussi les textes et infobulle de la toolbar.

Actuellement les macros sont écrites en Visual Basic pour Application.
Nous utilisons Excel 2007 mais il est question de passer en Excel 2010 dans l'année, donc autant que ce soit compatible.

Merci de votre aide
Soazig

[Philippe Tulliez]

Bonjour Soazig,

Nous avons un classeur contenant un certain nombre de macro qui émettent des messages à l'utilisateur en français, or l'utilisation de ces macros va se généraliser à une population anglophone.
Quel est le meilleur moyen de concevoir le multilangue?
Un onglet dédié masqué avec les messages?

C'est la méthode que j'utilise, même sans code VBA. Une langue par colonne et en première colonne des langues celle qui s'affichera par défaut.
J'effectue la recherche avec INDEX et EQUIV. En vba et Application.WorksheetFunction.Index et Application.WorksheetFunction.Match ou directement Application.Match

[soazig]

Bonjour,

Finalement, j'ai utilisé une feuille cachée avec toutes les traductions. Pour l'instant 3 colonnes.
Une colonne mnemonique avec un libellé court technique
Une colonne Français
Une colonne anglais
et le code suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'---------------------------------------------------------------------------------------
' Procedure : Traduire
' Author    : s.Forterre
' Date      : 24/09/2015
' Purpose   : à partir du mnémonique cherche dans la traduction correspondante pour la langue se trouvant dans la colonne numColonneLangue
'Paramètres :
'            mnemonique        : contenu de la cellule en colonne 1 qui indique de quel libellé il s'agit
'---------------------------------------------------------------------------------------
Public Function Traduire(ByVal mnemonique As String) As String
Dim sTraduction As String
Dim plage As Range
 
 
    sTraduction = Application.VLookup(mnemonique, GetPlageTraduction, m_iNumColonneLangue, False)
    If IsError(sTraduction) Then
 
        sTraduction = "No traduction for" & mnemonique
    End If
 
    Traduire = sTraduction
 
End Function

Cordialement
Soazig