Discussion :

[Golork]

Bonjour, je trouvé pas mal de sources pour utiliser un UserForm et y afficher un message voir encore mieux une barre de progression, mais voilà je rencontre toujours le même problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
ecranChargement.show
Call proc_modification()
ecranChargement.hide
'ou bien 
ecranChargement.ufClose()
 
' ce code se trouve dans la partie code de ma UserForm !
sub ufClose()
    Unload Me
end sub

Ce que je voulais bien sûr c'est un écran de chargement pour montrer à l'utilisateur qu'il se passe quelque chose plutôt qu'il pense qu'Excel à planté.

Mais voilà pour pouvoir passer à la 2ème instruction (et donc "Call proc_modification()") dans le code ci-dessus, il faut fermer la UserForm "ecranChargement" ! De plus j'ai l'impression qu'un processus s'effectue toujours si l'ont fait un UserForm.Hide !

Merci pour vos éclaircissement.

[AlainTech]

Mets ton appel à la procédure proc_modification() dans l'événement Activate du UserForm ecranChargement.

[Golork]

Ca ne marche pas en mettant la procédure "proc_modification" dans l'événement Activate du UserForm !

Complément d'information : j'ai décidé d'utiliser une TextBox (pour la compatibilité) avec une incrémentation de ce caractère "|" à chaque itération.
Ce que je voulais faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' Dans la UserForm
Private Sub UserForm_Activate()
    TextBox1.Text = ""
    flagLoading = False
    Call proc_modification
 
    Do While (flagLoading = False)
        TextBox1.Text = TextBox1.Text & "|"
        If (Len(TextBox1.Text) >= 68) Then
            TextBox1.Text = ""
        End If
    Loop
    Unload Me
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
' Dans un module
Public flagLoading As Boolean
 
Public Sub proc_modification()
    ' Début traitement
    '....
    ' Fin traitement
    flagLoading = True
End Sub

[AlainTech]

Bonjour,

Ta boucle de "patience"

Code :

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

1
2
3
4
5
6
   Do While (flagLoading = False)
        TextBox1.Text = TextBox1.Text & "|"
        If (Len(TextBox1.Text) >= 68) Then
            TextBox1.Text = ""
        End If
    Loop

doit se trouver dans ta procédure proc_modification().
Mais attention, pas sous forme de boucle autonome mais les instructions qu'elle contient doivent se trouver dans la boucle principale de ton traitement.
Ne pas oublier de préfixer le nom de la TextBox du nom de l'UserForm.
Un Repaint et un DoEvents après les modifications dans l'UserForm sont une bonne idée...

[Golork]

Au contraire, si tu lit bien mon code je souhaite en faire une boucle autonome car je trouve cela très sale de mettre des "TextBox1.Text = TextBox1.Text & "|" " à plusieurs endroit de mon code !

Ce que je veux c'est
1- une UF se lance avant la procédure "proc_modification()", avec un textbox qui fera office de barre de progression.

2- la procédure "proc_modification()" est lancée et la progression s'effectue sous forme d'une boucle sans fin qui s'arrête si la procédure "proc_modification()" a défini le flag "flagLoading" (variable public) à "True".

3- enfin la UF se ferme avec le "Unload Me".

[patricktoulon]

bonjour a tous

si j'ai bien compris il y a deux userform un pour la sorte de progress bar
et l'autre je ne sais pourquoi

déjà tes deux userform tu les met a"nom userfom.show 0"

ensuite dans ta boucle qui fait grimper ta pseudo progressbar
met le nom de l'userform devant les textbox=textbox&"blablabla

puisque tu utilise un variable booleenne je suppose que tu a une boucle infini jusqu'à temp que la variable revienne a false

donc tu ne peu plus rien faire d'autre
la solution!!!!
le "doevents dans ta boucle

cela ralenti un peu la boucle lorsque tu fait autre chose mais c'est la seule solution


au plaisir