Discussion :

[Heruvor]

Bonjour à tous,

Dans le contexte d'une application bilingue, j'ai une macro de traduction qui doit changer les titres et différents labels des contrôles de plusieurs userforms.
Pour cela j'ai un onglet de traduction avec plusieurs colonnes :
A : nom de l'userform
B : nom du control
C : valeur en français
D : valeur en anglais

Je cherche donc a faire une boucle qui ressemble à quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Do while sheets(1).cells(i,1)<>""
 
   nomForm = sheets(1).cells(i,1).value
   nomCtrl = sheets(1).cells(i,2).value
   valeurTrad = sheets(1).cells(i,3).value 'ou cells(i,4) la sélection de la langue se fait en dehors de la boucle
 
   VBA.UserForms.Add(nomForm).caption = valeurTrad 'pour le titre du userform
   VBA.UserForms.Add(nomForm).Controls(nomCtrl).caption = valeurTrad 'pour le label d'un controle
 
Loop

Le code précédent ne renvoie pas d'erreur, mais n'effectue pas le changement de label demandé.
Avez vous des idées sur le problème ?

Merci d'avance pour vos réponses

[Jean-Philippe André]

Salut,

pour les aspects multilingues des applications, j'ai tendance à utiliser une procédure qui se déclenche dans l'évènement Form_Load()

Tu passes alors par un Me.Controls() et un Me.Caption nettement plus sympatoches à manipuler ^^

[Heruvor]

Oui c'est une solution solution envisageable.

Vu que la macro gère aussi la traduction de cellules des différents onglet je voulais tout faire dans la même boucle, mais je n'ai pas encore trouvé comment.

J'ai trouvé ça :

Code :

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

ThisWorkbook.VBProject.VBComponents("userform1").Designer.Controls("label1").Caption = "test"

qui fonctionne, mais qui demande de cocher la case "Accès approuvé au modèle d'objet du projet VBA" dans les paramètres des macros du centre de gestion de la confidentialité...

Je continue à chercher la solution optimale ^^