Macro supprime ligne avec deux conditions
Résolu
Marie Chant
Messages postés
147
Statut
Membre
-
Marie Chant Messages postés 147 Statut Membre -
Marie Chant Messages postés 147 Statut Membre -
Bonjour,
je voudrais ajouter a cette macro de supprimer aussi ''Notes'' dans la même même colonne soit B J'ai plus de 100 000 lignes dans mon tableau merci beaucoup de m'aider
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 d'examen"
On Error Resume Next
.Range("b2:b" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
.AutoFilterMode = False
End With
End Sub
je voudrais ajouter a cette macro de supprimer aussi ''Notes'' dans la même même colonne soit B J'ai plus de 100 000 lignes dans mon tableau merci beaucoup de m'aider
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 d'examen"
On Error Resume Next
.Range("b2:b" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
.AutoFilterMode = False
End With
End Sub
1 réponse
-
Salut le Forum
.Range("B1:B" & LastLig).AutoFilter Field:=1, Criteria1:="Rapport d'examen", _
Operator:=xlOr, Criteria2:="Notes"
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »-
Cela ne fonctionne pas je ne dois pas avoir inscrit ce qu'il faut
.Range("B1:B" & LastLig).AutoFilter Field:=1, Criteria1:="Rapport d'examen" 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 -
-
-
