Liste manquante

[Yacine]

Bonjour tout le monde,

je voudrais si possible obtenir automatiquement une liste des entrées qui ne figurent pas sur les 2 fichiers, Exemple en attaché.

Merci par avance.

 

[Dugenou]

Re : Liste manquante

Bonjour,
Un essai dans un classeur unique avec des formules matricielles (à valider par ctrl+maj+entrée)
j'obtiens un résultat différent du tien : peux tu préciser les conditions pour afficher les valeurs ?

Cordialement

 

[Yacine]

Re : Liste manquante

Merci beaucoup mais ton exemple il en manque des valeurs, ce que je veux obtenir c'est les valeurs manquantes dans les 2 fichiers par exemple le FAL13 manque dans le fichier1 et le FAL46 manque dans le fichier2.

 

[Robert]

Re : Liste manquante

Bonjour Yacine, bonjour le forum,

Peut-être avec cette macro à placer dans un module du classeur destination (Fichier à obtenir.xlsx dans ton exemple). Comme Dugenou je n'obtiens pas le même résultat mais après vérification il semblerait que ce soit toi qui te soit planté...
Le code :

Sub Macro1()
Dim f1 As Workbook 'déclare la variable f1 (Ficher 1)
Dim f2 As Workbook 'déclare la variable f2 (Ficher 3)
Dim cc As Workbook 'déclare la variable cc (Classeur Cible)
Dim o1 As Object 'déclare la variable o1 (Onglet du ficher 1)
Dim o2 As Object 'déclare la variable o2 (Onglet du ficher 2)
Dim oc As Object 'déclare la variable oc (Onglet Cible)
Dim pl1 As Range 'déclare la variable pl1 (PLage de l'onglet 1)
Dim pl2 As Range 'déclare la variable pl2 (PLage de l'onglet 2)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)

Set f1 = Workbooks("Fichier1.xlsx") 'définit le classeur f1
Set f2 = Workbooks("Fichier2.xlsx") 'définit le classeur f2
Set cc = ThisWorkbook 'définit le classeur cc
Set o1 = f1.Sheets("Feuil1") 'définit l'onglet o1
Set o2 = f2.Sheets("Feuil1") 'définit l'onglet o2
Set oc = cc.Sheets("Feuil1") 'définit l'onglet oc
Set pl1 = o1.Range("C4:C" & o1.Cells(Application.Rows.Count, 3).End(xlUp).Row) 'définit la plage pl1
Set pl2 = o2.Range("C4:C" & o1.Cells(Application.Rows.Count, 3).End(xlUp).Row) 'définit la plage pl2
For Each cel In pl1 'boucle 1 : sur toutes les cellules de la plage pl1
    If o2.Columns(3).Find(cel.Value, , xlValues, xlWhole) Is Nothing Then 'condition 1 : si aucune occurrence de la cellule n'est trouvée dans la colonne C de l'onglet o2
        Set dest = oc.Cells(Application.Rows.Count, 3).End(xlUp).Offset(1, 0) 'définit la cellle de destination dans l'onglet cible
        dest.Value = cel.Value 'récupère la valeur de la cellule dans dest
    End If 'fin de la condition 1
Next cel 'prochaine cellule de la boucle 1
For Each cel In pl2 'boucle 2 : sur toutes les cellules de la plage pl2
    If o1.Columns(3).Find(cel.Value, , xlValues, xlWhole) Is Nothing Then 'condition 2 : si aucune occurrence de la cellule n'est trouvée dans la colonne C de l'onglet o1
        Set dest = oc.Cells(Application.Rows.Count, 3).End(xlUp).Offset(1, 0) 'définit la cellle de destination dans l'onglet cible
        dest.Value = cel.Value 'récupère la valeur de la cellule dans dest
    End If 'fin de la condition 1
Next cel 'prochaine cellule de la boucle 2
End Sub

 

[Dugenou]

Re : Liste manquante

Salut,
Il me semble que la valeur FAL13 est bien présente dans le fichier 2.
Mais je crois te comprendre : on ne cherche pas les différences entre les deux fichiers, mais les valeurs absentes d'une liste qu'on a pas mais qui serait tous les chiifres derrière FAL ??

 

[Yacine]

Re : Liste manquante

Exactement

 

[Yacine]

Re : Liste manquante

Je voudrais une colonne qui contient les FAL qui sont dans le fichier1 et qui ne sont pas dans le fichier2, et les FAL qui sont dans le fichier 2 et qui ne sont pas dans le fichier1.

Merci par avance

 

[Robert]

Re : Liste manquante

Bonjour le fil, bonjour le forum,

Yacine, as-tu regardé la proposition que je t'ai faite à 11h46 ?

 

[Yacine]

Re : Liste manquante

Oui Merci beaucoup Robert mais je voudrais savoir s'il y'a des fonctions pour ça car je ne maîtrise pas du tout le code.

 

[Robert]

Re : Liste manquante

Bonjour le fil, bonjour le forum,

Ha tu me rassures Yacine, je croyais que je sentais le pâté... Malheureusement je ne sais faire qu'en VBA, désolé.

 

[Dugenou]

Re : Liste manquante

Yacine,
avec les données de tes deux fichiers :
aucune valeur du fichier 2 ne manque dans le fichier 1
9 valeurs du fichier 1 manquent dans le fichier 2
la valeur FAL46 est bien présente dans le fichier 1 mais pas dans le fichier 2 (idem pour FAL14)

 

[Yacine]

Re : Liste manquante

Je t'ai fait un autre exemple dont voici le fichier joint

Merci beaucoup

 

[Yacine]

Re : Liste manquante

Voici le fichier en attaché.

Merci

 

[Dugenou]

Re : Liste manquante

Pour être bien sûr : dans ta liste de valeurs à obtenir de ton second exemple : il manque FAL45

 

[Yacine]

Re : Liste manquante

oui exactement j'ai omis de le mettre