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