[XL-2007] Macro pour supprimer des lignes sous conditions de valeur de cellule [Résolu]

[frisco75]

Bonjour,

Je voudrais créer une macro où Excel analyse les cellules d'une colonne donnée et si des cellules de cette colonne comportent le texte "#REF!" alors les lignes qui supportent ces cellules soient effacées.

Merci.

François

[Theze]

Bonjour,

Teste ce qui suit, la recherche est en colonne A de la feuille "Feuil1", adapte :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Erreur()
 
    Dim L As Long
    Dim I As Long
 
    'recherche la dernière cellule utiliser en colonne A
    With Worksheets("Feuil1")
 
        L = .Cells(.Rows.Count, 1).End(xlUp).Row
 
        'en colonne A, à adapter
        For I = L To 1 Step -1
 
            If IsError(.Cells(I, 1).Value) Then
 
                .Cells(I, 1).EntireRow.Delete
 
            End If
 
        Next I
 
    End With
 
End Sub

Hervé.

[mercatog]

Bonjour
Une autre proposition (à adapter au niveau du nom de la feuille et la colonne de recherche)

Code :

1
2
3
Application.ScreenUpdating = False
On Error Resume Next
Worksheets("Feuil1").Range("F:F").SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete

[frisco75]

Merci Hervé et Mercator !
Cordialement.
François