Fusionner les données entre deux listes

centurion

XLDnaute Junior
Bonjour

J'ai une "liste de locaux" et une "liste d'occupants".
J'aimerais importer des données de la "liste d'occupants" vers la "liste de locaux" et faire correspondre
les occupants avec les locaux ou ils se trouvent (voir fichier annexe).

En vous remerciant par avance

Cordialement

Centurion
 

Pièces jointes

  • listes.xlsx
    13.5 KB · Affichages: 37
  • listes.xlsx
    13.5 KB · Affichages: 41

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Fusionner les données entre deux listes

Bonjour,

Code:
Private Sub Worksheet_Activate()
   Set d = CreateObject("Scripting.Dictionary")
   Set f = Sheets("liste occupants")
   For Each c In f.Range("a2", f.[a65000].End(xlUp))
     d(c.Value) = d(c.Value) & c.Offset(, 1).Value & ";"
   Next c
   Set f = Sheets("liste locaux")
   For Each c In f.Range("a2", f.[a65000].End(xlUp))
     If d.exists(c.Value) Then
       c.Offset(, 3) = UBound(Split(d(c.Value), ";"))
       c.Offset(, 4) = Left(d(c.Value), Len(d(c.Value)) - 1)
     Else
       c.Offset(, 3) = "vide": c.Offset(, 4) = "aucun"
     End If
   Next c
End Sub

JB
 

Pièces jointes

  • Copie de listes-1.xls
    81 KB · Affichages: 59
Dernière édition:

Discussions similaires

Réponses
13
Affichages
1 K

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth