Supprimer toutes les lignes dont la valeur de la colonne C est
khaliente
Messages postés
6
Statut
Membre
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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
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:
- Supprimer toutes les lignes dont la valeur de la colonne C est
- Supprimer rond bleu whatsapp - Guide
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Impossible de supprimer une page word - Guide
- Colonne word - Guide
3 réponses
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+
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+
Bonjour,
En VBA :
;0)
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)
