Macro supprime ligne avec deux conditions

Résolu/Fermé

Marie Chant Messages postés 114 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 12 décembre 2024 - 29 oct. 2014 à 00:50
Marie Chant Messages postés 114 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 12 décembre 2024 - 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
Aller à la ligne excel - Guide
Partager photos en ligne - Guide
Vente en ligne particulier - Guide

1 réponse

Réponse 1 / 1

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
Modifié par Mytå le 29/10/2014 à 01:16

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 114 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 12 décembre 2024 8
29 oct. 2014 à 01:37

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 mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
29 oct. 2014 à 01:49

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 114 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 12 décembre 2024 8
29 oct. 2014 à 21:29

Merci beaucoup Myta cela fonctionne tres bien
Bonne soirée

Discussions similaires

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

Comment supprimer une conversation Messenger pour les 2 personnes ?