VBA pour trouver plusieurs mots, puis les colorer

Salutations ,

J'ai trouvé un bon modèle de macro pour trouver plusieurs mots en même temps dans ce sujet ici .

Je voudrais adapter la macro modèle citée pour trouver les mots dans la colonne F et les formater conditionnellement dans la colonne A avec la couleur d'arrière-plan et la couleur de police comme indiqué dans l'image jointe .

bref, la macro trouvera dans la colonne A les multiples mots de la colonne F puis coloriera dans la colonne A selon l'image jointe .

Bonjour,

A tester

Salutations monsieur M12 ,

J'ai exécuté votre macro de Test, mais la macro coloré toutes les cellules de la colonne A .

La macro doit colorer uniquement les cellules de la colonne A qui contiennent les mots de la colonne F (comme dans l'image que j'ai jointe au début du sujet) .

J'ai joint le fichier avec le résultat de votre macro exécutée ici pour moi .

J'apprécie votre attention et votre aide .

Bonjour,

le code de M12 (bonjour ! ) corrigé :

Sub Test()
    Dim i%, j%, Dl%, Lr%
    Dim Ws As Worksheet
    Set Ws = Sheets("Identification titre & cabinet")
    Dl = Ws.Range("A" & Rows.Count).End(xlUp).Row
    Lr = Ws.Range("F" & Rows.Count).End(xlUp).Row
    Ws.Range("A2  :A" & Dl).Interior.Color = xlNone
    Ws.Range("A2  :A" & Dl).Font.Color = RGB(0, 0, 0)
    For i = 2 To Dl
        For j = 2 To Lr
            If Ws.Cells(i, 1) Like "*" & Ws.Cells(j, 6) & "*" Then
                Ws.Cells(i, 1).Interior.Color = RGB(0, 0, 0)
                Ws.Cells(i, 1).Font.Color = RGB(255, 255, 0)
            End If
        Next j
    Next i
End Sub

Suppression du Exit For dans le cas où il y ait au moins deux expressions de la colonne F dans la ligne testée.

Correction du numéro de colonne F qui est 6 et non pas 1

Correction de la valeur To pour la boucle j qui est Lr et non pas Dl

Ajout d'un : "*" & avant le nom de la cellule de la colonne F pour prendre toutes les possibilités.

Et surtout modification de la macro attribuée au bouton de la feuille, mais ça c'est peut-être une erreur de ma part !

@ bientôt

LouReeD

Salutations monsieur LouReeD ,

maintenant cela a fonctionné parfaitement, merci beaucoup pour votre aide .

câlins pour vous deux .