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