Discussion :

[guillaume74960]

Bonjour à tous,

J'ai un gros problème je ne sais pas par où commencer...
Voila mon souci :
j'ai une feuille 1 avec une liste de paramètre en colonne A et d'autre en B avec environ 20 000 lignes
j'ai une feuille 2 avec une liste de paramètre les même que ma colonne A de l'autre feuille mais qu'une partie

Je voudrai avoir en feuille 3, une recherche dans ma feuille 1 de tous mes paramètre de ma feuille 2...
Sachant que je peux avoir plusieurs lignes par paramétres

Je sais pas si j'arrive à me faire comprendre....

Merci d'avance

[pasdechances]

Bonjour,

voila un exemple qui devrai t'aider

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
y = 1
y2 = 1
while sheets("feuil2").cells(y,1) <> ""
 
    a = sheets("feuil1").cells(y,1)
    b = sheets("feuil2").cells(y,1)
 
    if a = b then 
        sheets("feuil3").cells(y2,1) = b
        y2 = y2 + 1
    end if
 
    y = y + 1
 
wend

[guillaume74960]

Déjà merci pour la réponse, a et b sont quoi en fait ?

[pasdechances]

Des variables lambda, tu peut ne pas les mettre aussi je les ai mis uniquement pour prendre moins de place dans le "If".
après tu fais se que tu veux avec tu peut même changer le nom.

[guillaume74960]

Ah d'accord merci je vais essayer de voir cela...

En fait je ne sais pas si je me suis fait comprendre (moi même j'ai du mal )

J'ai un peu évolué, dans ma feuille 1 j'ai 2 colonnes A et B du genre
A B
ZAD1H0 ADCQ
ZAD1H1 ADCQ
ZAD1H2 ADCQ

Dans ma feuille 2 j'ai
A B C D E
ZAXWJK 01/10/2015 00:02:03 R U0999
ZSS1HI 11/10/2015 08:00:01 R U0999
ZN1MD8 12/10/2015 10:03:19 R U0999
ZAXWJK 13/10/2015 00:02:05 R U0999
ZRCPHE 12/10/2015 14:25:12 R U0999

Je voudrais (j'y arrive vraiment pas ça m’énerve) (filtrer/comparer/extraire) rechercher toutes mes valeurs dans ma feuille 1 colonne A dans ma feuille 2 colonne A et s'il la trouve copier la ligne entière (colonnes A B C D E) dans ma feuille 3...

[pasdechances]

Ahhh ok, faire un genre de rechercheV.

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
y = 1
y2 = 1
while sheets("feuil1").cells(y2,1) <> "" 'tant que les cellule sont pas vide on boucle
 
    a = sheets("feuil1").cells(y2,1)
 
while sheets("feuil2").cells(y,1) <> ""
 
    b = sheets("feuil2").cells(y,1)
 
    if a = b then 'si la cellule feuil1 correspont a la feuille 2 alors on copi et on passe a la suivante
        sheets("feuil3").cells(y2,1) = b 'on copi la premiere cellule trouvée
        sheets("feuil3").cells(y2,2) = sheets("feuil2").cells(y2,2) 'la deuxieme
        sheets("feuil3").cells(y2,3) = sheets("feuil2").cells(y2,3) 'troisieme ect ...
        sheets("feuil3").cells(y2,4) = sheets("feuil2").cells(y2,4)
        sheets("feuil3").cells(y2,5) = sheets("feuil2").cells(y2,5)
        y2 = y2 + 1
        y = 1
        goto d
    end if
 y = y + 1
wend 
d:
wend