Bonjour à Tous,
Voilà le problème que j'essaye de résoudre:
Dans une feuille excel, j'ai une liste d'allergènes
Dans une autre feuille (même classeur), j'ai une liste de produits et leurs ingrédients. Certains de ces ingrédients sont des allergènes.
Je dois détecter si ces allergènes sont présents dans les produits et, s'ils existent, les mettre en gras afin qu'ils soient plus facilement repérables.
Pour l'instant je bloque car le composé allergène est détecté mais pas mis en gras,
Le code que j'utilise:
Sub texteengras()
Dim a As String
a = "Catalogue"
Dim b As String
b = "Allergènes"
c = "Trad. Danois"
Dim i, j As Integer 'i et j= indices pour feuille "Allergènes"
Dim derlig_b As Long
derlig_b = Sheets(b).Range("B65536").End(xlUp).Row
Dim y, z As Integer 'y et z= compteurs pour feuille Trad. Danois
Dim derlig_c As Integer
derlig_c = Sheets(c).Range("E65536").End(xlUp).Row
i = 3
For y = 2 To derlig_c
string_c = Sheets(c).Range("E:E").Cells(y, 1)
allergene = Sheets(b).Range("B:B").Cells(i, 1)
pos = InStr(Sheets(c).Range("E:E").Cells(y, 1), allergene)
longueur = Len(allergene)
While pos > 0
For i = 3 To derlig_b
allergene = Sheets(b).Range("B:B").Cells(i, 1)
pos = InStr(Sheets(c).Range("E:E").Cells(y, 1), allergene)
string_c = Replace(string_c, allergene, Sheets(b).Range("B:B").Cells(i, 1).Font.Bold = True)
Next i
Wend
Next y
End Sub
Je vous remercie de votre aide pour me sortir de l'ornière...