Discussion :

[mustang-ffw02]

Salut à tous,

Je voudrais savoir s'il est possible de se servir de la progress bar de la statusbar d'excel (la barre verte en bas à gauche quand on enregistre) pour afficher la progression d'un traitement.

Merci à tous pour vos réponses.

[mustang-ffw02]

personne ne sait?

[SfJ5Rpw8]

non ... à par le message dans statusbar ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.StatusBar ="Mon Message"
Application.StatusBar = false  'Liberation...

[SfJ5Rpw8]

tiens un petit jeu avec status bar :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function stRep(st As String, iNb As Integer)
  Dim i As Integer
  For i = 1 To iNb
  stRep = stRep & st
  Next
End Function
 
Sub TestStatusBAr()
 Dim i As Integer
 For i = 0 To 100
 
  Application.StatusBar = stRep(Chr(8), i) & stRep(Chr(7), 100 - i)
  Application.Wait Now + TimeValue("00:00:01")
   DoEvents
 Next
 Application.StatusBar = False
End Sub

[mustang-ffw02]

Bon ben je remonte une derniere fois le post...

[SilkyRoad]

bonjour

as tu testé la procedure proposé pas Bbil ?

ci joint un autre exemple

http://www.codehound.com/groups/thread.asp?t=1,226,2,10_GDXb7.14771$Va3.95117@NewsReader_226


cordialement
michel

[mustang-ffw02]

J'ai testé mais apparement c'est pour simulé une status bar (on inscrit des carrée dedans!)

Merci quand meme!