Bonjour,
J'ai un bordereau, contenant des mots clés que je dois les mettre en gras,
Les mots clés sont cités just a coté dans un autre tableau, la liste peut être modifiée, , d'autre elements peuvent être ajoutés.
Le code VBA doit trouver les mots clés dans le tableau de gauche a partir du tableau de droite, et les met en Gras
Le code ne fonctionne pas, au niveau de la fonction instr,
Quelqu'un peut m'aider !
Merci en avance
Sub Mots_clés_en_gras()
Dim O As Worksheet 'variable O (Onglet)
Dim DLT As Integer 'variable DL (Dernière Ligne)
Dim DLR As Integer 'variable DL (Dernière Ligne Recherche)
Dim PL As Range 'variable PL (PLage)
Dim PR As Range 'variable PR (Produit à Rechercher)
Dim i As Integer
Dim j As Integer
Set O = ActiveSheet 'définit l'onglet O
DLT = O.Cells(Application.Rows.Count, "E").End(xlUp).row 'définit la dernière ligne éditée DL de la colonne E de l'onglet O
DLR = O.Cells(Application.Rows.Count, "M").End(xlUp).row 'définit la dernière ligne éditée DL de la colonne M de l'onglet O
Set PL = O.Range("E5:E" & DLT) 'définit la plage bordereau
Set PR = O.Range("M5:M" & DLR) 'définit la plage recherche
For j = 0 To DLR 'boucle 1 : sur toutes les lignes du bordereau
For i = 0 To DLT 'boucle 2 : sur tous les produits à rechercher
'condition : si le produit à recherche est contenu dans la cellule de la boucle
If InStr(1, LCase(O.Cells(i, "E").Value), LCase(O.Cells(j, "M").Value), vbTextCompare) <> 0 Then
Cell.Interior.ColorIndex = 4 ' juste pour tester par des couleurs s'il detecte la cellule oups
End If 'fin de la condition
Next i 'prochain produit de la boucle 2
Next j 'prochaine ligne de la boucle 1
End Sub