XL 2013 Barre de progression qui fonctionne pas

[degards]

Bonjour à vous tous, j'aurais besoin d'un petit coup de main concernant une barre de progression que j'ai codé. Lorsque j'exécute mon code "
Sub tri_date() " pas à pas, elle fonctionne très bien. Lorsque j'exécute mon code d'un coup, je la vois apparaître correctement mais il n'y a pas de progression et à la fin elle disparaît. Tout se trouve dans le module 2 de mon fichier ainsi que dans le Userform "Statusbar". Est-ce que quelqu'un pourrait m'éclairer un peu sur mon problème ? Et si cela vous le dit, jetez un œil sur tout mon projet, c'est le premier que je réalise de cet envergure et j'en suis très fier.

Merci à l'avances

Degards

 

[fanch55]

Bonjour,
rafraichir le statusbar dans la sub

Sub RunStatusBar(row As Integer, total As Integer)
    With StatusBar
        .Bar.Width = 348 * (row / total)
        .Frame.Caption = Round((row / total) * 100, 0) & "% Complete"
        .Repaint  '<------ rafraichir
    End With
End Sub

Nota: le codage des filtres est plus restrictif dans Xl2019 : pas de criteria2 possible sans un criteria1.
J'ai changé les criteria2 "solitaires" en criteria1 .
Sinon, c'est propre au premier survol , continuez ...

 

[degards]

Bonjour,
rafraichir le statusbar dans la sub

Sub RunStatusBar(row As Integer, total As Integer)
    With StatusBar
        .Bar.Width = 348 * (row / total)
        .Frame.Caption = Round((row / total) * 100, 0) & "% Complete"
        .Repaint  '<------ rafraichir
    End With
End Sub

Nota: le codage des filtres est plus restrictif dans Xl2019 : pas de criteria2 possible sans un criteria1.
J'ai changé les criteria2 "solitaires" en criteria1 .
Sinon, c'est propre au premier survol , continuez ...

Merci beaucoup pour ce petit coup de main et des conseils. Il s’agit de mon premier projet compliqué que je complète alors de savoir que c’est propre provenant de quelqu’un qui semble très bien s’y connaître c’est très apprécié.

Merci encore !!!!