Discussion :

[cschauss]

Bonjour,
J'aimerais rendre les userforms de mon classeur multilingue.
J'ai créé une feuille UserFormCaptions qui contient les informations nécessaires pour gérer les textes en différentes langues

Colonne A: Nom du UserForm
Colonne B: Nom du contrôle
Colonne C: Type du contrôle
Colonne D: Valeur "Caption" en FR
Colonne E: Valeur "Caption" en DE
Colonne F: Valeur "Caption" en EN


J'avais imaginé utiliser la procédure SUB UserForm_Initialize()
1. Je récupère la langue sélectionnée par l'utilisateur
2. Je recherche le nom du formulaire sur la feuille UserFormCaptions (colonne A)
3. Je crée une boucle Do Loop

Mais voilà... Je ne sais pas comment faire pour modifier la valeur Caption des contrôles de ma liste!

Je vous remercie pour votre aide
Amicalement
Charles

[Philippe Tulliez]

Bonjour,
Pour travailler en mode multi-langue, j'utilise la fonction EQUIV (MATCH pour version anglaise et VBA), tu cherches la langue et EQUIV te renvoie le numéro de la colonne de la langue cherchée

[unparia]

Bonjour
Tu devrais en profiter pour remettre en cause tes traductions;
Non résident ne se traduit par exemple en anglais pas par "not resident" (qui n'aurait aucun sens en anglais) mais par "non resident"

[clementmarcotte]

Dire que cela se fait les yeux fermés en VB.net.

Puis dire que toute édition supérieure à Express de Visual Studio, permet de faire des applications compilées pour travailler avec Excel.

Heureusement que je suis habitué de prêcher dans le désert.

[Docmarti]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
ColLangue = 4
ColName = 3
ColUserform = 1
Set f = Worksheets("UserFormCaptions")
dern = f.Cells(Rows.Count, ColUserform).End(xlUp).Row
 For i = 2 To dern
  If f.Cells(i, ColUserform).Value <> Me.Name Then
  Else
   Me.Controls(f.Cells(i, ColName).Value).Caption = f.Cells(i, ColLangue).Value
  End If
 Next
End Sub

[cschauss]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
ColLangue = 4
ColName = 3
ColUserform = 1
Set f = Worksheets("UserFormCaptions")
dern = f.Cells(Rows.Count, ColUserform).End(xlUp).Row
 For i = 2 To dern
  If f.Cells(i, ColUserform).Value <> Me.Name Then
  Else
   Me.Controls(f.Cells(i, ColName).Value).Caption = f.Cells(i, ColLangue).Value
  End If
 Next
End Sub

Merci Docmarti,
Ce code est bien ce que je cherche.
Mais il y a un petit problème lorsque le type de contrôle est "Multipage"... Est-ce que ces contrôles doivent être traité différemment ?
Merci pour ton aide

[cschauss]

Bonjour
Tu devrais en profiter pour remettre en cause tes traductions;
Non résident ne se traduit par exemple en anglais pas par "not resident" (qui n'aurait aucun sens en anglais) mais par "non resident"

Merci pour l'information, je corrigerai

[cschauss]

Bonjour,
Pour travailler en mode multi-langue, j'utilise la fonction EQUIV (MATCH pour version anglaise et VBA), tu cherches la langue et EQUIV te renvoie le numéro de la colonne de la langue cherchée

Bonjour et merci ta réponse, mais mon problème n'est de trouver la colonne correspondant à la langue, mais plutôt de créer la routine pour appliquer la traduction à l'ouverture du formulaire.

[Invité]

Le multipage comporte des onglets (page) le traitement est forcement différent que ce soit dans excel qu'en vba!