Discussion :

[laurentabj]

Bonjour,

Je souhaite réaliser une fonction de traduction de l'interface utilisateur de mon application (c'est à dire s'appliquant à chacun de mes UserForms).

Pour cela, j'appelle ma fonction à chaque initialisation de formulaire.

Mon problème est que je ne sais pas trop comment passer le nom du formulaire à traduire dans mon appel de fonction pour ne pas avoir une "incompatibilité de type".

Quelqu'un a une idée ?
Merci d'avance



Dans mes UserForm :

Code :

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

1
2
3
4
 
Private Sub UserForm_Initialize()
Call Translate_usrForm(ByVal Me.Name)
End Sub

Dans un module

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
 
Function Translate_usrForm(usrFormToTranslate As UserForm) As Boolean
'Traduction des interfaces
 
 
Dim ctl As Control
Dim ctlType As String
Dim ctlName As String
Dim c As Range
Dim motTraduit As String
 
 
ThisWorkbook.Sheets(csWSFORMS).Activate
    For Each ctl In usrFormToTranslate.Controls
        ctlType = TypeName(ctl)
        ctlName = ctl.Name
...

[Maxence HUBICHE]

Code :

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

1
2
3
 Private Sub UserForm_Initialize()
    Translate_usrForm  Me
End Sub

[laurentabj]

Merci beaucoup : c'est boulversant de simplicité !
Dire que ça fait 3 heures que je me creuse la tête