Problème avec une collection

Bonjour,

Mon fichier excel comporte 2 feuilles :
une feuille avec une colonne qui contient le types d'ingrédients par recette et une feuille qui fait une croix là où les ingrédients sont utilisés :

du type :

feuille 1 :

feuille 2 :

Voici la macro que j'ai trouvé mais au niveau de ma collection il y a un problème (Cf.ligne en rouge).
Je dois faire une macro car les colonnes de ma feuille 1 peuvent bouger (ajout de colonnes etc)

Sub croix()

Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim ingredientlist As New Collection
Set ingredientlist = New Collection
ingredientlist.Add "chocolat"
ingredientlist.Add "oeufs"
ingredientlist.Add "moutarde"
ingredientlist.Add "saucisson"
ingredientlist.Add "viande"
ingredientlist.Add "poisson"
Dim nbingredients As Long
nbingredients = ingredientlist.Count
For j = 1 To nbingredients
For i = 2 To lRow
If Range("Feuil1[ingrédients]")(i) Like ingredientlist(j) Then
Feuil2.ingredientlist(j)(i) = "X"
End If
Next i
Next j
End Sub

Pouvez-vous m'aider svp ?

Merci d'avance !

Bonjour,

Sans fichier....

Ingredientlist correspond à quoi dans votre fichier ? Une combo sur une feuille

Crdlt

ingredientlist est ma collection

Range("Feuil1[ingrédients]") --> pour cette instruction vous êtes en tableau structuré ?

Feuille 1 les ingrédients sont dans une seule colonne ?

Edit : une truc à corriger --> Dim ingredientlist As Collection. Il ne faut pas mettre le New à cette endroit mais bien plus bas comme vous l'avez fait

Bonjour,

Sans VBA, mais Power Query : (si ajout d'ingrédient dans tableau source, clic droit sur tableau vert puis actualiser tout)