comparaison de colonnes

  • Initiateur de la discussion Initiateur de la discussion arno44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

arno44

Guest
Bonjour,

je souhaite comparer plusieurs collones afin de faire un tri.
Peut on effectuer cette opération en utilisant un filtre élaboré ou doit on passer par une macro ?

J'ai essayé avec les filtres mais sans succès.

Merci de votre aide
 

Pièces jointes

Re : comparaison de colonnes

Bonjour
tout d'abord, en A2, D4 et F4, le même titre (Material)
tu sélectionnes de A1 à A1612
Tu fais Données/Filtre/Filtre élaboré
tu choisis extraire vers un autre emplacement
Dans la zone de critères, tu mets de D4 à D1271
Et dans Extraire vers, tu mets F4
Et voili

(708 références identiques avec cette procédure)
 
Re : comparaison de colonnes

Bonjour,

http://cjoint.com/?ezoUfUVM42

-Sélectionner 1000 cellules
=communs(A3:A1612;D5😀1271)
-valider avec Maj+Ctrl+entrée

Code:
Function Communs(champ1, champ2)
 Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In champ1
    If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In champ2
    If MonDico1.Exists(c.Value) Then
      If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value
    End If
  Next c
  i = 1
  Communs = Application.Transpose(mondico2.items)
End Function

JB
Formation Excel VBA JB
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
9
Affichages
264
Réponses
7
Affichages
410
Retour