Comment supprimer les lignes qui ne correspondent pas aux critères définis dans une autre feuille ?

Il n’est probablement pas difficile pour vous de Supprimer des lignes qui ne correspondent pas aux critères sur la même feuille, mais connaissez-vous des méthodes permettant de supprimer les lignes ne correspondant pas aux critères d’une autre feuille, comme illustré ci-dessous ? Je vous propose maintenant deux astuces pour résoudre rapidement ce problème.

Supprimer des lignes ne correspondant pas aux critères d’une autre feuille avec VBA

Supprimer des lignes ne correspondant pas aux critères d’une autre feuille avec Kutools pour Excel

Critères (dans la feuille 2)	Avant (feuille 1)		Après (Feuille1)

---

Supprimer des lignes ne correspondant pas aux critères d’une autre feuille avec VBA

Un code VBA peut vous aider à supprimer les lignes qui ne correspondent pas aux critères définis dans une autre feuille.

1. Appuyez sur Alt + F11 pour afficher la fenêtre Microsoft Visual Basic pour Applications.

2. Dans cette fenêtre, cliquez sur Insertion > Module pour ouvrir une nouvelle fenêtre de module, puis copiez-y le code VBA suivant.

VBA : Supprimez les lignes qui ne correspondent pas aux critères définis dans une autre feuille Excel.

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3. Cliquez sur Exécuter, une KutoolsforExcelUne boîte de dialogue s’ouvre pour vous permettre de sélectionner la plage dont vous souhaitez supprimer les lignes ne correspondant pas aux critères. Voir la capture d’écran :

4. Cliquez sur OK : une autre boîte de dialogue s’ouvre alors, vous permettant de sélectionner les critères situés dans une autre feuille. Voir la capture d’écran :

5. Toutes les lignes ne répondant pas aux critères d’une autre feuille sont désormais supprimées.

---

Supprimer des lignes ne correspondant pas aux critères d’une autre feuille avec Kutools pour Excel

Si le code VBA vous paraît un peu complexe, optez plutôt pour la fonctionnalité « Comparer des plages » de Kutools pour Excel.

Kutools pour Excel comprend plus de 300 outils pratiques pour Excel. Essayez-le gratuitement et sans limitation pendant 30 jours.Téléchargez dès maintenant

1. Sélectionnez la feuille dont vous souhaitez supprimer les lignes ne correspondant pas aux critères, puis cliquez sur Kutools > Plage > Comparer les cellules. Voir la capture d’écran :

2. Dans la boîte de dialogue Comparer les cellules, cliquez sur le bouton situé dans le champ Plage B, puis sélectionnez la plage de critères souhaitée. Voir la capture d’écran :

 

3. Cliquez ensuite sur OK, puis revenez à la boîte de dialogue Comparer des plages. Cochez les options Valeur différente et Sélectionner la ligne entière. Voir la capture d’écran :

4. Cliquez sur OK, puis fermez la boîte de dialogue Comparer des plages. Les lignes contenant des valeurs différentes des critères sont alors sélectionnées.

5. Cliquez avec le bouton droit, puis choisissez Supprimer dans le menu contextuel pour supprimer les lignes qui ne correspondent pas aux critères d’une autre feuille.

Cliquez ici pour découvrir tout ce que la fonctionnalité « Comparer des plages » de Kutools pour Excel peut faire pour vous.

---

Articles associés :

• Supprimer des lignes ne contenant pas un certain texte dans Excel

---