Utiliser la progress bar d'excel (celle dans la status bar)

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.

personne ne sait?

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

Code:

---

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

---

tiens un petit jeu avec status bar :

Code:

---

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

---

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

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

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

Merci quand meme!