Supp Lignes

Bonjour,

Besoin d'un petit coup de main, je souhaiterai garder les lignes

qui sont signalées par un remplissage en jaune et supprimer les autres

*(sans avoir à les sélectionner une à une)

Merci pour votre aide (fichier joint)

Bonjour,

Une proposition avec une macro qui reprend la condition de la MFC, à savoir supprimer toutes les lignes qui ne contiennent pas une valeur supérieure à 5.

Cordialement.

Bonjour,

Une autre proposition à étudier.

Cdlt.

Public Sub Delete_rows()
Dim lastCol As Long, lastRow As Long, lRow As Long
Dim rng As Range, rng2 As Range
Dim n As Double
Const RW As Long = 2
    With ActiveSheet
        lastCol = .Cells(RW, .Columns.Count).End(xlToLeft).Column
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        For lRow = RW To lastRow
            Set rng = .Cells(lRow, 1).Offset(, 2).Resize(, lastCol - 3)
            n = WorksheetFunction.Max(rng)
            If n < 5 Then
                If rng2 Is Nothing Then
                    Set rng2 = .Cells(lRow, 1).Resize(, lastCol)
                Else
                    Set rng2 = Union(rng2, .Cells(lRow, 1).Resize(, lastCol))
                End If
            End If
        Next lRow
        If Not rng2 Is Nothing Then rng2.Delete
    End With
End Sub

Merci gyrus pour ta proposition, mais je me permets de revenir vers toi avec le fichier complet (joint)

et ta macro que j'ai adapté mais bizarrement il y a des lignes non surlignées, peux tu m'en dire

plus stp (ou modifier la macro).

merci encore

Re,

Il faut veiller à déclarer correctement les limites de la plage à traiter.

Dans ton exemple, il s'agit

• des lignes 2 à 3712 (dernière ligne définie par Range("A" & Rows.Count).End(xlUp).Row)
• des colonnes 3 (C) à 55 (BC).

Cordialement.

Merci Cyrus, j'y ferai attention

Bonne journée et merci encore.

Merci Jean-Eric pour ta proposition, et aide,

Parfait,

Bonne journée à toi.