Discussion :

[klowba]

Bonjour, j'aimerai rechercher à partir d'une plage de valeurs (environ 200 à 500valeurs) toutes les valeurs contenues dans une liste (+20000 valeurs) et supprimer les lignes qui ne contiennent pas une de ces valeurs. ce qui donera à la fin, le meme nombre de lignes que de valeurs cherchés.

Je suis un peu perdu, pouvez-vous m'aider ?

Merci

[ouskel'n'or]

Tu as commencé quelque chose ? Tu peux nous montrer ?
A+

[klowba]

Ben j'ai commencé ca, mais je sais pas comment ajouter toute la liste des veleurs a rechercher.
Sachant qu'elle change tous les jours, j'aimerai la copier dans une colone et que la macro aille prendre en reference cette colonne.

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
 ' Suppression lignes non referencés
    i = 1
    j = 1
    Do While j < 30000
 
    ' Recherche voulue dans feuille voulue
    If Worksheets("Feuil1").Cells(i, 8).Value <> "METTRE ICI LA LISTE DES VELEURS" Then
 
    'Suppression
     Rows(i).Select
     Selection.Delete Shift:=xlUp
 
    i = i
    j = j + 1
 
    Else: i = i + 1
    j = j + 1
 
 
    End If
    Loop
    '
    ' fin de la fonction de Suppression des lignes

[ouskel'n'or]

Ce que j'ai compris

supprimer les lignes qui ne contiennent pas une de ces valeurs. ce qui donera à la fin, le meme nombre de lignes que de valeurs cherchés.

En fait, si tu fais ça, tu auras supprimé toutes les lignes sauf celle correspondant à la première valeur cherchée.
Bref, tu ne peux pas faire ça.
Pour réaliser ce que tu veux, tu dois ajouter une feuille (Feuil3)
Tu parcours tes données dans la (feuil1)
Tu recherches chaque donnée, une à une, dans la feuille (feuil2) dont tu veux supprimer les lignes en trop
Si un donnée corresponds, tu colles la ligne de feuil2 dans feuil3 et tu passes à la donnée suivante
Quand tu as fini ta liste, tu supprimes feuil2 et tu renommes Feuil3
Si ça correspond, essaie quelque chose. Si tu as un pb, tu siffles
A+

[klowba]

Oui j'y ai pensé a ca, je vais creuser.
Merci

[ouskel'n'or]

Tu peux également utiliser RechercheV. Tu as un exemple ici
Bonne chance

[klowba]

Voila ce que j'ai fait:

Ca met 10 minutes à tourner mais ca va.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Tri_Kelkoo()
'
' Macro enregistrée le 12/06/2007 par klowba
'
    h = 1
    k = 1
    Do While h < 200
    ' Recherche des ref listes
        i = 1
        j = 1
        Do While j < 30000
 
        ' Recherche voulue dans feuille voulue
        If Worksheets("Feuil1").Cells(i, 8).Value = Worksheets("Feuil2").Cells(h, 1).Value Then
 
        'Copie en feuille3
        Sheets("Feuil1").Select
        Rows(i).Select
        Selection.Copy
        Sheets("Feuil3").Select
        Rows(k).Select
        ActiveSheet.Paste
        k = k + 1
 
        i = i
        j = j + 1
        h = h + 1
 
        Else: i = i + 1
        j = j + 1
 
 
 
        End If
        Loop
        '
    ' fin de la fonction de recherche
    h = h + 1
 
 
    Loop
'
End Sub