recherche v, vba suppression de ligne

Question

Bonjour, 

Je suis débutante en VBA, et je voudrais réaliser une macro qui recherche dans ma colonne G les cellule contenant erreur et qui me supprime les lignes. 

je vous remercie de vos réponses 

Linoa 



Configuration: Windows XP / Internet Explorer 6.0

cptarget · Answer

Bonjour, 

Voici le code 

Dim i, j As Integer 
i = ActiveSheet.UsedRange.Rows.Count 

For j = 2 To i 
    If Range("g" & j) = "erreur" Then 
    Rows(j & ":" & j).Select 
    Selection.Delete Shift:=xlUp 
    End If 
     
Next j 
End Sub 

Pub supprimée Modération CCM

lermite222 · Answer

Bonjour,
Attention.. Si Erreur est le résultat d'une formule tu ne pourras pas détecter "Erreur"
Faudrait plutôt faire...
Sub TesteColG()
Dim Lig As Long, DerLig As Long
    DerLig = Range("G65535").End(xlUp).Row
    For Lig = DerLig To 1 Step -1
        If IsError(Cells(Lig, "G")) Then
            Rows(Lig).Delete
        End If
    Next Lig
End Sub

A+

Recherche v, vba suppression de ligne

2 réponses

Votre réponse

Discussions similaires

Newsletters