Discussion :

[defluc]

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

[Jean-Pierre49]

Bonjour

as tu essayer

Code :

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

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

Moi j'utilise aussi

Code :

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

Application.StatusBar = "XXXX"

Tu dis

bon courage

[defluc]

Rien n'a d'effet

Voici la source de test

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
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.

[patricktoulon]

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 :

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

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

au plaisir

[SfJ5Rpw8]

@Defluc :

que fait ta procédure :

Code :

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

ShowUsf

?

[defluc]

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 :

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
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