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
A voir également:
- Macro supprime ligne avec deux conditions
- Recuperer message whatsapp supprimé - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Partager photos en ligne - Guide
- Message supprimé whatsapp - Guide
- Mètre en ligne - Guide
1 réponse
Salut le Forum
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. »
.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. »
.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
Il manque une virgule dans ton code
.Range("B1:B" & LastLig).AutoFilter Field:=1, Criteria1:="Rapport d'examen", Operator:=xlOr, Criteria2:="Notes"Mytå
Bonne soirée