Bonjour,

Je vous expose mon soucis :
J'ai un classeur xls qui doit se mettre à jour dès son ouverture avec le code suivant :
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
Private Sub Workbook_Open()
    If variable.Cells(1, 10) < Month(Now()) Then
        majauto.Show
        majauto.etat.Caption = "initialisation"
        majauto.ProgressBar1.Value = 0
        For i = 1 To numerosaff.Cells(Rows.Count, 13).End(xlUp).Row
            majauto.etat.Caption = "incrémentation paiement client"
            If StrComp(numerosaff.Cells(i, 13), "R") = 0 Then
                numerosaff.Cells(i, 16) = numerosaff.Cells(i, 16) + 1
            End If
            majauto.ProgressBar1.Value = (i / numerosaff.Cells(Rows.Count, 13).End(xlUp).Row) * 100
        Next
        majauto.Hide
        variable.Cells(1, 10) = variable.Cells(1, 10) + 1
    End If
    menu.Show
End Sub
Pour faire patienter j'utilise un userform (majauto) qui contient un label (etat) et une progressbar.

mon soucis est que le code semble se bloque à
Code : Sélectionner tout - Visualiser dans une fenêtre à part
majauto.etat.Caption = "initialisation"
, je n'ai que la fenêtre "majauto" qui s'affiche et rien ne se passe ensuite.

Où est le problème ???