Recherche v, vba suppression de ligne

linoa -  
lermite222 Messages postés 9042 Statut Contributeur -
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

2 réponses

  1. cptarget Messages postés 26 Statut Membre 1
     
    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
    0
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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+
    0