Lien entre deux feuilles Excel
Bonjour,
J'ai un petit souci de formule pour lié deux tableau excel qui ne sont pas dans la même feuille.
tableau 1 : C'est un tableau recensant mes clients (+leurs informations, ex : mails, nom dirigeant, nb salarié etc....) et leurs affectations (le nom de mes collègues qui sont en charge du dossier)
tableau 2 : C'est un tableau qui recense uniquement les affectations ex :
Michel ; entreprise A, entreprise B....
Céline ; entreprise D, entreprise F....
(Exemple en fichier joint)
Je voudrais que lorsque que dans mon premier tableau je note le nom de l'entreprise et le collègue qui s'en charge, le nom de l'entreprise vienne se mettre automatiquement dans le tableau 2 sous le nom du collègue qui s'en occupe.
Je n'arrive pas a trouvé la formule qui ne me mettra pas "VALEUR" ou un message d'erreur.
HELP.
Bonjour,
un essai ici
P.
ou encore en VBA:
Sub regrouper_affectation()
'
' 11/2015
'
Set f = Sheets("feuil1")
Set f1 = Sheets("feuil2")
Set d = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
f.Select
For Each c In f.[e5].Resize(Application.CountA(f.[e:e]))
If c.Value <> "" Then
If Not d.exists(c.Value) Then
d(c.Value) = c.Offset(, -4)
Else
d(c.Value) = d(c.Value) & "|" & c.Offset(, -4)
End If
End If
Next c
ligne = 4: col = 18
f1.Select
For Each c In d.keys 'pour chaque personne
f1.Cells(ligne, col) = c
a = Split(d.Item(c), "|")
f1.Cells(ligne + 1, col).Resize(UBound(a) + 1) = Application.Transpose(a)
col = col + 1
Next c
f1.Select
End Sub
Wah super !!!! Ça marche nickel
Merci pour la réponse très rapide ! Par contre la formule est hyper compliqué il faut s'accrocher !
En tout cas merci encore ça faisait des semaines que je cherchais à faire fonctionner mes formules.
Bonjour, formule matricielle à coller en A4 et à étirer pour l'ensemble du tableau
=SIERREUR(INDEX(Feuil1!$A$5:$A$67;PETITE.VALEUR(SI(Feuil1!$E$5:$E$67=Feuil2!A$3;LIGNE(Feuil1!$E$5:$E$67));LIGNE(A1))-4);"")