A voir également:
- Barre de progression vba
- Windows 11 barre des taches a gauche - Guide
- Barre de défilement - Guide
- Barré whatsapp - Guide
- S barré ✓ - Forum Word
- Barre verticale mac - Forum MacOS
8 réponses
Salut,
Sur la boîte à outiles ou dans le menu Outils / Contrôles supplementaires de VBA Editor tu as le côntrole Microsoft ProgressBar Control.
Mais tu peux programmer par toi même la barre de progression si tu veux.
Pour la 1ère question, tant qu'on peut créer une barre de progression, c'est bien possible.
Tu trouveras dans cette discussion des exemple
https://www.developpez.net/forums/d56817/logiciels/microsoft-office/general-vba/creer-barre-progression-sous-vba/
Sinon tu peux regarde ça pour t'inspirer
Sur la boîte à outiles ou dans le menu Outils / Contrôles supplementaires de VBA Editor tu as le côntrole Microsoft ProgressBar Control.
Mais tu peux programmer par toi même la barre de progression si tu veux.
Pour la 1ère question, tant qu'on peut créer une barre de progression, c'est bien possible.
Tu trouveras dans cette discussion des exemple
https://www.developpez.net/forums/d56817/logiciels/microsoft-office/general-vba/creer-barre-progression-sous-vba/
Sinon tu peux regarde ça pour t'inspirer
Leur barre de progression fonctionne toujours en boucle, quelque soit le site où je vais...
===> toujours le même code d'ailleurs
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
Cells.Clear
Counter = 1
RowMax = 200
ColMax = 10
For r = 1 To RowMax
For c = 1 To ColMax
Cells(r, c) = Int(Rnd * 1000)
Counter = Counter + 1
Next c
PctDone = Counter / (RowMax * ColMax)
Call UpdateProgress(PctDone)
Next r
Unload UserForm1
End Sub
Mais ce n'est pas ce que je recherches, je cherche juste à réaliser ceci :
1 - Cliquer Bouton.
2 - Affiche la barre de progression 10 secondes
3 - Commence la macro.
4 - La macro met à jour la valeur de la barre de progression à 5 secondes.
5 - Continue et Termine la macro.
6 - Affiche la barre de progression avec 0 secondes, "Opération terminée"
Tu vois le schéma ?
Sinon pour le "Controles complémentaires", je n'y es pas accès, c'est étrange bizarre, c'est le seul paramètre grisé....
===> toujours le même code d'ailleurs
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
Cells.Clear
Counter = 1
RowMax = 200
ColMax = 10
For r = 1 To RowMax
For c = 1 To ColMax
Cells(r, c) = Int(Rnd * 1000)
Counter = Counter + 1
Next c
PctDone = Counter / (RowMax * ColMax)
Call UpdateProgress(PctDone)
Next r
Unload UserForm1
End Sub
Mais ce n'est pas ce que je recherches, je cherche juste à réaliser ceci :
1 - Cliquer Bouton.
2 - Affiche la barre de progression 10 secondes
3 - Commence la macro.
4 - La macro met à jour la valeur de la barre de progression à 5 secondes.
5 - Continue et Termine la macro.
6 - Affiche la barre de progression avec 0 secondes, "Opération terminée"
Tu vois le schéma ?
Sinon pour le "Controles complémentaires", je n'y es pas accès, c'est étrange bizarre, c'est le seul paramètre grisé....
Salut,
quelque soit le site où je vais...
T'es sûr que tu as regardé partout?! ;-))
Voici un exemple qui pourra t'interesser
http://sn1.chez-alice.fr/presentation/progression.htm
quelque soit le site où je vais...
T'es sûr que tu as regardé partout?! ;-))
Voici un exemple qui pourra t'interesser
http://sn1.chez-alice.fr/presentation/progression.htm
C'est le premire site que j'avais trouvé =D
La barre est pas mal mais ne fonctionne pas avec ma macro :x
J'relis tout ça et j'te dis ça dans 2 min.
La barre est pas mal mais ne fonctionne pas avec ma macro :x
J'relis tout ça et j'te dis ça dans 2 min.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
C'est encore une système de boucle :x
" Pour une boucle de 10000 cyles le temps de calcul est de 7 secondes "
For ii = 1 To n
Call u_progress(ii / n, "patientez,", départ, pctj, 0.1)
Call progression("patientez", ii / n, départ, pcti, 1, 16)
Cells(ii).Value = "trois"
<= tout fonctionne la dessus
J'comprends pas trop où tu veux en venir ? =)
explicite
" Pour une boucle de 10000 cyles le temps de calcul est de 7 secondes "
For ii = 1 To n
Call u_progress(ii / n, "patientez,", départ, pctj, 0.1)
Call progression("patientez", ii / n, départ, pcti, 1, 16)
Cells(ii).Value = "trois"
<= tout fonctionne la dessus
J'comprends pas trop où tu veux en venir ? =)
explicite
J'ai réassayé avec son code, mais le soucis vient du fait que comme ce sont des boucles, lorsque je l'inclus ma macro dans le code, il execute ma macro et la termine pour ensuite finir par les mises à jour de ma barre de progression.
Re,
Voici un exemple qui s'approche de ta situation, mais il utilise le contrôle
https://codes-sources.commentcamarche.net/
Il utilise l'objet Timer
Voici un exemple qui s'approche de ta situation, mais il utilise le contrôle
https://codes-sources.commentcamarche.net/
Il utilise l'objet Timer
