Jiheme
XLDnaute Accro
Bonjour à tous
Ce code tout bête efface une ligne en fonction des données des cellules de la colonne B. Le problème c'est la lenteur, pour 20 lignes il faut environ 15 secondes, le problème c'est que ce tableau fait entre 6500 et 7000 lignes.
Est que quelqu'un aurait une solution pour accélérer le processus
Merci d'avance
Jiheme
Ce code tout bête efface une ligne en fonction des données des cellules de la colonne B. Le problème c'est la lenteur, pour 20 lignes il faut environ 15 secondes, le problème c'est que ce tableau fait entre 6500 et 7000 lignes.
Est que quelqu'un aurait une solution pour accélérer le processus
VB:
Sub netoyage() 'Jiheme
Application.ScreenUpdating = False 'Bloque l'affichage pendant l'exécution de la macro.
Sheets("FORMATIONS SENSIBILISATIONS").Select 'Sélection de la feuille.
Dim x As Integer 'Déclaration de la variable x en entier
For x = 2 To 6500 Step 1
If Range("B" & x).Value = "Sensibilisation R-TOL" Then Rows(x).Delete
Next x
Application.ScreenUpdating = True 'Remet l'affichage en service.
End Sub
Jiheme