Discussion :

[alicemv]

Bonjour,
J'ai épluché le forum où cette question revient souvent mais n'ai malheureusement pas trouvé de solution, ou, n'étant pas programmeur, n'ai pas su l'adapter...
J'ai 11 colonnes réparties sur 3 onglets (Notes, Annexes, Illustrations)et souhaiterait les rassembler dans un nouvel onglet (Fichier final). L'identifiant est la colonne REF dans chaque onglet. Une rechercheV peut récupérer les onglets Notes et Annexes mais l'onglet Illustrations a plusieurs occurrences pour le même identifiant et je souhaiterais les afficher dans la même ligne, séparés par des ";".

J'ai un fichier de 6000 références et 20 000 images. Si une âme charitable me trouvait une solution, vous m'enlèveriez une belle épine du pied! :mrgreen:

Merci d'avance

[Igloobel]

Bonjour,

Je suis désolé mais Excel n'est pas fait pour ce que tu veux faire, car je suppose que tu voudras faire des calculs ou des tris ou ...

l'organisation est (à priori vu le peu d'élément à notre disposition) parfaite pour une base de données.

Seulement il va falloir utiliser un vrai SGBD (Sytème de Gestion de Base de Données) comme Access ou Filemaker

[alicemv]

Bonjour Igloobel,
Merci de me répondre. Non pas besoin de tri ni d'aucun traitement. Je vais importer ce fichier dans un SGBD. Je souhaite juste récupérer le nom des images sur une seule ligne avec une fonction type RechercheV mais avec des résultats multiples.

[alicemv]

Du coup je vais essayer de mieux m'expliquer. Dans le fichier joint j'ai 2 onglets : un onglet illustrations avec une colonne ref et une colonne immatriculation et un onglet fichier final avec une colonne ref et une colonne immatriculation. Je voudrais retrouver les ref communes et recopier toutes les immatriculations de l'onglet illustrations dans l'onglet fichier final, mais en ligne dans une cellule séparés par des point virgules.

Merci d'avance,

Alice

[BENNASR]

bonjour
une proposition si j'ai compris la demande

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
Sub test()
Dim f1 As Worksheet
Dim f2 As Worksheet
Dim L As Long
Dim DerLig As Long
Application.ScreenUpdating = False
Set f1 = Sheets("Illustrations")
Set f2 = Sheets("Fichier final")
tablo = f1.Range("A2", "B" & f1.Range("B" & f1.Rows.Count).End(xlUp).Row)
DerLig = f2.Cells(Rows.Count, 1).End(xlUp).Row
f2.Range("B2:B" & DerLig).ClearContents
f1.AutoFilterMode = False
For L = 2 To DerLig
 For i = LBound(tablo, 1) To UBound(tablo, 1)
   If tablo(i, 1) = f2.Cells(L, 1) Then f2.Cells(L, 2) = f2.Cells(L, 2) & "   ;    " & tablo(i, 2)
  Next i
Next L
Application.ScreenUpdating = True
End Sub

[alicemv]

Génial! C'est tout à fait ça! :-)
Sauf que j'ai un fichier de 6000 lignes et quand je copie l'ensemble des données l'action s'arrête à ce que j'avais mis en exemple... Désolée d'être nulle...

[BENNASR]

Les données commence en A2 non??
si tu n'arrive pas à résoudre ton problème joindre un autre exemple avec dizaine de données fictives

[alicemv]

Ca a marché! :-)
Merci infiniment!