XL 2019 Création d'une barre de progression suivant une macro

[Chris769375]

Bonjour le forum,

Voilà, j'ai commencé une barre de progression sur la macro à l'aide des différents messages du forum, mais là je ne sais plus faire,
l'idéal, je pense serait de se baser sur la quantité de OUI de la colonne A

Merci par avance pour toute aide

 

[sylvanu]

Bonjour Chris,
Un essai en PJ avec :

Sub SupLigneOui()
   Application.ScreenUpdating = False
   NbOui = Application.CountIf([A1:A65000], "OUI")
   If NbOui = 0 Then Exit Sub
   NbEffacés = 0
   barreProgression.afficher
   For i = [A65000].End(xlUp).Row To 1 Step -1
        If Cells(i, 1) = "OUI" Then
            Rows(i).Delete
            NbEffacés = NbEffacés + 1
        End If
      barreProgression.SupLigneOui CInt(100 * NbEffacés / NbOui) 'ici c'est clair que ça marche!
   Next
End Sub

J'ai augmenté le nombre de lignes pour que le userform soit plus visuel.
Le bouton Copier n'est là que pour le test, il rapatrie les données en Feuil1.

 

[Chris769375]

Fonctionne sur bien et avec une pointe d'humour, excellent
Merci