Bonjour,

J'ai une grosse macro et j'affiche pendant celle-ci un UserForm d'attente cependant, celui-ci reste tout blanc...

Voici un extrait de mon code :
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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub Lignes_Cacher()
    Dim colonne, colonne_debut, colonne_fin, ligne, ligne_debut, ligne_fin As Integer
 
    'On affichage de la fenêtre d'attente
    Waiting.Show 0
 
    'Initialisation de la plage de cellules à parcourir
    ligne_debut = 26
    ligne_fin = 1064
    colonne = 4
 
    'On désactive l'affichage et le calcul
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
    Waiting.LStatut.Caption = "Traitement de l'onglet 'Général' en cours..."
 
    'On se positionne sur l'onglet "Général"
    Worksheets("Général").Activate
 
    [...]
 
    'On active l'affichage et le calcul
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
 
    'On cache la fenêtre d'attente
    Unload Waiting
End Sub
Peut-être est-ce à cause de mon ScreenUpdating à False ?
Si, c'est le cas, avez-vous une solution ?

Une autre petite question, est-il possible de ne pas afficher la croix de fermeture de la fenêtre sur le UserForm ?

Merci,
ZiP