Supprimer les lignes dont la valeur de la colonne C est

J’ai un fichier EXCEL avec plusieurs feuilles.

Mon tableau se présente de la manière suivante :

colonne A colonne B colonne C

cp LIBELLE CODE GEO

3608587 NORMIS 1107446

3615713 ANAP 1119725

3529712 CARDEN 23510420

2672235 STABL 23618715

3336657 OLIGO 1108240

3163240 TANAK 1105140

3634745 SIFROL 1103340

3849581 CEFIX 2109230

3506266 MITOS 2112410

3815582 COTAR 2111410

3456545 ZECLA 2111525

Et je voudrais faire une macro qui permette de :

• Supprimer dans la feuil1 toutes les lignes dont la valeur de la cellule C est >=1101105 et =<1122500
• Supprimer dans la feuil2 toutes les lignes dont la valeur de la cellule C est >=2101105 et =<4122500
• Supprimer dans la feuil1 toutes les lignes dont la valeur de la cellule C est >=21101105 et =<27922500

Je vous remercie par avance pour votre aide.

c'est trés important

S.KALI

Bonjour,

- Supprimer dans la feuil1 toutes les lignes dont la valeur de la cellule C est >=1101105 et =<1122500

• Supprimer dans la feuil2 toutes les lignes dont la valeur de la cellule C est >=2101105 et =<4122500
• Supprimer dans la feuil1 toutes les lignes dont la valeur de la cellule C est >=21101105 et =<27922500

La feuil1 n’existe pas dans ton classeur.

En supposant qu’il s’agit de la feuille "implant", tu veux donc supprimer dans cette feuille toutes les lignes dont la valeur de la cellule C est >=1101105 et =<1122500 ainsi que toutes les lignes dont la valeur de la cellule C est >=21101105 et =<27922500.

De plus, tu veux supprimer dans la feuille "Feuil2", toutes les lignes dont la valeur de la cellule C est >=2101105 et =<4122500.

Et enfin, ne rien faire dans les feuilles "Feuil3" et "Feuil4".

C'est bien cela ?

A+

Bonjour,

Un proposition pour Feuil2 à adapter aux autres feuilles.

Option Explicit
Public Sub Suppression_Feuil2()
Dim Ws As Worksheet
Dim Dl As Long, i As Long, min As Long, max As Long
    Application.ScreenUpdating = False
    min = 2101105: max = 4122500
    Set Ws = Worksheets("Feuil2")
    With Ws
        Dl = .Range("A" & Rows.Count).End(xlUp).Row
        For i = Dl To 2 Step -1
            If .Cells(i, "C") >= min And .Cells(i, "C") <= max Then .Cells(i, "C").EntireRow.Delete
        Next
    End With
    Set Ws = Nothing
End Sub

merci ton script fonctionne trés bien par contre répeter cette opération 4 fois alors que mon script global fait déjà dix pages m'embête un peu.

Vous n'auriez pas un script plus court qui me permettrait de prendre en compte les 4 conditions pour les 4 feuilles.

c'est -à dire feuille 1, feuille2, feuille3, feuille4.

Je vous remercie infiniment pour votre aide

S.KALI

Re,

Bonsoir Frangy,

Si j'ai répondu ainsi, c'est que tes données d'entrées étaient imprécises (voir remarque de Frangy).

Renvoies un fichier cohérent avec ta demande

Cdlt.