XL 2013 Suppression ligne en fonction d'une liste d'une autre feuille

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #2

Bonjour le fil, Olivier

Olivier
Le fichier orignal, non (car on ne joint jamais de fichier original, c'est gravé dans le marbre de la charte 😉)
Mais rien de t'empêche de créer un fichier allégé et avec des données bidons qui reprennent la structure de ton classeur d'origine
(avec même noms de feuille, même plage de cellules, même formules etc...)

 

Dernière édition: 27 Octobre 2019

Vote positif 0 Vote négatif

O

Olivier33390

XLDnaute Nouveau

• 27 Octobre 2019

• #3

Bonjour à tous,
je viens de trouver un code sur la page de nounbxl76 qui fonctionne bien:

Option Explicit
Sub OTM_MC()
Dim c As Range, i As Long
Application.ScreenUpdating = False
Sheets("Extraction TEM").Activate
For i = Cells(Rows.Count, "k").End(xlUp).Row To 2 Step -1
Set c = Sheets("OTM ACT sensibles").Columns(1).Find(Range("k" & i).Value)
If c Is Nothing Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
'
End Sub

Pour autant, est-il de possible de mettre le titre de la colonne en lieu et place des lettres K pour la feuille "Extraction TEM" et columns(1) pour la feuille "OTM ACT sensibles"?

Merci de votre retour.

Cdt

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #4

Bonjour le fil,

Oui, c'est surement possible
Mais encore une fois, plus simple et rapide à tester avec un fichier exemple fourni par le demandeur.
(Voir suggestion du message#2...)

 

Vote positif 0 Vote négatif

O

Olivier33390

XLDnaute Nouveau

• 27 Octobre 2019

• #5

Le fichier en question version light

 

Pièces jointes

• test macro OTM MC light.xlsm

  22.5 KB · Affichages: 5

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #6

Re,

Olivier
Merci pour le fichier

PS: Tu ne prends jamais le temps de saluer nommément les gens qui répondent?
Ce n'est pas une critique mais une question.

 

Vote positif 0 Vote négatif

O

Olivier33390

XLDnaute Nouveau

• 27 Octobre 2019

• #7

Mille excuses c'est un oubli bien sûr.
Bonjour Staple1600.
Dans l'attente de vous lire veuillez agréer mes sincères salutations.
Olivier

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Octobre 2019

• #8

Bonjour,

VB:

Sub OTM_MC2()
    Application.ScreenUpdating = False
    Set f1 = Sheets("Extraction TEM")
    Set f2 = Sheets("OTM ACT sensibles")
    p = Application.Match("N°OTM", f1.[A1:Z1], 0)
    p2 = Application.Match("OTM - MC", f2.[A1:Z1], 0)
    If Not IsError(p2) Then
      n = f2.Cells(65000, p2).End(xlUp).Row
      liste = f2.Cells(2, p2).Resize(n - 1)
    End If
    If Not IsError(p) And Not IsError(p2) Then
       For i = f1.Cells(Rows.Count, p).End(xlUp).Row To 2 Step -1
          c = Application.Match(f1.Cells(i, p), liste, 0)
          If IsError(c) Then f1.Rows(i).Delete
       Next i
    End If
    Application.ScreenUpdating = True
End Sub

S'il y a des milliers de lignes, on peut faire + rapide.

Boisgontier

 

Pièces jointes

• Copie de test macro OTM MC light.xlsm

  21.8 KB · Affichages: 5

Dernière édition: 27 Octobre 2019

Vote positif 0 Vote négatif

O

Olivier33390

XLDnaute Nouveau

• 27 Octobre 2019

• #9

Bonjour,
Merci de ta réponse, je vais essayer.
Cdt

 

Vote positif 0 Vote négatif

O

Olivier33390

XLDnaute Nouveau

• 27 Octobre 2019

• #10

Merci Boisgontier, ton code fonctionne parfaitement et ne prends pas de temps malgré les 13000 lignes.

Cdt

 

Vote positif 0 Vote négatif