EXCEL VBA - Créer une barre de progression

Bonjour tout le monde,

Je cherche à réaliser une progressbar à insérer dans une boucle de suppression de lignes sur plusieurs feuilles (je cherche à supprimer les lignes présentant une erreur dans la plage G à L sur toutes les feuilles, j'ai simplifié le fichier exemple, en réalité j'ai une 30aine de feuilles dans mon classseur). J'ai trouvé des exemples de progressbar sur le forum et je les ai adaptés à mon cas.
La progressbar s'affiche et défile normalement mais la fin coince et j'ai un message d'erreur :

Citation:

---

Erreur d’exécution ‘5’ Argument ou appel de procédure incorrect.

---

L'erreur concerne ce bout de code :

Code:

---

.LabelProgress.BackColor = RGB(0, PctColor / 3, PctColor)

---

Je n'arrive pas à déterminer le nombre max de lignes à supprimer. J'ai mis 8000au hasard. Je pense que le problème vient de là.

Quelqu'un aurait-il une idée ?

Merci d'avance à tous pour vos idées.

Sans ouvrir ton fichier, teste déjà en remplaçant PctColor / 3 par
Int(PctColor / 3)
Bonne journée

Bonsoir,

J'ai testé la solution proposée. En plus, j'ai rajouté quelques tests en colonne Z pour identifier les cellules présentant une erreur. Sur la dernière feuille, j'ai une cellule en S1 qui reprend le total des cellules à traiter du classeur que j'ai placé dans le code. Désormais, la macro se termine normalement au bout de 4essais. Lors des premiers essais, la barre de progression n'évolue plus à compter de 90-92%. Elle se fige à ce niveau d'avancement et disparaît à la fin de la macro. C'est après avoir lancé 4 à 5 fois le fichier que la barre termine sa course normalement à 100%. Bizarre le truc??

Merci d'avance à ceux qui aurait le temps de jeter un coup d'oeil. Je bloque actuellement dessus.

bonjour

j'ai testé et ça fonctionne très bien.
Pour vérifier que ta barre affiche bien les 100% ajoute temporairement un stop dans la sub "Main". Ainsi en consultant la feuille, tu auras une vision figée de la barre d'avancement.

Code:

---

1 2 3 4 5 6 7 8 9

Next r Call UpdateProgress(1) Stop Unload UserForm1 Application.ScreenUpdating = True End Sub

---

à plus

@ babacool: Pas utile de déposer tant de fichiers sur le serveur. Il y a déjà une source sur DVP. Si ce n'est pas la même référence que celle qui t'a inspirée, tu la mentionne. Et ce serait plus utile que tu mettes le code qui te pose problème.

zaza pas contente.

Bonsoir,

Le Pierre, c'est très curieux, chez moi la barre de progression s'arrête à 73% aujourd'hui. Au bout de deux lancements, les 100% s'affichent correctement.
Je ne comprends pas le pb. Je voulais tester une barre de progression car ç'est rigolo et esthétique, cela n'est pas concluant pour un début.

Zaza, je comprends ta remarque mais je n'avais pas l'intention de flooder le forum et il me semble qu'un exemple est toujours plus parlant lorsqu'on demande de l'aide. Sur d'autres forums, certains demandent systématiquement de joindre un fichier pour bien comprendre. Chaque forum ses codes de conduite. J'ai bien saisi le vôtre.
PS : mon fichier exemple n'est pas le même que celui de ton lien.

@+

Un exemple, oui! pas tout le fichier!

Bonjour le forum,

Zaza, sans vouloir polémiquer et loin de moi cette intention, c'est bien un fichier exemple que j'ai posté et non pas le fichier entier qui comporte plus de 30 onglets et pèse quelques mo.

Merci à ceux qui ont apporté leur aide. Je vais m'essayer à d'autres tests de barre de progression.

@+

Bonjour,

Ya celle-ci éventuellement, sans passer par un UserForm