XL 2013 Barre de progression qui fonctionne pas

degards · 12 Janvier 2022

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 · 19 Janvier 2022

Bonjour,
rafraichir le statusbar dans la sub

VB:

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 · 19 Janvier 2022

fanch55 à dit:
Bonjour,
rafraichir le statusbar dans la sub

VB:

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 !!!!

XL 2013 Barre de progression qui fonctionne pas

degards

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

degards

XLDnaute Occasionnel

Discussions similaires