Salut,
Je souhaiterai savoir comment construire une barre de progression pendant le
déroulement d´une macro.
J´ai cherché partout et voilá ce que j´ai trouvé:
Sub StatusBarTest()
Application.ScreenUpdating = False
SBText = "Processing "
For r = 1 To 2000
If r Mod 50 = 0 Then
SBText = SBText & Chr(1)
Application.StatusBar = SBText
End If
For c = 1 To 20
Cells(r, c) = Int(Rnd() * 100)
Next c
Next r
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
Ce code est fourni par John Walkenbach sur
http://www.excelabo.net/xl/barres.php#progressionajustée.
Mon problème c´est que ça me fait remplir toute la feuille avec des
chiffres, et c´est vraiment pas ça que je veux.
J´aimerai bien savoir comment enlever tous les chiffres qui aparraisent sur
la feuille....
Merci bien
A plus...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Il y a d'autres exemples de barres de progression notamment ici http://www.excelabo.net/xl/barres.php
mais si tu veux tu peux modifier comme ceci :
Sub StatusBarTest() Application.ScreenUpdating = False SBText = "Processing " Dim nf As Worksheet Set nf = ThisWorkbook.Sheets.Add nf.Visible = xlSheetHidden For r = 1 To 2000 If r Mod 50 = 0 Then SBText = SBText & Chr(1) Application.StatusBar = SBText End If For c = 1 To 20 nf.Cells(r, c) = Int(Rnd() * 100) Next c Next r Application.StatusBar = False Application.DisplayAlerts = False nf.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Cordialement Pascal
"José Carapito" a écrit dans le message de news:
Salut, Je souhaiterai savoir comment construire une barre de progression pendant le déroulement d´une macro. J´ai cherché partout et voilá ce que j´ai trouvé:
Sub StatusBarTest()
Application.ScreenUpdating = False SBText = "Processing " For r = 1 To 2000 If r Mod 50 = 0 Then SBText = SBText & Chr(1) Application.StatusBar = SBText End If For c = 1 To 20 Cells(r, c) = Int(Rnd() * 100) Next c Next r Application.StatusBar = False Application.ScreenUpdating = True End Sub
Ce code est fourni par John Walkenbach sur http://www.excelabo.net/xl/barres.php#progressionajustée.
Mon problème c´est que ça me fait remplir toute la feuille avec des chiffres, et c´est vraiment pas ça que je veux. J´aimerai bien savoir comment enlever tous les chiffres qui aparraisent sur la feuille.... Merci bien A plus...
Bonjour
Il y a d'autres exemples de barres de progression notamment ici
http://www.excelabo.net/xl/barres.php
mais si tu veux tu peux modifier comme ceci :
Sub StatusBarTest()
Application.ScreenUpdating = False
SBText = "Processing "
Dim nf As Worksheet
Set nf = ThisWorkbook.Sheets.Add
nf.Visible = xlSheetHidden
For r = 1 To 2000
If r Mod 50 = 0 Then
SBText = SBText & Chr(1)
Application.StatusBar = SBText
End If
For c = 1 To 20
nf.Cells(r, c) = Int(Rnd() * 100)
Next c
Next r
Application.StatusBar = False
Application.DisplayAlerts = False
nf.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Cordialement
Pascal
"José Carapito" <JosCarapito@discussions.microsoft.com> a écrit dans le
message de news: 9D335351-35A8-46D6-B4FC-4AFC589FD0B2@microsoft.com...
Salut,
Je souhaiterai savoir comment construire une barre de progression pendant
le
déroulement d´une macro.
J´ai cherché partout et voilá ce que j´ai trouvé:
Sub StatusBarTest()
Application.ScreenUpdating = False
SBText = "Processing "
For r = 1 To 2000
If r Mod 50 = 0 Then
SBText = SBText & Chr(1)
Application.StatusBar = SBText
End If
For c = 1 To 20
Cells(r, c) = Int(Rnd() * 100)
Next c
Next r
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
Ce code est fourni par John Walkenbach sur
http://www.excelabo.net/xl/barres.php#progressionajustée.
Mon problème c´est que ça me fait remplir toute la feuille avec des
chiffres, et c´est vraiment pas ça que je veux.
J´aimerai bien savoir comment enlever tous les chiffres qui aparraisent
sur
la feuille....
Merci bien
A plus...
Bonjour Il y a d'autres exemples de barres de progression notamment ici http://www.excelabo.net/xl/barres.php
mais si tu veux tu peux modifier comme ceci :
Sub StatusBarTest() Application.ScreenUpdating = False SBText = "Processing " Dim nf As Worksheet Set nf = ThisWorkbook.Sheets.Add nf.Visible = xlSheetHidden For r = 1 To 2000 If r Mod 50 = 0 Then SBText = SBText & Chr(1) Application.StatusBar = SBText End If For c = 1 To 20 nf.Cells(r, c) = Int(Rnd() * 100) Next c Next r Application.StatusBar = False Application.DisplayAlerts = False nf.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Cordialement Pascal
"José Carapito" a écrit dans le message de news:
Salut, Je souhaiterai savoir comment construire une barre de progression pendant le déroulement d´une macro. J´ai cherché partout et voilá ce que j´ai trouvé:
Sub StatusBarTest()
Application.ScreenUpdating = False SBText = "Processing " For r = 1 To 2000 If r Mod 50 = 0 Then SBText = SBText & Chr(1) Application.StatusBar = SBText End If For c = 1 To 20 Cells(r, c) = Int(Rnd() * 100) Next c Next r Application.StatusBar = False Application.ScreenUpdating = True End Sub
Ce code est fourni par John Walkenbach sur http://www.excelabo.net/xl/barres.php#progressionajustée.
Mon problème c´est que ça me fait remplir toute la feuille avec des chiffres, et c´est vraiment pas ça que je veux. J´aimerai bien savoir comment enlever tous les chiffres qui aparraisent sur la feuille.... Merci bien A plus...
