Barre de progression sur un nombre de lignes variable

Bonjour à tous,

Je désire placer une barre de progression comme celle proposée dans le fichier : Coskippy Barre de progression V001.xlsm à l'adresse https://forum.excel-pratique.com/download/file.php?id=49832

Mais mon problème est que je ne sais pas comment l'adapter à ma macro, comment l'intégrer.

Cette macro se répète sur chaque ligne de mon fichier (le nombre de lignes est variable suivant les données récupérer (jusque 15000 lignes))Comment indiquer à "UserForm_demo" la Progression ?

Ma macro:

Sub test()

Application.ScreenUpdating = False

Dim Vitesse = 4 'critère pour la suppression des lignes

Columns(5).Find("*", , , , , xlPrevious).Offset(0, 0).Select 'atteindre la dernière cellule de la colonne E

derniereligne = ActiveCell.Row ' n° de dernière ligne variable suivant le fichier ou nombre de lignes à traiter

derL = derniereligne

For N = derL To 2 Step -1

If Range("E" & N).Value >= Vitesse Then

End If

If Range("E" & N).Value < Vitesse Then Rows(N).Delete

Next

End sub

Merci d'avance et bonne journée

Régis

Bonjour,

Proposition en PJ.

Bonjour Oyobrans,

Merci beaucoup, c'est exactement ce que je voulais.

Encore merci

Cordialement Régis

Rechercher des sujets similaires à "barre progression nombre lignes variable"