A voir également:
- Vba suppression de lignes
- Forcer suppression fichier - Guide
- Partage de photos en ligne - Guide
- Suppression compte gmail - Guide
- Suppression page word - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
2 réponses
Bonjour,
avec une macro parametrée (permet un choix intéressant de Lettre ou textes)
on commence en ligne 1
Michel
avec une macro parametrée (permet un choix intéressant de Lettre ou textes)
on commence en ligne 1
Option Explicit
Sub supprimer_si(lettre)
Dim derlig As Long, lig As Long, cptr As Long, nbre As Long
derlig = Columns("C").Find("*", , , , , xlPrevious).Row
lig = Cells.Rows.Count
nbre = Application.CountIf(Range("C1:C" & derlig), "*" & lettre & "*")
For cptr = 1 To nbre
Rows(Columns("C").Find(lettre, Cells(lig, "C"), xlValues).Row).Delete
Next
End Sub
Sub test()
Application.ScreenUpdating = False
supprimer_si "C"
supprimer_si "U"
End Sub
Michel
michel_m
Messages postés
16602
Date d'inscription
Statut
Contributeur
Dernière intervention
3 314
Merci.... de rien! :-(
