Suppression de lignes suivant conditions

bonjour

voici mon probleme:

dans le tableau en piéce jointe , j'aimerais supprimer toutes les lignes où il y a le nombre 7

merci d'avance

cordialement

chardri

Bonjour,

A tester le code suivant, eventuellement à adapter :

Sub supprimerLigne()
    derLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = derLig To 1 Step -1
        If WorksheetFunction.Count(Range(Cells(i, 1), Cells(i, 4))) = 4 Then
            Rows(i).Delete
        End If
    Next i
End Sub

Bonjour,

Essaie ceci.

Cordialement,

Nico.

bonjour

et merci pour les réponses

mais je me suis trompé , en fait je souhaite supprimer les lignes qui ne contiennent pas le chiffre 7

mille excuses

cordialement

chardri

Rajoute simplement "not" après le "If" de mon code, ça devrait fonctionner

désolé , je suis débutant en macro et je doit dire que je ne connaît pas très bien les formules mais en essayant avec le not , je ne récupère pas les lignes qui contiennent le chiffre 7

chardri

Re,

Tu es débutant en VBA. Ok d'accord. Veux-tu une solution par formules ?

oui je veux bien une solution par formule

merci d'avance

Re,

Regarde dans le fichier ci-retourné. Filtre la colonne avec la valeur égale à 4 et supprimer ces lignes. Pour info, la formule de la colonne compte le nombre de cellules contenant les nombres.

Bonjour,

Une nouvelle proposition.

Cdlt.

Private Sub CommandButton1_Click()
Dim Cell As Range, rngData As Range, Urng As Range
    Application.ScreenUpdating = False
    Set rngData = ActiveSheet.Cells(1).CurrentRegion
    For Each Cell In rngData
        If Cell.Value = 7 Then
            If Urng Is Nothing Then
                Set Urng = Cell
            Else
                Set Urng = Union(Cell, Urng)
            End If
        End If
    Next Cell
    Urng.EntireRow.Delete shift:=xlShiftUp
    Set Urng = Nothing: Set rngData = Nothing
End Sub

merci à tous de bien vouloir m'aider

mes les différentes propositions ne correspondent pas à mes attentes

je joint un nouveau fichier pour bien visualiser mes attentes

cordialement

chardri

Re,

A supprimer les lignes où il y a le chiffre 1 dans la colonne E après filtrage.

Re,

Une modification.

Private Sub CommandButton1_Click()
Dim Cell As Range, rngData As Range, Urng As Range
    Application.ScreenUpdating = False
    Set rngData = ActiveSheet.Cells(3, 1).CurrentRegion
    For Each Cell In rngData
        If Cell.Value <> 7 Then
            If Urng Is Nothing Then
                Set Urng = Cell
            Else
                Set Urng = Union(Cell, Urng)
            End If
        End If
    Next Cell
    Urng.ClearContents
    Set Urng = Nothing: Set rngData = Nothing
End Sub

merci à tout le monde

vous avez réussi à solutionner mon problème

cordialement

chardri