Rafraichir un Userform

Version imprimable

04/11/2011, 17h12
defluc

Rafraichir un Userform

Bonjour à tous,

J'ai créé dynamiquement un formulaire sur lequel j'ai placé un Label dont je souhaite modifier le texte pour renseigner l'utilisateur sur l'état d'avancement d'une macro au déroulement assez long.

Or, chaque fois que je modifie le Label1.Caption, le texte reste inchangé, malgré le Repaint du formulaire.

Que faut-il coder pour pallier ce problème.

Merci d'avance
04/11/2011, 17h23
Jean-Pierre49
Bonjour

as tu essayer
Code:

1 2 Label1.Caption="XX" DoEvents ' Pour redonner la main a Windows
Moi j'utilise aussi

Code:

Application.StatusBar = "XXXX"

Tu dis

bon courage

Rien n'a d'effet

Voici la source de test

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub CreateUserForm()
Set UsfObj = ThisWorkbook.VBProject.VBComponents.Add(3)
  With UsfObj
    .Properties("Caption") = "Message d'attente"
    .Properties("Left") = 20
    .Properties("Top") = 20
    .Properties("Width") = 240
    .Properties("Height") = 100
  End With
  Msg = "Traitement en cours" & Chr(10) & "Veuillez patienter"
  Set L1 = UsfObj.Designer.Controls.Add("forms.Label.1", "Label1", True)
  With L1
    .AutoSize = False
    .Caption = Msg
    .Left = 0
    .Top = 0
    .Width = 240
    .Height = 100
    .Name = "Label1"
    .Font.Bold = False
    .Font.Size = 10
  End With
  ShowUsf
  Msg = "Test"
  L1.Caption = Msg
  DoEvents
  Application.StatusBar = "xxx"
End Sub

La première valeur de Msg reste affichée.

05/11/2011, 20h18
patricktoulon

heu...

bonsoir

je constate que dans ta macro tu donne la valeur "test" a ton label

mais si tu veux le modifier dynamiquement pendant la macro

c'est dans la macro elle même tu met

Code:

non de l'userform.label1='ce que tu veux ici

au plaisir
05/11/2011, 21h14
SfJ5Rpw8

@Defluc :

que fait ta procédure :

Code:

ShowUsf

?

Comme je le disais, c'est du test «d'aprentissage».

Merci à patrick, cela fonctionne avec sa solution.
Voici le test des procédures expérimentées pour la création dynamique, la modification d'un composant et la destruction du formulaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim UsfObj As Object
Dim L1 As MSForms.Label
Dim Msg As String
Sub CreateUserForm()
Set UsfObj = ThisWorkbook.VBProject.VBComponents.Add(3)
  With UsfObj
    .Properties("Caption") = "Message d'attente"
    .Properties("Left") = 20
    .Properties("Top") = 20
    .Properties("Width") = 240
    .Properties("Height") = 100
  End With
  Msg = "Traitement en cours" & Chr(10) & "Veuillez patienter"
  Set L1 = UsfObj.Designer.Controls.Add("forms.Label.1", "Label1", True)
  With L1
    .AutoSize = False
    .Caption = Msg
    .Left = 0
    .Top = 0
    .Width = 240
    .Height = 100
    .Name = "Label1"
    .Font.Bold = False
    .Font.Size = 10
  End With
  ShowUsf
End Sub
Sub ShowUsf()
  UserForm1.Show vbModeless
End Sub
Sub DelUsf()
  With ThisWorkbook.VBProject.VBComponents
    .Remove .Item("Userform1")
  End With
End Sub
Sub TesText()
  Msg = "Test"
  UserForm1.Label1.Caption = Msg
End Sub