Excel - Faire ressortir les valeurs uniques de plusieurs colonnes

Bonjour à tous !

Cela fait plus d'une heure que je cherche la solution à mon problème, sans succès... J'espère que vous pourrez m'aider !

J'ai besoin de comparer ma listes du personnel sur 2 mois différents.

J'ai donc ressorti mes matricules pour ces 2 listes.

En colonne A : matricule des salariés présents en novembre.

En colonne B : matricule des salariés présents en décembre.

Je souhaiterai afficher dans une nouvelle colonne uniquement les entrées & les sortie, c'est à dire mettre en évidence les matricules présents une seule fois dans les deux colonne confondue.

J'espère que mon explication est claire... D'avance, merci à tous

Bonjour,

voici un exemple,

modification:

j'ai ajouter la liste des valeurs unique,

dit moi si ça convient ?

Bonjour,

Avec une fonction perso.

-Sélectionner J2:J21

=listesansdoublons(A2:B11)

-valider avec maj+ctrl+entrée

Boisgontier

Bonjour,

Merci beaucoup pour vos réponses rapides !

Par contre, je suis vraiment débutante dans Excel et ne n'ai pas vraiment réussi à obtenir le résultat espéré...

Voici le tableau sur lequel je travaille. J'essaie donc de mettre en évidence les entrées et sorties de mes salariés (par rapport au mois précédent), en me référant au "matricule personne physique".

Bonjour,

cf PJ

Boisgontier

Re !

Alors c'est beaucoup mieux que ce que j'ai réussi à faire

Mais ça n'isole pas les matricule uniques... Ça reprend tout le bloc, or j'ai besoin que seuls les nouveaux entrés / sortis (sur décembre par rapport à novembre) soient mis en valeur

cf PJ

Boisgontier

Parfait, c'est exactement ce qu'il me faut !

Peux-tu m'expliquer comment tu fais ces formules ? Pour que je puisse m'en sortir toute seule la prochaine fois

• Alt+F11 pour VB
• Insertion module

Function Diff(champ1 As Range, champ2 As Range)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  a = champ1.Value
  b = champ2.Value
  For Each c In b: MonDico1(c) = c:  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In a
    If Not MonDico1.Exists(c) Then mondico2(c) = c
  Next c
  Dim d()
  ReDim d(1 To Application.Caller.Rows.Count)
  i = 1
  For Each c In mondico2.items
     d(i) = c
     i = i + 1
  Next c
  Diff = Application.Transpose(d)
End Function

-Sélectionner P2:P30

=diff(G3:G19;B3:B19)

-Valider avec maj+ctrl+entrée

Boisgontier

Un grand merci pour tout ça