Mettre un gras un mot contenu dans une phrase

[Chopeppe]

Bonjour,
je suis nouveau du site.
Je vous pose mon problème:
J'ai une liste d’ingrédients et parmi ceux-ci il y a en certains que je doit mettre en gras. Pour ça j'ai crée une feuille excell avec les liste d’ingrédients et une feuille qui contient le ingrédients qui doivent être mis en gras(allergene).
Avec le code suivant ça fonctionne bien mais je ne suis pas satisfait parce que il faut que j'ecris dans ma formule chaque allergene1....:

Sub bold2()
Allergene1 = "moutarde"
Allergene2 = "celery"
Allergene3 = "lait"

range("A1").Characters(WorksheetFunction.Find(Allergene1, range("A1").Value, 1), Len(Allergene1)).Font.bold = True
range("A1").Characters(WorksheetFunction.Find(Allergene2, range("A1").Value, 1), Len(Allergene2)).Font.bold = True
range("A1").Characters(WorksheetFunction.Find(Allergene3, range("A1").Value, 1), Len(Allergene3)).Font.bold = True


End Sub


Donc j'ai ecrit ça mais ça ne fonctionne pas :

Sub bold3()
Dim i As Integer, fin As Integer

i = 1
fin = Sheets("Allergenes").Cells(2, 1).End(xlDown).Row + 1

For i = 1 To fin

Allerg = Sheets("Allergenes").Cells(i, 1).Value

range("A1").Characters(WorksheetFunction.Find(Allerg, range("A1").Value, 1), Len(Allerg)).Font.bold = True

Next

End Sub

Quelqu'un peut me dire où je me trompe?
Je vous joint le fichier concerné. Merci pour votre aide!
Giuseppe

 

[Staple1600]

Re : Mettre un gras un mot contenu dans une phrase

Bonjour à tous

Chopeppe [Bienvenue sur le forum]
Ainsi modifiée, ta macro fonctionne sur ce PC
(tant qu'il s'agit que de "bolder" seulement la cellule A1)

Sub bold4()
Dim i As Long, fin As Long
i = 1
fin = Sheets("Allergenes").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To fin
Allerg = Sheets("Allergenes").Cells(i, 1).Value
On Error Resume Next
Range("A1").Characters(WorksheetFunction.Find(Allerg, Range("A1").Value, 1), Len(Allerg)).Font.Bold = True
Next
End Sub

EDITION:
Bonjour pierrejean

 

[pierrejean]

Re : Mettre un gras un mot contenu dans une phrase

Bonjour chopepe

Salut Staple

A tester:

Sub test()
Set allerg = Sheets("Allergenes").Range("A2:A" & Sheets("Allergenes").Range("A" & Rows.Count).End(xlUp).Row)
i = 2
fin = Sheets("Allergenes").Cells(2, 1).End(xlDown).Row + 1
For i = 1 To fin
  For Each cell In allerg
    x = InStr(Sheets("Liste ingredients").Range("A" & i), cell.Value)
    Sheets("Liste ingredients").Range("A" & i).Characters(x, Len(cell.Value)).Font.Bold = True
  Next
Next
End Sub