Bonjour,
je n'ai pas vraiment de problèmes de codes mais un Pb de technique !
J'ai une sorte de formulaire directement dans une feuille Excel, pas dans une Form.
L'idée, c'est d'avoir un formulaire multi-langues.
J'ai donc 4 option button pour choisir la langue et en fonction du choix les labels changeront.
La source, c'est un tableau avec en première colonne le nom du contrôle label et ensuite suivant la colonne la bonne traduction.
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 'récupération de la langue choisie pouir déterminer la colonne de la table trad à prendre If Option_EN.Select = True Then col_lang = 4 If Option_FR.Select = True Then col_lang = 5 If Option_ES.Select = True Then col_lang = 6 If Option_DE.Select = True Then col_lang = 7 'parcours des contrôles de ma page For Each Obj In ActiveSheet.OLEObjects 'si c'est un label If TypeOf Obj.Object Is Label Then 'parcours de chaque For i = 0 To NbLabel 'parcours du tableau de trad For j = 0 To NbLigneTrad If Sheets("Translation").Cells(j, 1) = Obj.Name Then Obj.Caption = Sheets("Translation").Cells(j, col_lang) End If Next j Next i End If Next Obj
C'est une solution mais si vous avez d'autres idées pour gérer ce genre de problématique multi-langues, n'hésitez pas.
Bonne soirée.
Freiya
Partager