[Catégorie modifiée .Net -> VBA] ProgressBar sue Excel VBA 2003 [Résolu]

Messages postés
21
Date d'inscription
jeudi 21 avril 2011
Dernière intervention
25 octobre 2014
- - Dernière réponse : snekkar
Messages postés
21
Date d'inscription
jeudi 21 avril 2011
Dernière intervention
25 octobre 2014
- 19 févr. 2013 à 11:03
Bonjour,

Je suis débutant en VBA, et je tente de créer une petite application pour une association dont je m'occupe. J'ai crée une progressbar sur un UserForm en m'inspirant de ce que je trouvais sur les forums. Cette progressbar est censée faire patienter l'utilisateur, le temps que les données saisies soient reportées sur une feuille excel et que les calculs soient effectués.

N'ayant trouvé sur les forums que des progress bar avec des compteurs, j'essaie d'adapter le code mais n'y parviens pas.

Je suis vraiment très nul, mais j'essaie de progresser. Pourriez vous m'expliquer ce qui ne fonctionne pas dans mon code.

Merci

Le code que j'utilise est le suivant:

Private Sub Cmd17_Click()

Application.ScreenUpdating = False

progression = 0

Application.CalculateFullRebuild

For ligne = 1 To 10000
For col = 1 To 25

compteur = compteur + 1

If compteur Mod 2500 = 0 Then
progression = progression + 1
Image_barre.Width = progression * 1.5
Label_barre.Caption = progression & "%"
DoEvents

End If
Next
Next

Application.ScreenUpdating = True

End Sub
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
3
Merci
Bonjour,
nous te serions reconnaissant de veiller à ouvrir tes discussions VBA dans la rubrique adéquate : [u]Langages dérivés > VBA
/u
VBA n'est ni du VB.Net, ni du VB6.
Le code montré ne peut que fonctionner, pour autant que tu aies bien sur ton Userform une image un label et un bouton de commande avec ces noms-là.
Il fonctionnera toutefois au click de ton bouton et ira à la vitesse grand V (aussi vite que l'éclair)puisque le seul traitement montré par ton code est le simple parcours de tes cellules !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Merci ucfoutu 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
3
Merci
Je viens d'ailleurs (ce n'était pas nécessaire, mais bon ...) de le tester. Il fonctionne bien.
Il constate à la perfection la progression que tu traites : celle du seul parcours de tes cellules.
Et il va à la vitesse prévue : celle d'un éclair.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Merci ucfoutu 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
21
Date d'inscription
jeudi 21 avril 2011
Dernière intervention
25 octobre 2014
3
Merci
Je te remercie Ucfoutu pour ta réponse très rapide, et excuse moi pour le choix de la mauvaise rubrique.
Avant que j'intègre le code, le bouton de validation sur lequel je cliquais pour transférer les données d'une feuille vers une autre feuille du dossier actif reprenait sa position initiale au bout de seulement 10 secondes ce qui laissait à l'utilisateur le temps de cliquer une deuxième fois et donc de saisir une deuxième ligne sur la base de données.
Je ne sais pas comment éviter une double saisie, et je pensais que les formules excel de la deuxième feuille (de type SOMMEPROD) ralentissaient le traitement et les calculs.
Apparemment tout semble fonctionner ce matin.
Merci encore.

Merci snekkar 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de snekkar

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.