VBA - Excel . afficher un compteur

Fermé

Wire Less - 12 août 2009 à 09:48
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 - 12 août 2009 à 17:28

Bonjour, tous le monde.

J'ai un programme qui est asses long à s'exécuter, avec pleins de boucles qui mouline pleins de données.

Comme il est assés long, j'aurais aimé pouvoir utiliser un compteur.
J'ai cru comprendre que le mieux était d'utiliser un "userform". Ok, ça je sais faire.
Mon problème vient du ---- Application.ScreenUpdating = False ----- que j'utilise ( pour éviter de faire une crise d'épilepsie avec toutes les fenêtres qui clignotes!! )

Du coup je ne peux pas voir mon userform ce mettre à jour!

Est ce que quelqu'un à déjà rencontré ce genre de problème? Et surtout, est ce que quelqu'un à une solution ??

Merci

A voir également:

Compteur vba
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA
Compteur de contractions - Télécharger - Santé & Bien-être
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
12 août 2009 à 13:20

Bonjour,
Application.screenupdating ne s'applique pas aux userforms.
Pour ajouter le contrôle barre de progression, clic droit sur ds l'onglet Contrôles de la boite à outils puis contrôles supplémentaires et cocher le contrôle Microsoft ProgressBar Control x.x
Ensuite l'idée est d'incrémenter la valeur du progressbar de 1 à 100 par une boucle en fonction du pourcentage d'avancement de a macro( 'est là que ça peut être un peu délicat suivant ton code)

Wire Less
12 août 2009 à 15:13

Ailles ... Pourtant mon code est super simple !!

Sub Toto
For i = 1 to 1000
Moulinette_1
Moulinette_2
...
Next
End Sub

Je dois mettre un truc du genre
Private Sub ProgressBar1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
End Sub

Quelques part? C'est ça?

Discussions similaires

Créer un compteur sous excel en VBA

Compteur VBa excel

compteur de lignes VBA

Discussions similaires

Newsletters