Discussion :

[laurentabj]

Bonjour

Je souhaite modifier le titre d'un userForm depuis le code d'un module.
Pour cela, j'ai utilisé la syntaxe suivante :

Code :

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

1
2
 
usrFormToTranslate.Caption = motTraduit

Curieusement, le titre de mon formulaire (dans la barre bleue) n'est pas modifié, mais le nouveau titre apparaît quand même juste en dessous. Cf image jointe.


S'agit-il d'un bogue ? Ou bien y a t-il une solution ?

Merci d'avance.

[Maxence HUBICHE]

Code :

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

1
2
3
4
    With UserForm1
        .Caption = "toto"
        .Show
    End With

Marche très bien !

[laurentabj]

Merci pour ta réponse. J'ai essayé mais cette fois j'ai une erreur de type 438 sur l'exécution de

Code :

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

1
2
 
.show

En fait le processus est le suivant :

Code associé au formulaire

Code :

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

1
2
3
4
 
UserForm_Initialize()
Call Translate_usrForm(Me, Me.Name)
End sub

Code 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
 
Function Translate_usrForm(usrFormToTranslate As UserForm, UsrFormName As String) As Boolean
 
Dim c As Range
Dim motTraduit As String
 
With ThisWorkbook.Sheets(csWSFORMS).Range("F:F")
    Set c = .Find(UsrFormName, LookIn:=xlValues)
End With
If Not c Is Nothing Then
    motTraduit = Cells(c.Row, Sheets(csWSOPTIONS).Cells(1, 2).Value).Value
    With usrFormToTranslate
        .Caption = motTraduit
        .Show
    End With
End If

[laurentabj]

Autant pour moi ! Je ne peux pas faire un .show dans une procédure initialize()

Mais cela ne résoud pas mon problème de titre. Lorsque je supprime l'expression .show, j'ai toujours ce sous-titre bizarre à la place de mon titre. cf gif du premier message.

[laurentabj]

Finalement j'ai résolu mon problème en modifiant légèrement mon processus et en agissant sur la propriété caption sous le UserForm_Initialize(), et non pas au niveau de la fonction sous-jacente.

Mais c'est quand même bizarre ce sous-titre. On dirait un bogue ?



Code associé au formulaire

Code :

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

1
2
3
4
 
UserForm_Initialize()
Me.Caption =Translate_usrForm(Me, Me.Name)
End sub

Code du module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function Translate_usrForm(usrFormToTranslate As UserForm, UsrFormName As String) As string
 
Dim c As Range
Dim motTraduit As String
 
With ThisWorkbook.Sheets(csWSFORMS).Range("F:F")
    Set c = .Find(UsrFormName, LookIn:=xlValues)
End With
If Not c Is Nothing Then
    Translate_usrForm = Cells(c.Row, Sheets(csWSOPTIONS).Cells(1, 2).Value).Value
End If
End Function