IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Comparer 2 feuilles


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2011
    Messages : 2
    Par défaut Comparer 2 feuilles
    Bonjour,
    voilà je voudrais comparer 2 feuilles excel qui contiennent en A= nom en B=prénom et je souhaiterais que les personnes communes aux deux listes s'affichent peut être sur une 3eme feuille.
    merci pour votre aide.
    jdtd21
    Fichiers attachés Fichiers attachés

  2. #2
    Membre extrêmement actif
    Homme Profil pro
    Inscrit en
    Septembre 2013
    Messages
    1 369
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Septembre 2013
    Messages : 1 369
    Par défaut
    Bonjour,

    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
     
    Sub Communs()
      Set f1 = Sheets("feuil1")
      Set f2 = Sheets("feuil2")
      Set f3 = Sheets("feuil3")
      Set MonDico1 = CreateObject("Scripting.Dictionary")
      For Each c In f1.Range("A2:A" & f1.[A65000].End(xlUp).Row)
         MonDico1(c & "*" & c.Offset(, 1)) = ""
      Next c
      Set MonDico2 = CreateObject("Scripting.Dictionary")
      For Each c In f2.Range("A2:A" & f2.[A65000].End(xlUp).Row)
        tmp = c & "*" & c.Offset(, 1)
        If MonDico1.exists(tmp) Then If Not MonDico2.exists(tmp) Then MonDico2(tmp) = ""
      Next c
      f3.[a:b].ClearContents
      f3.[A2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
      Application.DisplayAlerts = False
      f3.[A2].CurrentRegion.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
            :="*", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    End Sub
    Jacques Boisgontier

Discussions similaires

  1. [XL-2007] Comparer 2 feuilles Excel et afiicher dans des feuilles résultats
    Par OniSILVER dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 25/11/2009, 12h03
  2. Comparer 2 feuilles et 4 colonnes
    Par calixe dans le forum Excel
    Réponses: 4
    Dernier message: 20/03/2009, 21h56
  3. comparer deux feuilles excel ss VBA
    Par washh dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 26/08/2008, 16h14
  4. comparer deux feuilles du même classeur
    Par ririrourou dans le forum Macros et VBA Excel
    Réponses: 30
    Dernier message: 20/05/2008, 11h51
  5. Comparer 2 feuille et si existe effacer la ligne existante
    Par sterkasor dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 19/10/2006, 16h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo