afficher les noms en relation avec des noms de la colonne A Fermé

Question

Bonsoir à tous et à toute ,

Je travaille sur un sujet dans lequel :

Dans la colonne A: j'ai 135 noms  de personnes.
Dans la colonne B: j'ai 4358  lignes où dans chaque cellule ; il y'a deux noms ou  plus et ces dernier sont séparés par un virgule .
 
Ma problématique consiste à  afficher dans une troisième colonne   pour chaque noms  de la cellule A ;  les noms de tous les personnes   que celle de la colonne Apparaît avec eux dans la colonne B et les compter par suite . 

Voici un exemple:

Soit un nom de la colonne A: Alberto O. Mendelzon

ce nom apparaît  3 fois dans la colonne B:

-B313 :Alberto O. Mendelzon, Alejandro A. Vaisman
- B343: Davood Rafiei, Alberto O. Mendelzon
- B50 : Alberto O. Mendelzon, Alejandro A. Vaisman

=> j'aurai un resultat dans une cellule de la colonne C :
 Alberto O. Mendelzon, Alejandro A. Vaisman ,Davood Rafiei. 
==> le nombre de personne est 2.

Remarque (j'ai enlever la redondance)

le fichier ci joint contient les informations sur les quelle je travaille.

https://www.cjoint.com/c/EIjaETSoghE 

Merci d'avance .
Cdlmt.

Raymond PENTIER · Answer

Salut.

Il y en a 612 !

Gyrus · Answer

Bonjour,

Une proposition avec une macro VBA
https://www.cjoint.com/c/EIjlDhbl46t

A+

eriiic · Answer

Bonjour,

avec une macro.
Regarde si ça correspond : https://www.cjoint.com/c/EIjlFGSiWom
eric

0548 · Answer

Re Bonsoir , 

j'ai pu résoudre mon problème à l'aide de  vos macro. 
j'ai utilisé ce code là :

Option Explicit

Sub Lister ()
Dim Dico, d
Dim Cel As Range, C As Range
Dim Tablo
Dim i As Byte
Dim Texte As String
Dim Nb As Integer

    Set Dico = CreateObject("Scripting.Dictionary")

    With Worksheets("Sheet1")
  For Each Cel  In .Range("A2:A" & Range("A" &Rows.Count).End(xlUp).Row)
            Nb = 0
            Texte = ""
    For Each E In .Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
                If InStr(C, Cel) > 0 Then
                    Nb = Nb + 1
                    Tablo = Split(E, ";")
                    For i = 0 To UBound(Tablo)
             If Not Dico.Exists(Trim(Tablo(i))) Then Dico(Trim(Tablo(i))) = ""
                    Next i
                End If
            Next C
            For Each d In Dico.keys
                Texte = Texte & d & ", "
            Next d
            Cel1.Offset(0, 2) = Nb
            If Texte <> "" Then Cel.Offset(0, 3) = Left(Texte, Len(Texte) - 2)
            Dico.RemoveAll
        Next Cel
         End With
End Sub


Mais maintenant j'aimerai faire le même travail , pour  les  nouveaux  noms  qui sont affichés dans la colonne D. 


j'ai ajouté des variables et j'ai refais le même travail ,  en remplaçant C par E et d par   f etc.. ;  mais j'ai pas  eu le résultat que veux. 

La raison est    que  j'ai maintenant plusieurs noms , séparées par  des virgules . 

j'ai  voulu jouer sur les fonction (left ; right ; search ;..) mais j'ai pas pu trouvé une méthode exacte pour tous le  fichier . 
Je vous reviens en aide pour savoir comment faire Pour chercher tous les noms de la nouvelles colonnes D en B ?

Afficher les noms en relation avec des noms de la colonne A

4 réponses

Discussions similaires