Discussion :

[DéesseClem]

Bonjour,

je sèche complétement sur une macro.
J'ai deux tableaux contenant des numéros et je souhaite dans un troisième tableau afficher les numéros qui ne sont présents que dans un seul tableau.
Je vous met en capture le tableau 1 et 2 contenant les numéros et le 3 que je souhaite obtenir.



J'ai hésité à faire une boucle et à comparer toutes les lignes mais ça va tourner trop longtemps.

Avez vous une idée qui pourrait m'aider ?

Merci d'avance,

Clémence

[Invité]

Bonjour,

Soient 3 tableaux structurés :

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
51
52
53
54
55
56
57
58
59
60
61
62
 
Option Explicit
 
Sub Test()
 
Dim Aire1 As Range, Aire2 As Range
Dim LigneTab3 As ListRow
Dim Tableau3 As ListObject
Dim I As Long, Nb As Integer
Dim HeureDebut, HeureFin, TempsTotal
 
    HeureDebut = Timer
 
    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With
 
 
    Set Aire1 = Range("Table1[tab1]")
    Set Aire2 = Range("Table2[tab2]")
    Set Tableau3 = ActiveSheet.ListObjects("Table3")
 
    With Tableau3
         If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With
 
    For I = 1 To Aire1.Count
          Nb = WorksheetFunction.CountIf(Range("Table2[tab2]"), Aire1(I))
          If Nb = 0 Then
             Set LigneTab3 = Tableau3.ListRows.Add
             LigneTab3.Range(1, 1) = Aire1(I)
             Set LigneTab3 = Nothing
          End If
 
    Next I
 
    For I = 1 To Aire2.Count
          Nb = WorksheetFunction.CountIf(Range("Table1[tab1]"), Aire2(I))
          If Nb = 0 Then
             Set LigneTab3 = Tableau3.ListRows.Add
             LigneTab3.Range(1, 1) = Aire2(I)
             Set LigneTab3 = Nothing
          End If
 
    Next I
 
 
    Set Aire1 = Nothing:    Set Aire2 = Nothing
    Set Tableau3 = Nothing
 
    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With
 
    HeureFin = Timer
    TempsTotal = HeureFin - HeureDebut
    MsgBox "Temps total du traitement : " & Round(TempsTotal, 2) & " seconde(s)"
 
 
End Sub

[DéesseClem]

Bonjour,

Je ne comprends pas tout, pourquoi me parlez vous d'heure de fin, de temps total, etc ?

[Invité]

Cela n'a aucune importance. Supprimez ces lignes si vous voulez.

[Philippe Tulliez]

Bonjour,
Ce que vous souhaitez faire c'est matcher des données
Il existe une solution à l'aide de la fonction MATCH
Voir ce billet titré Comment comparer (matcher) des données dans Excel
que l'on peut combiner avec une procédure VBA voir ce billet Exporter les données comparées (« Matchées »)

mais il y a beaucoup plus simple si vous avez une version excel 2010 ou supérieure à l'aide de Power Query. pas de VBA en faisant une fusion des deux tables

[EDIT]

Nous avons deux tables structurées nommées respectivement t-Janvier (bleu) et t_Février (noir) avec une seule colonne mais bien entendu elles pourraient en avoir plus.

Voici les étapes à suivre avec Power Query

1. Sélectionner la première table (le bleu pour l'exemple)
2. Cliquer sur la commande A partir d'un tableau ou d'une plage, du groupe Récupérer et transformer des données de l'onglet [Données]
3. Dans l'éditeur PowerQuery, sélectionner la commande Fermer et charger dans ...
4. Dans la boîte de dialogue Importation de données, choisir Ne créer que la connexion
   Répéter les étapes 1 à 4 pour la seconde table (la noire)
5. Cliquer sur le bouton Obtenir des données et choisir dans la liste Combiner des requêtes et Fusionner
6. Dans la boîte de dialogue Fusionner,
   sélectionner les deux tables dans les listes déroulantes
   sélectionner les colonnes Ref des deux tables (contenant les identifiants uniques)
   choisir comme type de jointure Interne (seules les lignes correspondantes)
7. Enfin dans l'éditeur "PowerQuery", choisir Fermer et Charger. La liste avec les éléments correspondant seront chargés dans une nouvelle feuille d'excel

Si l'on souhaite obtenir la liste des éléments manquants dans la seconde liste par rapport à la première, il y a lieu de choisir à l'étape 6 le type de jointure Gauche opposée

Illustration

Etape 1 & 2



Etape 3



Etape 4



Etape 5



Etape 6