Rassembler deux tables

Résolu/Fermé
Bonjour,
bonjout tlm
C urgent svp je compte bcp sur quelqu un qui a une reponse, ma question est:
j'ai deux feuilles excel (meme classeur) qui contiennent deux tableaux différents mais qui conserne les information sur les meme personnes, ca veut dire j'ai une colonne client dans les deux feuilles dont une qui contient des clients avec plus d'une répétitions (on peut trouver un meme client avec deux lignes d'informations), mon but est de rassembler les deux tables et sans répeter le client deux fois.(j'ai 37232 clients) je vous attend c urgent
rxcel 2007

5 réponses

  • Votes
  • Date
  • Date décroissante
  1. bonjour,

    1) les urgences : c'est exclusivement à l'hôpital
    2) "urgent" mais pas très clair donc ca va prendre du temps :
    mon but est de rassembler les deux tables et sans répéter le client deux fois

    et que fait on des données des lignes conservées/non conservées. comment ca fonctionne ? que veux tu donc faire ?
    pour être efficace, le mieux :
    - déposer un fichier exemple (sans infos confidentielles) sur http://www.cijoint.fr/ et coller le lien fourni par le site sur votre prochain message
    - rajouter des commentaires et des exemples "à la main" afin de permettre la compréhension du processus à obtenir.
    1. Je vous en remercie infiniment, voulez vous bien rendre les choses plus rapide en me contactant sur ****supprimé par la modération, ??c très important pour moi
      1. voici le lien en tt cas
        http://www.cijoint.fr/cjlink.php?file=cj201006/cij2BZzZap.xlsx
        1. Contributeur
          Salut le forum

          Pour extraire sans doublons les clients des feuilles 1 et 2
          et les copier dans la feuille 3.

          Code à copier dans un module VBA

          Sub Lister_Unique()  
          Dim MonDico As d  
          Dim C As Range  
          
            Set MonDico = CreateObject("Scripting.Dictionary")  
              
          For Each C In Range(Sheets("Feuil1").[B2], Sheets("Feuil1").[B65000].End(xlUp))  
            MonDico.Item(C.Value) = C.Value  
          Next C  
          
          For Each C In Range(Sheets("Feuil2").[B2], Sheets("Feuil2").[B65000].End(xlUp))  
            MonDico.Item(C.Value) = C.Value  
          Next C  
          
          If MonDico.Count > 0 Then Sheets("Feuil3").[B2].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.Items)  
          
          End Sub  
          


          Mytå
          ---
          Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]