Discussion :

[Deckw]

Bonjour à tous !

Alors, voici un autre problème que je n'ai pas réussi à résoudre à l'aide de fonctions telle que RECHERCHEV, EQUIV et INDEX...
Ou alors je n'ai juste pas trouvé la bonne combinaison.

J'ai une feuille 1 avec une liste de produits.
Dans la colonne A j'ai un identifiant unique pour chaque produit, et dans la colonne B un numéro de production qui peut être le même pour plusieurs produits.

J'ai une feuille 2 avec une liste de code de production.

J'ai une feuille 3 où j'aimerais avoir (de manière automatique à chaque ajout de lignes dans la feuille 1) la liste des identifiants unique des produits selon la liste des codes de production de la feuille 2.


Bon, c'est à s’emmêler les pinceaux, mais voici une petite image pour illustrer.



D'après ce que j'ai pu voir sur certains autres cas similaire mais pas assez pour que je puisse appliquer les solutions, il faudrait que ce soit fait en VBA, car avec des formules ce serait trop long à calculer...
Mais je me trompe peut-être.

N'ayant pas les compétences pour coder en VBA, quelqu'un aurait-il la gentillesse de m'aiguiller sur un script à adapter ?
J'ai farfouillé un peu partout, mais mon cas semble assez particulier :/

Merci et bonne soirée !!

[Invité]

Bonjour,

Avant de développer en VBA, regardez l'utilisation d'une recherche avancée avec le tuto de Philippe TULLIEZ : advancedfilter.
C'est puissant et très rapide. On peut automatiser ensuite la commande.

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Sheets("BD").[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Crit").Range("A1").CurrentRegion, CopyToRange:=Sheets("Extrait").[A1]
   End If
End Sub

Boisgontier