Bonjour à tous,
Je cherche donc à optimiser la macro ci-dessous.
Pour faire simple j'ai une BDD de 100 000 lignes et 15 colonnes. En H j'ai soit 100 soit 200. Je cherche donc à supprimer tous les 100 de la BDD.
Pour l'instant la macro (récupérer sur le forum)est très très longue (quand elle ne fait pas planter l'ordinateur). Je cherche donc un moyen de l'optimiser pour la rendre productive (car à l'heure actuelle un tri manuel est plus rapide ).
A noter tout de même que en réalité le tri s'effectue sur plusieurs critères de plusieurs colonnes. C'est pour cela que je souhaiterais l'automatiser.
Merci d'avance
Je cherche donc à optimiser la macro ci-dessous.
Pour faire simple j'ai une BDD de 100 000 lignes et 15 colonnes. En H j'ai soit 100 soit 200. Je cherche donc à supprimer tous les 100 de la BDD.
Pour l'instant la macro (récupérer sur le forum)est très très longue (quand elle ne fait pas planter l'ordinateur). Je cherche donc un moyen de l'optimiser pour la rendre productive (car à l'heure actuelle un tri manuel est plus rapide ).
A noter tout de même que en réalité le tri s'effectue sur plusieurs critères de plusieurs colonnes. C'est pour cela que je souhaiterais l'automatiser.
Merci d'avance
Code:
Dim Ligne As Long
ActiveCell.SpecialCells(xlLastCell).Select 'dernière cellule Fichier
Range("H" & Selection.End(xlDown).Row).Select 'dernière cellule Excel colonne A
Ligne = Selection.End(xlUp).Row 'dernière ligne remplie en colonne A
For Ligne = Ligne To 1 Step -1
If Range("H" & Ligne).Value = 100 Then Rows(Ligne).Delete Shift:=xlUp
Next