Discussion :

[yassine_13]

Bonjour à tous,
j'ai besoin de votre aide pour réaliser ma macro
j'ai une liste dans les feuilles 1 et 2 comme suit :
Feuil 1

N Commande	Composant	O/n	Qui	DATE	Client	Commentaire
10201	1	O	A	,,,	,,,	,,,,
10201	2	O	A	,,,	,,,	,,,,
10202	1	O	A	,,,	,,,	,,,,
10202	2	O	A	,,,	,,,	,,,,
10203	1	O	A	,,,	,,,	,,,,
10203	2	O	A	,,,	,,,	,,,,
10203	3	O	A	,,,	,,,	,,,,

Feuil 2

N Commande	Composant	O/n	Qui	DATE	Client	Commentaire
10201	1
10201	2
10203	1
10203	2
10203	3
102010	1
102010	2
102015	1
102015	2

si les valeurs de la colonne A et B des 2 feuilles sont les mêmes; je veux que ces lignes s'affichent dans la feuille 3
par exemple dans ce cas

N Commande	Composant	O/n	Qui	DATE	Client	Commentaire
10201	1
10201	2
10203	1
10203	2
10203	3

ci joint exemple dans fichier excel.
Merci

[révèr]

Bonjour yassine,

Qu'est-ce qui explique le fait que tu renseignes 2 fois les mêmes informations pour une commande ?

Je ne comprends pas pourquoi tu as ces 2 listes dans 2 feuilles différentes, surtout que les informations sont strictement les mêmes.

[yassine_13]

Bonjour yassine,

Qu'est-ce qui explique le fait que tu renseignes 2 fois les mêmes informations pour une commande ?

Je ne comprends pas pourquoi tu as ces 2 listes dans 2 feuilles différentes, surtout que les informations sont strictement les mêmes.

Entre la première feuille et la 2eme, il y a des éléments qui partent et des éléments qui restent...
je veux identifier les éléments qui sont présents dans les 2 périodes

[révèr]

Je ne vois pas du tout de quel élément tu parles. Dans ton fichier exemple, c'est exactement les mêmes informations.

Tu parles de période, mais tu as précisé que les critères sont la Colonne A et la Colonne B qui ne contiennent aucune date.

Pourquoi ne pas simplement mettre TOUTES tes listes avec TOUTES les informations des 2 feuilles dans 1 seul et même tableau ?

Il sera plus aisé par la suite de manipuler les informations, te permettant de créer un second tableau basé sur les informations que tu souhaites ?

J'ai toujours un peu de mal à cerner la situation initiale du problème...

[BENNASR]

bonjour à tous
à tester avec prudence

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
Sub BenNasr()
Application.ScreenUpdating = False
Dim f1 As Worksheet
Dim f2 As Worksheet
Dim f3 As Worksheet
Set f1 = Sheets("1")
Set f2 = Sheets("2")
Set f3 = Sheets("3")
Dim TblBD1
Dim TblBD2
Dim i As Integer
Dim j As Integer
Dim Lig As Long
Dim Trouve As Boolean
TblBD1 = f1.Range("A2:B" & f1.Range("A" & Rows.Count).End(xlUp).Row)
TblBD2 = f2.Range("A2:B" & f2.Range("A" & Rows.Count).End(xlUp).Row)
Lig = 2
For i = LBound(TblBD1) To UBound(TblBD1)
    Trouve = False
    For j = LBound(TblBD2) To UBound(TblBD2)
        If TblBD2(j, 1) = TblBD1(i, 1) And TblBD2(j, 2) = TblBD1(i, 2) Then
            Trouve = True
            Exit For
        End If
    Next j
 
    If Trouve = True Then
        With f3
            .Cells(Lig, 1) = TblBD2(j, 1)
            .Cells(Lig, 2) = TblBD2(j, 2)
        End With
        Lig = Lig + 1
    End If
Next i
Application.ScreenUpdating = True
f3.Select
End Sub

[yassine_13]

Merci BENNASSER, ça marcher sur ce TEST,
je vais generaliser sur tout mon fichier .
cordialement