Discussion :

[tylersmith]

bonjour à a tous

je viens soliciter votre aide pour une procédure que je n'arrive pas à mettre en place

dans une premiere feuille j'ai une liste de prenoms et de valeurs
......A.............B
1..Marie .............124 euro
2 Chloe ............. 111 euro
3 Franck .............164 euro
4 Pascal ............. 224 euro
5 Claire ............. 524 euro


dans une seconde feuille j'ai une autre liste de prenoms

...... A
1 ..Calire
2 ..Marie
3... Chloe

Ce que je souhaite faire c'est selectionne la premiere celule de la feuiile un
la comparer a la liste de la feuille 2 si la valeur de la cellule existe passer a la celulle de A2 (0;-1)
lorsque la valeur n'est pas presente dans la liste de la feuille 2 alors je supprime la ligne de la feuille 1

j'espere avoir ete clair
je vous remercie pour votre aide


Tyler

[SilkyRoad]

bonjour

tu peux tester cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Explicit
Option Compare Text
 
Sub supprimeLignes_Conditionnel()
Dim x As Integer, y As Integer, Resultat As Integer
Dim Plage As Range
Dim leNom As String
 
x = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Set Plage = Sheets("Feuil2").Range("A1:A" & _
Sheets("Feuil2").Range("A65536").End(xlUp).Row)
 
For y = x To 1 Step -1
    Resultat = 0
    leNom = Sheets("Feuil1").Cells(y, 1)
 
    On Error Resume Next
    Resultat = Application.Match(leNom, Plage, 0)
    If Resultat = 0 Then Sheets("Feuil1").Rows(y).Delete
Next y
 
End Sub

bonne journée
michel

[tylersmith]

merci michel je vais tester