fonction (X as userform)

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:

---

1 2 3 4

Private Sub UserForm_Initialize() Call Translate_usrForm(ByVal Me.Name) End Sub

---

Dans un module

Code:

---

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

---

Code:

---

1 2 3

Private Sub UserForm_Initialize() Translate_usrForm Me End Sub

---

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