Diffultés intégration barre de progression

[Lex O'Mil]

Bonjour à tous les membres du forum,

J'aimerais pouvoir déclencher la barre de progression lors du click de la combobox2 (ROME), pour que la recherche et le rapatriement des données soit bel et bien refléter par la barre de progression.

Actuellement le fonctionnement de celle-ci est un peu factice.

Le problème est que maintenat mon fichier fait + de 50 mo et à l'usage, une fois atteint 100%, il faut attendre encore 10 s.


J'aimerai donc que la barre de progression reflète la réalité et je n'y arrive pas.

AU secours.

D'avance merci pour le coup de main

Lex

PS j'ai joint le fichier

 

[lacorse33]

Re : Diffultés intégration barre de progression

Bonjour Lex,

Lors du chargement de la forme UserForm1, il faut spécifier si le chargement de l'objet est modal ou pas.

Modal = demande intervention manuelle pour poursuivre l'exécution
Modeless = exécution sans intervention manuelle

Donc voici le code modifié :

Private Sub ComboBox2_Click()
On Error Resume Next
UserForm1.Show vbModeless

.....

End Sub​

A+

 

[Lex O'Mil]

Re : Diffultés intégration barre de progression

lacorse33,

Merci déjà pour ta réponse, mais je pense que je me suis mal fait comprendre en faite dans mon code la barre de progression se déclenche avant l'action de tri des données et ne tient donc pas compte du processus.

Cela entraine le fait que pour une base de 50Mo la barre arrive très vite à 100% puis le traitement des données se fait (donc j'attend + de 10 s dans mon cas pour 50 Mo) et ensuite la barre disparaît donc ma barre de progression ne tient pas compte de la réelle progression du traitement.

Merci car cela fait 4 jours que je suis dessus 😕

 

[lacorse33]

Re : Diffultés intégration barre de progression

Re,

J'ai adapté le code dans CommandButton2_click.

A+