Recherche verticale + copier plusieur cellule

Question

Voila ce que j'aimerai pouvoir faire... Dans une feuille A j'ai des 5 numéros à 11 chiffres (sur une même colonne) c'est 5 numéros correspondent à des options pour le client. Dans une feuille B j'ai toute une nomenclature de produit (on va dire qu'il y a 10 options). Sur une ligne j'ai mon numéro a 11 chiffres et en dessous pleins de ligne qui me dit le matériel qui est appelé pour cette option (j'ai des infos sur plusieur colonne - numéro de l'article, description, quantité,...). Mon souhait serait que sur une feuille C, je puisse avoir la nomenclature que pour les options choisies par le client (c'est a dire la même feuille que B mais seulement avec les options marquées sur la feuille donc 5 au lieu de 10 dans mon exemple). Est possible et si oui comment ? merci...

Invité · Answer

Remib comme nouveau membres. Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle. Ca va grandement nous aidez à te trouver une solution. Mytå...

Amadéus · Answer

Après avoir nommé Base, la plage ='Nomenclature 12-01-09'!$B$3:$J$5000 (Commande "Insertion" "Nom" "Définir") Formule en C13 à incrémenter vers la droite et vers le bas =INDEX(Base;EQUIV($A13;$A:$A;0);COLONNE()) Cordialement...

Amadéus · Answer

Je n'avais pas regardé tout le tableau Commentaires dans le fichier https://www.excel-pratique.com/~files/doc/SGBnXtest.xls Cordialement...

Amadéus · Answer

Que fais-tu des références sur la Feuille MNBR qui ne sont pas dans la nomenclature? A te lire Cordialement...

Amadéus · Answer

Pour aller plus vite, le Code suivant (améliorable?)à copier (coller) dans un module, insére une nouvelle feuille sur ton classeur, la nomme Extraction, et donne le résultat concernant les données de la Feuille MNBR Sub Traiter() ' Macro enregistrée le 16/02/2009 par Amadéus Sheets("MNBR").Select Sheets.Add.Name = "Extraction" Sheets("MNBR").Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Extraction").Select Range("B1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(INDEX(Base,MATCH(RC2,'Nomenclature 12-01-09'!R3C2:R5000C2,0),COLUMN())),"""",INDEX(Base,MATCH(RC2,'Nomenclature 12-01-09'!R3C2:R5000C2,0),COLUMN()))" Range("A1").Select Selection.AutoFill Destination:=Range("A1:A" &amp; Range("B1").End(xlDown).Row), Type:=xlFillDefault Range("A1").Select Selection.Copy Range("C1").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.AutoFill Destination:=Range("C1:T1"), Type:=xlFillDefault Range("C1:T1").Select Selection.AutoFill Destination:=Range("C1:T" &amp; Range("B1").End(xlDown).Row), Type:=xlFillDefault Range("A1").Select End Sub Cordialement...

Amadéus · Answer

Puis Il faut être plus précis dans tes demandes. Et aussi, lire les réponses. C'est donc normal qu'il y ait un beug. Cordialement...

Amadéus · Answer

Je pense que nous y sommes Résumons et précisons Quand sur la colonne A de la Feuille MNBR, on trouve une référence (Ex: 57164651-051) correspondant à une référence de la colonne Item (B) de la Feuille Nomenclature..., on repére en colonne A (LvI) de la Feuille Nomenclature..le No correspondant à cette référence (ici 2 à la ligne 37) et sur une autre Feuille, on extrait de la Feuille Nomenclature...toutes les lignes allant de la ligne 37 jusqu'à ce que en colonne A, on retouve le même no 2 dans la colonne Lvl. Soit, dans l'exemple, on extrait de la ligne 37 à la ligne 42 Cela est parfaitement réalisable en VBA, mais, là, mes limites sont dépassées. Espérons un "VBA-ïste" qui ne sera pas rebuté par un téléchargement d' 1 Mo. Cordialement...