Discussion :

[tranquille40]

Bonjour la gang !

J'ai un classeur que je veux rendre bilingue mais j'ai énormément d'objet avec caption en français. Je dois être capable de développer une macro qui va me permettre de d'accéder à tout les objets de mon classeur afin de changer automatiquement ces captions.

Merci à l'avance

Tranquille40
Longueuil, Québec, Canada

[Bigalo]

Bonsoir,

J'ai eu à travailler dans un environnement où 3 langues devaient pouvoir être utilisées.

J'ai utilisé un nom, Langue pouvant prendre la valeur 1, 2 ou 3, et une feuille nommée Dico (et FDico pour le CodeName) avec 3 colonnes, contenant chacune les textes utilisés par le classeur (dans les feuilles et dans VBA) dans l'une des 3 langues.

3 boutons avec chacun un drapeau permettaient de choisir la langue, en donnant la valeur adaptée à Langue.

• Textes en français,
• Textes en anglais,
• Textes en italien.

Pour chaque ligne, un nom était associé au groupe de 3 cellules représentant les 3 versions d'un texte.

Chaque cellule devant afficher du texte comportait une formule de ce type :

Code :

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

=INDEX(Période;Langue)

et en VBA, une variable Public, définie dans un module standard, bien sûr, une fonction Traduction était appelée à chaque emploi de MsgBox ou d'un UserForm :

Code :

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

1
2
3
4
 
Public Function Traduction(c as Range)
    Traduction = FDico.Range(c).Cells(1,Langue)
End Function

Dans 1 UserForm :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_Initialize()
    Langue = FDico.Evaluate("Langue")
    ' Labels
    LabNbVentes = Traduction("NbVentes")
    LabBoutiques = Traduction("CABoutiques")
    ' ...
    ' Boutons
    BAnnuler.Caption = Traduction("Annuler"9
    ' ...
End Sub

Voilà !