jean123
XLDnaute Occasionnel
Bonjour,
J'ai fait une petite macro simple mais pas efficace en terme de temps de traitement. Si quelqu'un peut améliorer la macro car sur une feuille contenant peu de donnes ça va, mais j'ai un onglet de 90 colonne et 150 000 lignes. Et la, ça coince.
Voici la macro
J'ai fait une petite macro simple mais pas efficace en terme de temps de traitement. Si quelqu'un peut améliorer la macro car sur une feuille contenant peu de donnes ça va, mais j'ai un onglet de 90 colonne et 150 000 lignes. Et la, ça coince.
Voici la macro
VB:
Sub test ()
For i = 2000 To 1 Step -1
For j = 90 To 1 Step -1
If Not Cells(i, j).Value Like "*jean*" Then Cells(i, j).Delete Shift:=xlToLeft
Next j
Next i
End Sub
Dernière édition: