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
