Comment supprimer une ligne avec un nom commencant par Résolu/Fermé

Question

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

Mytå · Answer

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å

Mytå · Answer

Re le Forum

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 WithEnd Sub 
Mytå

Mytå · Answer

Re le Forum

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 WithEnd Sub 
Mytå

Comment supprimer une ligne avec un nom commencant par

3 réponses

Discussions similaires