Modifier le titre d'un userForm

Version imprimable

17/07/2007, 18h04
laurentabj

1 pièce(s) jointe(s)

Modifier le titre d'un userForm
Bonjour

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

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.
Pièce jointe 16735

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

Merci d'avance.

Code:

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

Marche très bien !
:koi:

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

Code:

1
2
 
.show

En fait le processus est le suivant :

Code associé au formulaire

Code:

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

Code module

Code:

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

18/07/2007, 10h41
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.

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:

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

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