VBA Excel : Dysfonction UserForm après 6 sec.

Bonjour,

J'utilise un formulaire non modal (fStatus) avec un intitulé (lblStatus) pour afficher la progression de l'exploration par macro d'un gros classeur Excel (170 pages d'environ 50 lignes et 30 colonnes).

Environ 6 secondes après avoir lancé la macro, le formulaire cesse d'être actualisé (à l'écran) alors que la macro continue normalement. A ce moment la, le curseur sablier est remplacé par le curseur normal et parfois le formulaire s'efface et son emplacement est tout blanc

J'ai ajouté un BlockInput pour éviter toute interaction de l'utilisateur pendant l'execution de la macro (avant, le clic droit provoquait le même phénomène).

Voici le code (très simplifié) :

Option Explicit
Option Private Module

Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long

Public Sub Test()
  
  Dim frmStatus As fStatus
  Dim wsh As Excel.Worksheet
  Dim wbkCible As Excel.Workbook
  Dim cell As Excel.Range
  Dim ctr As Long
  
  Application.Calculation = xlCalculationManual
  Application.Cursor = xlWait
  Application.ScreenUpdating = False
  
  Set wbkCible = Application.ActiveWorkbook
  Set frmStatus = New fStatus
  frmStatus.Show
  BlockInput 1
  
  For Each wsh In wbkCible.Worksheets
    wsh.Select
    frmStatus.lblStatus.Caption = wsh.Name
    frmStatus.Repaint
    For Each cell In wsh.UsedRange
      cell.Select
`      For ctr = 1 To 2000: Next
    Next cell
  Next wsh
  
  Application.ScreenUpdating = True
  Application.Cursor = xlDefault
  Application.Calculation = xlCalculationAutomatic
  
  frmStatus.Hide
  Unload frmStatus
  Set frmStatus = Nothing
  BlockInput 0


End Sub

Différentes valeurs de la boucle

`      For ctr = 1 To 2000: Next

m'ont permis de vérifier que le problème survient toujours après un délai d'environ 6 secondes.

Quelqu'un a-t-il une idée de ce qui se passe ?