Extraire données vers plusieurs feuilles

Ce que je ne comprends pas c'est où se trouve exactement indiquée le nom de la collection dans la liste de reference
Il doit y avoir plusieurs collection sur la liste ou as tu une liste differente par collection ?

Merci pour ta reponse
Le nom de la collection est indique en A1, je l'ai appelle "Collection", chaque collection a un numeros de patern. Une reference d'un article est donc en deux parties, son numeros de collection et son numeros d'item.
Je n'ai mits qu'une collection dans le fichier, cela pose problem ?

Ce que je dois savoir c'est où sont les autres collections ?
Sur la même feuille ? et dans ce cas où ?
Sur une autre liste ? Autrement dit as tu une liste par collection ?

car pour pouvoir copier les données par un code VBA il faut savoir où elles sont, où elles commencent et où elles finissent

Elles sont toutes sur la meme feuille mais avec des espaces entre chaque collection.
J'ai des incoherences dans mes donnes du coup je vais le faire a la main je pense.
si tu peux quand meme me donner la methode vba pour que je sache la prochaine fois.
Encore merci !

C'est ce que je craignais !
Difficile pour le vba de savoir où commencent et où finissent les données, on pourrait tester les espaces mais sont ils toujours identiques? pas sur !
le plus simple (mais faut faire une partie à mano) serait de rajouter à gauche une colonne pour la collection et indiquer en face de chaque article sa collection (il suffit de mettre le nom sur la ligne du 1er article et de tirer vers le bas pour recopier sur les lignes suivantes)
Je prépare une macro sur la base de ce document ainsi "amélioré" et je te post dès que possible

C'est que tu ne dois pas mettre le bon nom de classeur

Change le nom du second classeur que je t'avais envoyé mets un nom simple style"Collections"

Ouvre ce classeur

Puis tu ouvres le premier et tu indiques bien le même nom Collections dans la fenetre de dialogue, ça devrait marcher

je te remets la macro avec des explications

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

ceclasseur = ThisWorkbook.Name 'Recupere le nom du classeur
cettefeuille = ActiveSheet.Name 'recupere nom de la feuille active

If Target.Column > 1 Then Exit Sub 'si le doubleclic a eu lieu en dehors de la colonne 1 sortie de la macro
ligne = Target.Row 'récupere le n° de la ligne du double clic
collec = Target.Value 'recupere la valeur de la cellule du double clic
' boite de dialogue pour demander confrmation
r = MsgBox("Confirmer la recopie des artcles de " & collec, vbYesNo, "RECOPIE DONNEES")

Select Case r 'choix en fonction de la reponse donnée
Case vbNo: Exit Sub 'si clic sur non sortie de la macro
Case vbYes 'si clic sur oui on poursuit

On Error GoTo erreur ' en cas d'erreur aller en dessous à erreur

nomclasseur = InputBox("Nom du classeur OUVERT où recopier les données ?") 'demande nom du classeur
Workbooks(nomclasseur).Activate ' verifie que le classeur demandé est ouvert
' boucle se repetant tant que le nom est identique en colonne 1
Do While Workbooks(ceclasseur).Sheets(1).Cells(ligne, 1) = collec
Sheets("MODELE").Select
Sheets("MODELE").Copy Before:=Sheets("MODELE") 'copie la feuille modele apres l'avoir selectionnéeet place la copie avant la feuille modele
Sheets("MODELE (2)").Select 'selectionne la copie
nomfeuille = "A" & Workbooks(ceclasseur).Sheets(1).Cells(ligne, 2).Value 'recupere le code en colonne 2
Sheets("MODELE (2)").Name = nomfeuille 'donne à la nouvelle feuille comme nom le code recupere

Sheets(nomfeuille).Cells(3, 2).Value = Workbooks(ceclasseur).Sheets(cettefeuille).Cells(ligne, 2).Value 'place en cellule ligne 3 colonne 2 de la nouveille feuille la valeur ligne en cours colonne 2 de la feuille source du fichier source
Sheets(nomfeuille).Cells(4, 2).Value = Workbooks(ceclasseur).Sheets(cettefeuille).Cells(ligne, 4).Value
ligne = ligne + 1 ' augmente le compteur de ligen de 1
Loop 'fin de boucle

End Select ' fin de choix

Exit Sub 'sortie de la macro

erreur: 'ce qui se passe en cas d'erreur
' message d'erreur à afficher
MsgBox ("Operation annulée" & vbNewLine & "Le classeur chosi n'est pas ouvert" & vbNewLine & "ou la feuille à créer existe déjà")
' selectionne la copie du modele crée et l'efface
Sheets("MODELE (2)").Select
ActiveWindow.SelectedSheets.Delete


End Sub


Tiens moi au courant