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

Chris769375

XLDnaute Nouveau
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
 

Pièces jointes

  • Création d'une barre de progression suivant une macro.xlsm
    24.1 KB · Affichages: 10
Solution
Bonjour Chris,
Un essai en PJ avec :
VB:
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.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Chris,
Un essai en PJ avec :
VB:
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.
 

Pièces jointes

  • Création d'une barre de progression suivant une macro.xlsm
    67 KB · Affichages: 23

Discussions similaires