Discussion :

[pointp]

Bonjour,
Je souhaiterais automatisé un rapprochement bancaire, autrement dit, j'ai deux feuilles avec des montants et je souhaite faire ressortir les montants qui sont uniques dans les deux colonnes des deux feuilles.
Je pense que c'est vraiment pas compliqué pour des experts mais en tant que débutant, je ne vois pas comment excel peut rechercher des montants égaux dans des colonnes sur des feuilles différents.

Merci à tous

[44jeje44]

Essai ce bout de programme

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
44
45
46
47
48
49
50
Sub Doublons()
 
'Feuil1 donnée 1
'Feuil2 donnée 2
'Feuil3 Extraction
 
Dim a As Integer 'On définit "a" comme un entier (au maximum égal à 32767)
Dim b As Integer
Dim c As Integer
Dim d As Integer
 
d = 1
 
DerniereligneF1 = Feuil1.Range("A65536").End(xlUp).Row 'On définit la dernière ligne de la feuille 1 comme étant celle qui comprend la dernière cellule non vide
DerniereligneF2 = Feuil2.Range("A65536").End(xlUp).Row
 
Worksheets("Feuil3").Cells(d, 1) = "Donnée que dans Feuil1"
 
For a = 2 To DerniereligneF1
c = 0
    For b = 2 To DerniereligneF2
        If Worksheets("Feuil1").Cells(a, 1) = Worksheets("Feuil2").Cells(b, 1) Then 'dans l'exemple compare la colonne A de la feuil1 à la colonne A de la feuil2
            c = 1
        End If
    Next b
 
    If c = 0 Then
        d = d + 1
        Worksheets("Feuil1").Cells(a, 1).Copy Worksheets("Feuil3").Cells(d, 1)
    End If
Next a
 
d = d + 1
Worksheets("Feuil3").Cells(d, 1) = "Donnée que dans Feuil2"
 
For b = 2 To DerniereligneF1
c = 0
    For a = 2 To DerniereligneF1
        If Worksheets("Feuil1").Cells(a, 1) = Worksheets("Feuil2").Cells(b, 1) Then 'dans l'exemple compare la colonne A de la feuil1 à la colonne A de la feuil2
            c = 1
        End If
    Next a
 
    If c = 0 Then
        d = d + 1
        Worksheets("Feuil1").Cells(a, 1).Copy Worksheets("Feuil3").Cells(d, 1)
    End If
Next b
 
End Sub

[phiiris]

Vous pouvez aussi faire une double recherche (1 sur chaque feuille pour chaque valeur) avec la fonction vlookup (rechercheV). Le code erreur N/A indiquera les valeurs non trouvées dans l'autre feuille, donc unique.

[pointp]

Pour la macro, j'arrive pas à la faire marcher mais tanpis, j'ai pris la solution de phiiris, merci à vous 2 quand même et au plaisir...