Affichage d'une TextBox au sein d'une boucle

[Hugues]

Bonjour Le Forum,

J'ai un souci de code. Je souhaiterais afficher une textbox au sein d'une boucle afin de visualiser le déroulement d'une procédure et la faire disparaître à l'issu.
La textbox s'appelle = TextBox_deroul_procédure

Sub déroule()
Dim ws1 As Worksheet

Dim a As Integer
Dim b As Integer



Set ws1 = Sheets("Menu")
With ws1

For a = 1 To 10000
TextBox_deroul_procédure.Visible = True
TextBox_deroul_procédure.Tex = "Procédure en cours"
Next a
TextBox_deroul_procédure.Visible = False
End With
End Sub


Pouvez vous m'aider ?

Merci par avance,

Hugues

 

[Hugues]

Re : Affichage d'une TextBox au sein d'une boucle

Merci Jean Marcel pour l'aide
J'ai retenu l'idée de la text box

Je souhaiterais une amélioration : utiliser la même text box mais modifier le texte en fonction du déroulement de la procédure.
Je profite d'avoir deux boucles dans mon projet ; appliquer à ton exemple pour la première la textbox me dit bonjour et pour la deuxieme la text box me dit Bonsoir
Le souci : le texte ne se modifie pas
Merci par avance pour l'aide

Hugues

 

[tototiti2008]

Re : Affichage d'une TextBox au sein d'une boucle

Bonjour Hugues, Bonjour Jean-Marcel,

Peut-être

Sub déroule()
Dim ws1 As Worksheet
Dim a As Long
Set ws1 = Sheets("Menu")
    
    Sheets("Menu").TextBox1.Visible = True
    Sheets("Menu").TextBox1.Text = "Bonjour"
    For a = 1 To 100000
        DoEvents
    Next a
    Sheets("Menu").TextBox1.Text = "Bonsoir"
    For a = 1 To 100000
        DoEvents
    Next a
    Sheets("Menu").TextBox1.Visible = False

End Sub

ça ralentit un peu les boucles...

 

[Hugues]

Re : Affichage d'une TextBox au sein d'une boucle

Merci à vous.

Hugues