Discussion :

[Debutant10]

Bonjour j'ai une macro qui fonctionne très bien (mises à jour ajout de colonnes ect..), mais cependant le pb se trouve au niveau de l'affichage.

Car pas très jolie de voir ajout de colonnes de page ect... pas très jolie à voir, J'aimerais durant cette mise à jour avoir une sorte de pop-up pour masquer les mises à jour (voir seulement la page de garde avec un petit message durant la procédure de la macro).

Comment puis-je faire ?

[tedo01]

Bonjour,
Pour masquer les actions dans la feuille à l'utilisateur il faut utiliser la commande

Code :

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

Application.ScreenUpdating = False

en début de traitement, et

Code :

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

Application.ScreenUpdating = True

à la fin. En plus, les traitements sont beaucoup plus rapide si on désactive la mise à jour de cette manière.

Pour compléter avec un message d'information en bas de la fenêtre dans la barre de status, on peut ajouter

Code :

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

Application.StatusBar = "Mon message"

[Debutant10]

merci pour l'info mais cela doit être ajouté dans le script ? j'ai besoin de plus de précision pour l'installer.

1-/ où ça ?

Code :

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

Application.ScreenUpdating = False

2-/où ça ?

Code :

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

Application.ScreenUpdating = True

3-/où ça ?

Code :

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

Application.StatusBar = "Mon message"

merci de votre aide

[nchal]

Bonjour Debutant10, bonjour tedo01

Je me permet de compléter ta réponse.

Comme tu l'a surement compris le

Code :

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

Application.ScreenUpdating = False

empêche la mise a jour de l'écran, ce qui evite le clignotement et surtout qui accelère l'exécution d'une macro de façon impressionnante.
Il faut donc que tu mette ce petit bout de code au debut de ton script.

Il faut également savoir que le End Sub met par defaut le Application.ScreenUpdating à True. Donc si tu n'as pas besoin de refresh ton ecran avant la fin de ton script tu n'as pas besoin de cette commande.

Je ne connait pas

Code :

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

Application.StatusBar = "Mon message"

donc je laisse tedo01 expliquer plus en détail. Je pense cependant qu'une recherche sur l'Internet peut répondre à ta question.

[Debutant10]

J 'ai essayé mais cela ne fonctionne pas

Y-a-t-il un exemple simple ?

merci pour votre aide

[nchal]

Salut,

Voici un code tout simple. Essaie avec le ScreenUpdating à True et essaie avec le ScreenUpdating à False. Je pense que je ne peux pas faire plus Explicit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Debutant10()
Application.ScreenUpdating = False
Dim k As Long
k = 0
For i = 1 To 50 Step 1
    For j = 1 To 100 Step 1
        Cells(i, j) = k * k
        k = k + 1
    Next
Next
End Sub