Discussion :

[Benito54]

Bonjour

J'ai besoin de faire une macro Excel qui permet de fonctionner en deux langues (francais - anglais)
pour cela j'ai un tableau Excel qui regroupe les champs suivants dans la feuille "ToolLang"

Type Object captionName English French
Sheet Menu CmdCommande Test List Liste de test
Form Bdtest boutonmarche Start Marche
...


J'ai par la suite le code suivant

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
18
19
20
21
 
Public Sub Translation()
Dim i As Integer
Dim ObjectName As String
Dim CaptionName As String
Dim CaptionText As String
Dim Lang As Integer
 
Lang = 1
i = 0
 
Do While (Sheets("ToolLang").Cells(i + 2, 1).Value > 0)
 
    If Sheets("ToolLang").Cells(i + 2, 1).Value = "Sheet" Then
        ObjectName = Sheets("ToolLang").Cells(i + 2, 2).Value
        CaptionName = Sheets("ToolLang").Cells(i + 2, 3).Value
        CaptionText = Sheets("ToolLang").Cells(i + 2, 3 + Lang).Value
        Sheets(ObjectName).CaptionName.Caption = CaptionText '<-- erreur ici
    End If
 
Loop

Le code n'accepte pas la dernière ligne alors que si j'entre le code si dessous, tout se passe correctement.

Code :

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

Sheets(ObjectName).CmdCommand.caption = CaptionText

Si je comprend le nom CaptionName ne peut être défini comme une chaine de caractère. Mais alors comment faire car j'ai essayé plusieurs solutions sans réussir à trouver.

MErci pour votre aide
Benoit

[fring]

Bonjour,

Essaie comme ceci

Code :

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

Sheets(ObjectName).OLEObjects(CaptionName).Object.Caption = CaptionText

[Benito54]

Merci Fring pour la réponse rapide et efficace. Ca marche très bien.

Benoit

Comme vous l'aviez peut être constaté, j'ai aussi des forms et là j'ai essayé votre solution et de broder avec mais pas de chance ça ne fonctionne pas dans ce cas là. Une petite idée?

Cordialement
Benoit

[fring]

Désolé je ne comprend pas ta question, tu peux préciser ?

[Benito54]

Voila qqs précisions
Dans la précédente formule je vérifie si l'objet se trouve dans une fenêtre "if ___.value = "sheet"
Mais je dois aussi changer les langues de label et bouton dans des userform

Donc je créé aussi une étape comme celle-ci

Code :

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

1
2
3
4
5
6
  If Sheets("ToolLang").Cells(i + 2, 1).Value = "Form" Then
        ObjectName = Sheets("ToolLang").Cells(i + 2, 2).Value
        CaptionName = Sheets("ToolLang").Cells(i + 2, 3).Value
        CaptionText = Sheets("ToolLang").Cells(i + 2, 3 + Lang).Value
        BdDoc.OLEObjects(CaptionName).Object.Caption = CaptionText  '<--- ca bloque ici
  End if

J'ai essayé d'appliquer la même méthode mais sans succès. j'ai essayé de broder et trouver qqs astuces sur le net mais sans succès.
Donc si tu as une piste, elle sera la bienvenue.

Benoit

[fring]

Pour un contrôle sur un UserForm, la bonne syntaxe est la suivante

Code :

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

BdDoc.Controls(CaptionName).Caption = CaptionText