Citer le contenu d'une cellule dans une condition LIKE

Bonjour à toutes et à tous,

Voilà mon problème. J'ai un tableau avec

• sur la première ligne des noms de mobilier (chaise ; table ; armoire ; porte ; ...)
• sur la première colonne une liste du mobilier présent dans chaque pièce (chaise, table ; table ; armoire, table; ...)

Je veux créer une boucle qui parcourt mon tableau et qui renvoie un "1" s'il y a bien une chaise dans la première pièce etc...

J'ai écrit ce code :

Sub attribution_mobilier()

'Rechercher les valeurs du mobilier dans chaque item de local

For i = 0 To 10

item_mobilier = Cells(1, 2 + i)

If Cells(1, 2) Like "* & item_mobilier & *" Then

Cells(2, 2 + i) = 1

End If

Next

MsgBox "fin"

End Sub

Je pense que mon erreur se trouve dans l'opérateur LIKE. Ma question est comment puis-je utiliser le contenu d'une cellule pour le rechercher dans une autre ?

Merci !

Bonjour,

If Cells(1, "B") Like "*" & item_mobilier & "*" Then

Bonjour,

Joins un petit fichier à ta demande !...

Cdlt.

If Cells(1, "B") Like "*" & item_mobilier & "*" Then

Merci pour ta réponse. La syntaxe est bonne, cependant le résultat n'est pas celui souhaité et je ne comprends pas pourquoi...

Joins un petit fichier à ta demande !...

Je le joins ici. Merci !

Yo,

Voilà pour toi

Sub attribution_mobilier()
'Rechercher les valeurs du mobilier dans chaque item de local
For i = 2 To 12
    For j = 2 To 5
        item_mobilier = Cells(1, i)
        If Cells(j, 1) Like "*" & item_mobilier & "*" Then
            Cells(j, i) = 1
        Else
            Cells(j, i) = ""
        End If
    Next
Next
MsgBox "fin"
End Sub

Merci ! Tu m'as même fait la boucle sur les colonnes

Bonne journée à tous.