Supprimer toutes les lignes dont la valeur de la colonne C est

khaliente Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
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.
S.KALI
A voir également:

3 réponses

Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

Si les données ne sont pas amenées à bouger et que tu ne veux pas faire d'autre traitement, des filtres personnalisés et des copier-coller suffisent (seules les lignes filtrées sont copiées).

A+
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

En VBA :

Sub supprimerLigne()

Dim plage As Range
Dim c
Dim i As Long

With Sheets("Feuil1")
i = 1
Set plage = .Range("C2:C" & .Range("C65000").End(xlUp).Row)
For Each c In plage
i = i + 1
If c.Value >= 1101105 And c.Value <= 1122500 Then
.Rows(i).Delete
i = i - 1
ElseIf c.Value >= 21101105 And c.Value <= 27922500 Then
.Rows(i).Delete
i = i - 1
End If
Next c
Set plage = Nothing
End With

With Sheets("Feuil2")
i = 1
Set plage = .Range("C2:C" & .Range("C65000").End(xlUp).Row)
For Each c In plage
i = i + 1
If c.Value >= 2101105 And c.Value <= 4122500 Then
.Rows(i).Delete
i = i - 1
End If
Next c
Set plage = Nothing
End With

End Sub


;0)
0
khaliente Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
cela ne fonctionne pas.
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
C'est dommage !!!
0