Macro supprime ligne avec deux conditions

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 - 29 oct. 2014 à 21:29

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

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

Réponse 1 / 1

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 953

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. »

Marie Chant Messages postés 136 Date d'inscription Statut Membre Dernière intervention 9

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

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 953

Re le Forum

Il manque une virgule dans ton code

.Range("B1:B" & LastLig).AutoFilter Field:=1, Criteria1:="Rapport d'examen",    Operator:=xlOr, Criteria2:="Notes"

Mytå

Marie Chant Messages postés 136 Date d'inscription Statut Membre Dernière intervention 9

Merci beaucoup Myta cela fonctionne tres bien
Bonne soirée

Discussions similaires

Supprimer conversation messenger pour tout le monde

Que veut dire "correspondant occupé" lors d'un appel ?

Votre réponse

Discussions similaires