Comment supprimer une ligne avec un nom commencant par
Résolu
Marie Chant
Messages postés
136
Date d'inscription
Statut
Membre
Dernière intervention
-
Marie Chant Messages postés 136 Date d'inscription Statut Membre Dernière intervention -
Marie Chant Messages postés 136 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerais un peu d'aide s.v.p.
je voudrais que ma macro supprime aussi toutes les lignes qui dans ma colonne "A" commence par TRE ou par PER que dois-je ajouter a ma macro?
Merci beaucoup de votre aide.
Dim LastLig As Long
Application.ScreenUpdating = False
With Sheets("Extrait eleve")
.AutoFilterMode = False
LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
.Range("B1:B" & LastLig).AutoFilter Field:=1, Criteria1:="Rapport eleve ", Operator:=xlOr, Criteria2:="Notes"
On Error Resume Next
.Range("b2:b" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
.AutoFilterMode = False
End With
End Sub
J'aimerais un peu d'aide s.v.p.
je voudrais que ma macro supprime aussi toutes les lignes qui dans ma colonne "A" commence par TRE ou par PER que dois-je ajouter a ma macro?
Merci beaucoup de votre aide.
Dim LastLig As Long
Application.ScreenUpdating = False
With Sheets("Extrait eleve")
.AutoFilterMode = False
LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
.Range("B1:B" & LastLig).AutoFilter Field:=1, Criteria1:="Rapport eleve ", Operator:=xlOr, Criteria2:="Notes"
On Error Resume Next
.Range("b2:b" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
.AutoFilterMode = False
End With
End Sub
A voir également:
- Comment supprimer une ligne avec un nom commencant par
- Supprimer rond bleu whatsapp - Guide
- Comment supprimer une page sur word - Guide
- Partager photos en ligne - Guide
- Comment supprimer un compte gmail - Guide
- Impossible de supprimer un fichier - Guide
3 réponses
Salut le Forum
Petite précision :
Dans la colonne "A" commence par TRE ou par PER
Dans la colonne "B" contient "Rapport eleve" et "Notes"
Les deux conditions en même temps . . .
Mytå
Petite précision :
Dans la colonne "A" commence par TRE ou par PER
Dans la colonne "B" contient "Rapport eleve" et "Notes"
Les deux conditions en même temps . . .
Mytå
Re le Forum
Les deux conditions en même temps
Mytå
Les deux conditions en même temps
Sub Filtre_()
Dim LastLig As Long
With Sheets("Feuil1")
.AutoFilterMode = False
LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
With .Range("A1:B" & LastLig)
.AutoFilter Field:=1, Criteria1:="=TRE*", Operator:=xlOr, Criteria2:="=PRE*"
.AutoFilter Field:=2, Criteria1:="Rapport eleve ", Operator:=xlOr, Criteria2:="Notes"
On Error Resume Next
.Range("A2:B" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
End With
.AutoFilterMode = False
End With
End Sub
Mytå
Re le Forum
Pour effacer les deux conditions (Colonne A et ensuite colonne B)
Mytå
Pour effacer les deux conditions (Colonne A et ensuite colonne B)
Sub Filtre_()
Dim LastLig As Long
With Sheets("Feuil1")
.AutoFilterMode = False
LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
With .Range("A1:B" & LastLig)
.AutoFilter Field:=1, Criteria1:="=TRE*", Operator:=xlOr, Criteria2:="=PRE*"
End With
If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then _
.Range("A2:B" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
With .Range("A1:B" & LastLig)
.AutoFilter Field:=2, Criteria1:="Rapport eleve", Operator:=xlOr, Criteria2:="Notes"
End With
If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then _
.Range("A2:B" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
End With
End Sub
Mytå
Et oui ca pourrait etre les deux conditions en meme temps. Je ne sais pas comment faire?
merci de votre aide Myta