Bonjour

On est souvent confrontés à ce genre de problème, la suppression de lignes dans un tableau Excel.
Quand nous avons 5 lignes tout va bien, mais supprimer 1000 lignes parmi 5000, c'est horriblement long.

Le code suivant est destiné à créer un nouveau classeur cloné mais en ayant supprimé les lignes non "intéressantes" sur le fichier d'origine.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function Vidage_Clone()
    Application.ScreenUpdating = False
    Worksheets("Base").Activate
 
    Range("Sel_Clone_Base").Select
    K = Range("NbVal").Value
    For I = 1 To K + 3
    ActiveCell.Offset(1, 0).Activate
    If ActiveCell.Text = "#N/A" Then
        Selection.EntireRow.Delete
        ActiveCell.Offset(-1, 0).Activate
        End If
        Next I
    Application.ScreenUpdating = False
    End Function
Une proposition plus efficace de cette boucle interminable ?
Par avance milles mercis.

Bertrand