XL 2016 Supprimer Lignes

guellila à dit:

Bonjour
votre support svp , j'ai un fichier ou je veux supprimer toutes les ligne contenant les valeurs (100 , 1000 , 2000 et - ) dans la colonne F avec une macro VBA , juste le petit soucis que le fichier original contiens plus de 900000 lignes et j'aimerais bien que la macro exécute cette opération dans une duré qui ne dépasse pas une minute si possible

cdt

Cliquez pour agrandir...

Option Explicit

Option Base 0
' Test plus court
Sub test1()
Dim Montab As Variant, cmpt1 As Long, cmpt2 As Long, MacroDebut
'On Error GoTo Erreur
MacroDebut = Now
Montab = Range("A1:J65000").Value
For cmpt1 = LBound(Montab, 1) To UBound(Montab, 1)
For cmpt2 = LBound(Montab, 2) To UBound(Montab, 2)
Montab(cmpt1, cmpt2) = Montab(cmpt1, cmpt2) * 2 + 3
Next cmpt2
Next cmpt1
Range("A1:J65000").Value = Montab
MsgBox "Durée d'exécution: " & Format(Now - MacroDebut, "hh:mm:ss") '00:00:03
'Erreur:
'MsgBox "Une erreur est survenue..."
End Sub

sylvanu à dit:

Bonjour Guellila,
Un essai en PJ.
J'utilise de façon temporaire la colonne I. Si elle est occupée dans votre fichier je ferais un peu plus complexe.
Je serais curieux de voir quel temps vous mettez.

Cliquez pour agrandir...

Staple1600 à dit:

Re

Evidemment, avec 900 000 lignes, Excel devrait tousser.
(Je vous laisse tester)

Moi, je ne peux le faire, car tous les fichiers Excel que j'utilise in RL ne contienne que 1600 lignes.

Cliquez pour agrandir...