[VBA] Comparer les valeurs de deux listes
Résolu/Fermé
adrienew
Messages postés
3
Date d'inscription
jeudi 27 décembre 2012
Statut
Membre
Dernière intervention
28 décembre 2012
-
27 déc. 2012 à 10:17
adrienew Messages postés 3 Date d'inscription jeudi 27 décembre 2012 Statut Membre Dernière intervention 28 décembre 2012 - 28 déc. 2012 à 10:24
adrienew Messages postés 3 Date d'inscription jeudi 27 décembre 2012 Statut Membre Dernière intervention 28 décembre 2012 - 28 déc. 2012 à 10:24
A voir également:
- Comparer une valeur à une liste excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Figer une ligne excel - Guide
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
27 déc. 2012 à 11:31
27 déc. 2012 à 11:31
Bonjour,
Code ameliore:
Pour votre code il faut indiquer quelle feuille pour la liste feuille1 et pour la ligne a deleter.
Bonne fete de fin d'annee
Code ameliore:
Sub Compare()
Dim i As Integer
Dim col_2 As Range
'Definition plage de cellules en memoire pour vitesse execution
Set col_2 = Worksheets("feuil2").Range("A1:A50")
With ThisWorkbook.Sheets("Feuil1")
For i = 50 To 2 Step -1
'Test si valeur cellule feuil1!=Ax est dans Plage col_2(feuil2!A1:A50))
If Application.CountIf(col_2, .Range("A" & i).Value) = 0 Then
'Delete ligne i feuil1
.Rows(i).Delete
End If
Next i
End With
End Sub
Pour votre code il faut indiquer quelle feuille pour la liste feuille1 et pour la ligne a deleter.
Bonne fete de fin d'annee