Microsoft 365 croiser deux listes

[biba78]

Bonsoir à tous,
besoin de votre aide
je souhaite croiser deux listes A et B et afficher :

• Dans un 1er onglet les données disponibles dans la feuille A et non présentes la feuille B
• dan un 2eme Onglet les données disponibles dans la feuille B et non présentes la feuille A

en pièce jointe un exemple simplifié

Cordialement

 

[Hasco]

Bonjour,

Vous avez excel 365 et vous n'utilisez pas toutes les fonctionnalités apparues depuis 2007 en gardant le format de fichier .xls (dépassé depuis 2007).

Dans le fichier joint, j'ai utilisé powerquery (inclus dans votre version) pour joindre les deux tables.
Quand les données changent il suffit de cliquer dans Données/Actualiser Tout

Cordialement

 

[biba78]

Bonjour
merci pour votre retour, j'avoue que j'ai récupéré un fichier sur le forum pour extraire les communs dans un onglet et il me manquer les non communs en plus je n'ai jamais utilisé le powerquery lll
j'ai mal formulé ma demande car j'avais besoin d'une macro à exécuter a chaque rafraichissement de données
cordialement

 

[Hasco]

Re,

Ca servira à d'autre alors.

Bon week-end

 

[biba78]

je viens de vérifier il n'est pas disponible !!

 

[JHA]

Bonjour à tous,

Un essai par formule et des plages nommées

JHA

 

[chris]

Regarde la pièce jointe 1094562
je viens de vérifier il n'est pas disponible !!

Bonjour

PowerQuery n'est pas un complément sur ta version : il est totalement intégré à Excel depuis la version 2016.

Accessible depuis l'onglet Données

 

[job75]

Bonjour biba78, Roblocho, JHA, chris,

Une solution VBA classique dans le fichier joint avec cette macro paramétrée :

Sub MAJ(F As Worksheet, ncol%, A As Worksheet, B As Worksheet)
Dim d As Object, tablo, i&, x$, j%, n&, dk, s
Set d = CreateObject("Scripting.Dictionary")
tablo = A.[A1].CurrentRegion.Resize(, ncol) 'matrice plus rapide
For i = 2 To UBound(tablo)
    x = ""
    For j = 1 To ncol
        x = x & Chr(1) & tablo(i, j)
    Next j
    d(x) = ""
Next i
tablo = B.[A1].CurrentRegion.Resize(, ncol) 'matrice plus rapide
For i = 2 To UBound(tablo)
    x = ""
    For j = 1 To ncol
        x = x & Chr(1) & tablo(i, j)
    Next j
    If d.exists(x) Then d.Remove x
Next i
n = d.Count
If n = 0 Then GoTo 1
'---déconcaténation---
dk = d.keys 'tableau base 0
ReDim tablo(1 To n, 1 To ncol) 'tableau base 1
For i = 1 To n
    s = Split(dk(i - 1), Chr(1))
    For j = 1 To ncol
        tablo(i, j) = s(j)
Next j, i
'---restitution--
1 If F.FilterMode Then F.ShowAllData 'si la feuille est filtrée
With F.[A2] '1ère cellule de destination, à adapter
    If n Then .Resize(n, ncol) = tablo
    .Offset(n).Resize(F.Rows.Count - n - .Row + 1, ncol).ClearContents 'RAZ en dessous
End With
With F.UsedRange: End With 'actualise la barre de défilement verticale
End Sub

Elle est appelée par les Worksheet_Activate quand on active l'une des 2 dernières feuilles.

Utilisant des tableaux VBA et le Dictionary elle est très rapide.

A+

 

[Modeste geedee]

Vous utilisez excel et vous n'utilisez pas toutes les fonctionnalités de feuilles de calculs ???
et en gardant le format de fichier .xls (dépassé depuis 2007).

mettre les données sous forme de tableaux structurés

dans tableau A
ajouter une colonne "Dispo" :
=NB.si(tableauB!B:B;TableauA!B2)
Dans tableau B
ajouter une colonne "Dispo" :
=NB.si(tableauA!B:B;TableauB!B2)

utilisez les filtres
Dispo = 0

l'extension des données et les mises à jour sont automatiques
le report de formule également