ProgressBar encore pfff!

  • Initiateur de la discussion rudaye
  • Date de début
R

rudaye

Guest
Bonjour le forum!

Voila pendant l'exécution d'une macro, je voudrais qu'une progressbar se mette en marche et bien sur s'arrête à la fin de la macro mais je ne sais pas du tout comment cela fonctionne,


merci d'avance ;)
 
R

rudaye

Guest
Il y a bien la solution du statusbar qui m'intéresse mais je m'y perd!

peux tu m'aider car dans ce fichier je ne voudrais utiliser que la progressbar et j'ai du mal à retirer le code qui m'est inutile?


Si c'est possible merci
 
R

rudaye

Guest
j'arrive à faire apparaitre le userform avec la progressbar mais je n'arrive pas à gérer les pourcentages et le faite que la macro démarre après le statusbar!

[file name=StatusBarProgressBar.zip size=19321]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/StatusBarProgressBar.zip[/file]
 

Pièces jointes

  • StatusBarProgressBar.zip
    18.9 KB · Affichages: 41
R

rudaye

Guest
Ce qui se passe, c'est que je n'arrive pas à faire fonctionner indépedemment la progressbar du statusbar!

Moi je veux utiliser juste le statusbar mais je n'arrive pas à le faire fonctionner correctement

ça c'et mon bouton de lancement de la macro et en rouge le code de thierry
Private Sub CommandButton4_Click()
Sheets('Indicateurs_ADR').Activate
Unload Me
'MsgBox ('Calcul des indicateurs en cours ...')
StatusBar.StartUpPosition = 3
StatusBar.Show

Application.Run 'Indicateurs_ADR'
End Sub


et là c'est le code de thierry pour le statusbar:


Option Explicit
Sub StatusBarre()
' StatusBarre Macro
'@+Thierry sur www.excel-downloads.com

Dim OldStatusBar
Dim Total As Integer
Dim i As Integer, ii As Integer, iii As Integer, iiii As Integer
Total = 300

OldStatusBar = Application.DisplayStatusBar

For i = 1 To Total
For ii = 1 To 100
Range('A1').Select
Next ii
iii = i
If iii > 56 Then iii = 1
'With ActiveCell
'.Offset(i, 0).Interior.ColorIndex = iii
'.Value = i
'End With
'Application.StatusBar = 'PROGRESSION DE LA TACHE => ' _
'& Format(i / Total * 100, '##0.00') & '%'
Next i
Application.StatusBar = False
Application.DisplayStatusBar = OldStatusBar
End Sub


soit il me manque quelque chose et je n'ai pas bien compris le fonctionnement ou je sais pas?

merci
 

MichelXld

XLDnaute Barbatruc
rebonjour

tu peux tester cette adaptation (tu avais neutralisé trop de lignes )


Sub StatusBarreV02()
' StatusBarre Macro
'@+Thierry sur www.excel-downloads.com

Dim OldStatusBar
Dim Total As Integer
Dim i As Integer, ii As Integer, iii As Integer, iiii As Integer
Total = 300

OldStatusBar = Application.DisplayStatusBar

For i = 1 To Total
For ii = 1 To 100
Range('A1').Select
Next ii
iii = i
If iii > 56 Then iii = 1

Application.StatusBar = 'PROGRESSION DE LA TACHE => ' _
& Format(i / Total * 100, '##0.00') & '%'

Next i
Application.StatusBar = False
Application.DisplayStatusBar = OldStatusBar
End Sub


bonne soiree
MichelXld
 
R

rudaye

Guest
Je vais mettre un fichier en exemple ce sera plus simple.

Je ne vois pas comment faire partir le statusbar en même temps que la macro Indicateurs_ADR?

Merci

[file name=EssaisStatusBar1.zip size=48301]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EssaisStatusBar1.zip[/file]
 

Pièces jointes

  • EssaisStatusBar1.zip
    47.2 KB · Affichages: 22

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir Rudy, Michel, le Forum

Voilà ton fichier allégé de tout ce qui n'avait pas d'importance pour la ProgressBar...

Tes Array sur les Mois ne servent à rien dans le contexte que j'ai pu voir.

Bon Week End
[ol]@+Thierry[/ol] [file name=EssaisStatusBar_Corrected.zip size=19616]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EssaisStatusBar_Corrected.zip[/file]
 

Pièces jointes

  • EssaisStatusBar_Corrected.zip
    19.2 KB · Affichages: 52
R

rudaye

Guest
Salut Thierry et merci !!!

C'est dingue ce forum!! Tu demande de l'aide sur un statusbar et le mec en profite pour nettoyer ton code!!

C génial !!! :)

Vive ce forum d'utilité publique
GRAND Merci à vous deux et bonne soirée

;)
 
R

rudaye

Guest
Salut Thierry MichelXLD

Je viens d'adapter le code de Thierry au miens et en fin de compte si mes Array me servent !
C'est parce que je n'ai pas mis entièrement mon fichier car ce sont des données du boulot!

Je vais essayé de voir comment intégrer ta boucle pour le statusbar et mes array .

Mais un coup de main m'aiderais quand même!

MERCI

:)
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir Rudy, MIchel, le Forum

Dans le fichier que tu avais joint ici les Array sur les 12 Mois ne servaient strictement à rien....

D'où l'importance d'essayer de retranscrire dans le fichier exemple l'exactitude du programme et de son fonctionnement... Sinon c'est très facile de partir à coté des besoins réels... et de perdre du temps pour tout le monde...

Ceci dit je me souviens bien que tu indexais un 'i' dans la Boucle 'For Each M in Array('Janvier', 'Fevrier'..........)

Donc ce sera ce 'i' qui te servira pour incrémenter ta ProgressBar... Il faudra lui attribuer un Max aussi qui est mon 'Total' dans ma Démo...

Bon Courage
[ol]@+Thierry[/ol]