Discussion :

[[ZiP]]

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

[Minick]

Salut,

Apres chaque manipulation sur le usf Waiting essaie d'ajouter

Code :

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

Waiting.Repaint

Et pour la croix c'est faisable mais le plus simple est d'intercepter le click sur la croix et de l'annuler
en mettant ce code dans le code de l'usf Waiting

Code :

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

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

[[ZiP]]

Effectivement, ça marche correctement avec un "Repaint" après chaque modification du Label de mon UserForm !

L'astuce pour la croix fonctionne également !

Merci,
ZiP