Discussion :

[Raphael39]

Bonjour,

Grace à l'aide de certains membres de forum, j'ai pu réaliser dans un de mes classeur une macro me permettant de comparer les informations contenues dans plusieurs feuilles du classeur.

Voici la description de ma macro :

J'ai un classeur Excel comportant trois feuilles :
"Liste" ;
"Inscrits" ;
"Resultats".

Chaque feuille se compose de la même manière : plusieurs colonnes (Nom, Prénom, n°, Adresse, code postal, ville, …) chaque ligne représente une personne différente. Les feuilles : " Liste " comporte 4000 personnes, la feuille "Inscrits" comporte 1000 personnes et la feuille « résultats » ne comporte aucune personne.

La macro réalise le travail suivant : comparer les enregistrements pressent sur les feuilles " Liste " et "Inscrits" et complétant la feuille "résultat" avec les personnes qui ne sont présents que sur la feuille "Liste" et complète les colonnes de la feuille "résultats" avec les infos correspondant de chaque personne n'existant que dans la feuille "Liste".

Le résultat ce trouve dans le fichier joint.

Mes problèmes actuels sont les suivants :

1. Il semble que ma macro ne fonctionne pas si il y a des lignes « vides » dans le tableau.
2. Je voudrais que la comparaison ne s'effectue que sur les deux premières colonnes c'est a dire :Nom et Prénom mais que si la personne n'existe que dans la feuille " Liste " l'ensemble de ses informations (Nom, Prénom, n°, Adresse, code postal, ville, …) soit copiées dans la feuille "résultat".

Quelqu'un aurait il une idée, une remarque, une piste ?

Svp Merci

Raphaël

[patricktoulon]

bonjour


je n'ai pas regarder ton fichier

mais le principe est simple

1 determiner le nombre de ligne utilisée dans le "liste"

2 determiner le nombre de ligne utilisée dans le "inscrit"

donc pour la liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sub trouve_les_difference()
 'a supposé que les nom soit en colonne "A"
for i= 1 to sheets("liste").Range("A65536").End(xlUp).Row'boucle de 1 jusqua la derniere ligne utilisée du sheets liste
for e =  1 to sheets("inscrit").Range("A65536").End(xlUp).Row'boucle de 1 jusqua la derniere ligne utilisée du sheets inscrit
if sheets("liste").cells(i,1)=sheets("inscrit").cells(e,1) then 
'si il existerien du tout
else
sheets("resultat").cells(sheets("resultat")").Range("A65536").End(xlUp).Row,1=sheets("liste").cells(i,1)
end if 
next e
next i
end sub

voila en gros le principe


au plaisir

[Docmarti]

Ta macro fonctionne si tu ne mets que les colonnes A et B dans les tableaux, pour que la comparaison ne s'effectue que sur les deux premières colonnes.

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
col = 2
 
For Each c In plgA
'CONCATENER chaque cellule Colonne 1 à 4 de chaqu'une des lignes des tableau A et B
' et renseigne les listA et lisB, pour éviter les doublons
    For i = 1 To col
    a = a & "," & Sheets("Liste").Cells(c.Row, i)
    Next
        ReDim Preserve listA(x)
      listA(x) = Right(a, Len(a) - 1)
      a = ""
      x = x + 1
Next
 
 For Each c In plgB
 For i = 1 To col
  b = b & "," & Sheets("Inscrits").Cells(c.Row, i)
 Next
 ReDim Preserve listB(xb)
      listB(xb) = Right(b, Len(b) - 1)
      b = ""
      xb = xb + 1
Next

[gFZT82]

Bonjour Raphael39,

Voici une variante

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
Sub Macro1()
Dim plgA As Range, plgB As Range, c As Range
Dim listA(), listB()
Dim i As Integer, xa As Integer, xb As Integer, col As Integer
 
Set plgA = Sheets("Liste").Range("A2:A" & Sheets("Liste").Range("A65536").End(xlUp).Row)
Set plgB = Sheets("Inscrits").Range("A2:A" & Sheets("Inscrits").Range("A65536").End(xlUp).Row)
col = Sheets("Liste").Range("IV1").End(xlToLeft).Column
 
For Each c In plgA
'CONCATENER les Noms et prénoms de la feuille "Liste"
    With Sheets("Liste")
        ReDim Preserve listA(xa)
        listA(xa) = .Cells(c.Row, 1) & .Cells(c.Row, 2)
    End With
    xa = xa + 1
Next
 
For Each c In plgB
'CONCATENER les Noms et prénoms de la feuille "Inscrits"
    With Sheets("Inscrits")
        ReDim Preserve listB(xb)
        listB(xb) = .Cells(c.Row, 1) & .Cells(c.Row, 2)
    End With
    xb = xb + 1
Next
 
'vérifier si chaque item de listA est présent dans listB
'si non présent, copie les données correspondantes de la feuille liste sur la feuille résultat en commencant à la
'ligne 2
 
For i = 0 To UBound(listA)
  If IsError(Application.Match(listA(i), listB, 0)) Then
    With Sheets("Liste")
        Set MaPlage = .Range(.Cells(2 + i, 1), .Cells(2 + i, col))
    End With
    MaPlage.Copy Sheets("résultat").Range("A" & 2 + x)
    x = x + 1
  End If
Next i
 
Set plgA = Nothing
Set plgB = Nothing
Set MaPlage = Nothing
 
End Sub

Cordialement.