j'ai une longue procédure que je fais tourner, et je souhaite faire un
compteur à l'écran qui défile cependant,
si je jongle avec le screenupdating, la procédure est bcp plus longue.
Est-il possible de ne rafraichir que quelques cellules ? ou y a t il une
autre astuce ? toutes propositions sont les bienvenues.
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
Nicolas B.
Salut Amydale,
Tu peux afficher ton compteur dans la barre d'état. Pour modifier le texte de la barre d'état, c'est Application.StatusBar = "Coucou !"
Voici un exemple pour voir à quoi ça ressemble (remplace 10000 par 1000 si ton ordi est un peu poussif) :
Sub Remplir() Application.ScreenUpdating = False For i = 2 To 10000 Cells(i, 1) = Cells(i - 1, 1) + 1 Application.StatusBar = i Next Application.ScreenUpdating = True Application.StatusBar = False End Sub
A la fin de la macro n'oublie pas de remettre la barre d'état initiale avec Application.StatusBar = False.
"Amydale" <sebastien.tranchant(NOSPAM)@club-internet.fr> a écrit dans le message de news:%
Bonjour à tous,
j'ai une longue procédure que je fais tourner, et je souhaite faire un compteur à l'écran qui défile cependant,
si je jongle avec le screenupdating, la procédure est bcp plus longue. Est-il possible de ne rafraichir que quelques cellules ? ou y a t il une autre astuce ? toutes propositions sont les bienvenues.
merci bcp amydale
Salut Amydale,
Tu peux afficher ton compteur dans la barre d'état. Pour modifier le texte
de la barre d'état, c'est Application.StatusBar = "Coucou !"
Voici un exemple pour voir à quoi ça ressemble (remplace 10000 par 1000 si
ton ordi est un peu poussif) :
Sub Remplir()
Application.ScreenUpdating = False
For i = 2 To 10000
Cells(i, 1) = Cells(i - 1, 1) + 1
Application.StatusBar = i
Next
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
A la fin de la macro n'oublie pas de remettre la barre d'état initiale avec
Application.StatusBar = False.
"Amydale" <sebastien.tranchant(NOSPAM)@club-internet.fr> a écrit dans le
message de news:%23162h07oDHA.3024@tk2msftngp13.phx.gbl...
Bonjour à tous,
j'ai une longue procédure que je fais tourner, et je souhaite faire un
compteur à l'écran qui défile cependant,
si je jongle avec le screenupdating, la procédure est bcp plus longue.
Est-il possible de ne rafraichir que quelques cellules ? ou y a t il une
autre astuce ? toutes propositions sont les bienvenues.
Tu peux afficher ton compteur dans la barre d'état. Pour modifier le texte de la barre d'état, c'est Application.StatusBar = "Coucou !"
Voici un exemple pour voir à quoi ça ressemble (remplace 10000 par 1000 si ton ordi est un peu poussif) :
Sub Remplir() Application.ScreenUpdating = False For i = 2 To 10000 Cells(i, 1) = Cells(i - 1, 1) + 1 Application.StatusBar = i Next Application.ScreenUpdating = True Application.StatusBar = False End Sub
A la fin de la macro n'oublie pas de remettre la barre d'état initiale avec Application.StatusBar = False.
"Amydale" <sebastien.tranchant(NOSPAM)@club-internet.fr> a écrit dans le message de news:%
Bonjour à tous,
j'ai une longue procédure que je fais tourner, et je souhaite faire un compteur à l'écran qui défile cependant,
si je jongle avec le screenupdating, la procédure est bcp plus longue. Est-il possible de ne rafraichir que quelques cellules ? ou y a t il une autre astuce ? toutes propositions sont les bienvenues.
merci bcp amydale
Amydale
C'est une idée ! Que je note bien précieusement !! Mais ceci dit, je n'ai peur que les utilisateurs (qui ne sont pas familiarisés avec les ordinateurs) ne le remarque pas vraiment ....
Je garde quand meme ca, ca peut toujours servir ! mais si quelqu'un a une autre idée, ou sait comment rafraichir uniqement quelques cellules... merci bcp
"Nicolas B." a écrit dans le message de news:
Salut Amydale,
Tu peux afficher ton compteur dans la barre d'état. Pour modifier le texte de la barre d'état, c'est Application.StatusBar = "Coucou !"
Voici un exemple pour voir à quoi ça ressemble (remplace 10000 par 1000 si ton ordi est un peu poussif) :
Sub Remplir() Application.ScreenUpdating = False For i = 2 To 10000 Cells(i, 1) = Cells(i - 1, 1) + 1 Application.StatusBar = i Next Application.ScreenUpdating = True Application.StatusBar = False End Sub
A la fin de la macro n'oublie pas de remettre la barre d'état initiale avec
"Amydale" <sebastien.tranchant(NOSPAM)@club-internet.fr> a écrit dans le message de news:%
Bonjour à tous,
j'ai une longue procédure que je fais tourner, et je souhaite faire un compteur à l'écran qui défile cependant,
si je jongle avec le screenupdating, la procédure est bcp plus longue. Est-il possible de ne rafraichir que quelques cellules ? ou y a t il une autre astuce ? toutes propositions sont les bienvenues.
merci bcp amydale
C'est une idée ! Que je note bien précieusement !!
Mais ceci dit, je n'ai peur que les utilisateurs (qui ne sont pas
familiarisés avec les ordinateurs) ne le remarque pas vraiment ....
Je garde quand meme ca, ca peut toujours servir ! mais si quelqu'un a une
autre idée, ou sait comment rafraichir uniqement quelques cellules... merci
bcp
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news: OjIVr87oDHA.684@TK2MSFTNGP09.phx.gbl...
Salut Amydale,
Tu peux afficher ton compteur dans la barre d'état. Pour modifier le texte
de la barre d'état, c'est Application.StatusBar = "Coucou !"
Voici un exemple pour voir à quoi ça ressemble (remplace 10000 par 1000 si
ton ordi est un peu poussif) :
Sub Remplir()
Application.ScreenUpdating = False
For i = 2 To 10000
Cells(i, 1) = Cells(i - 1, 1) + 1
Application.StatusBar = i
Next
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
A la fin de la macro n'oublie pas de remettre la barre d'état initiale
avec
"Amydale" <sebastien.tranchant(NOSPAM)@club-internet.fr> a écrit dans le
message de news:%23162h07oDHA.3024@tk2msftngp13.phx.gbl...
Bonjour à tous,
j'ai une longue procédure que je fais tourner, et je souhaite faire un
compteur à l'écran qui défile cependant,
si je jongle avec le screenupdating, la procédure est bcp plus longue.
Est-il possible de ne rafraichir que quelques cellules ? ou y a t il une
autre astuce ? toutes propositions sont les bienvenues.
C'est une idée ! Que je note bien précieusement !! Mais ceci dit, je n'ai peur que les utilisateurs (qui ne sont pas familiarisés avec les ordinateurs) ne le remarque pas vraiment ....
Je garde quand meme ca, ca peut toujours servir ! mais si quelqu'un a une autre idée, ou sait comment rafraichir uniqement quelques cellules... merci bcp
"Nicolas B." a écrit dans le message de news:
Salut Amydale,
Tu peux afficher ton compteur dans la barre d'état. Pour modifier le texte de la barre d'état, c'est Application.StatusBar = "Coucou !"
Voici un exemple pour voir à quoi ça ressemble (remplace 10000 par 1000 si ton ordi est un peu poussif) :
Sub Remplir() Application.ScreenUpdating = False For i = 2 To 10000 Cells(i, 1) = Cells(i - 1, 1) + 1 Application.StatusBar = i Next Application.ScreenUpdating = True Application.StatusBar = False End Sub
A la fin de la macro n'oublie pas de remettre la barre d'état initiale avec
"Amydale" <sebastien.tranchant(NOSPAM)@club-internet.fr> a écrit dans le message de news:%
Bonjour à tous,
j'ai une longue procédure que je fais tourner, et je souhaite faire un compteur à l'écran qui défile cependant,
si je jongle avec le screenupdating, la procédure est bcp plus longue. Est-il possible de ne rafraichir que quelques cellules ? ou y a t il une autre astuce ? toutes propositions sont les bienvenues.
