Surligner une ligne

Bonjour à tous,

Y a-t-il une méthode simple pour surligner toute ligne qui contient le mot "facture" ? Ce mot se trouve dans la colonne C et est soit entouré d'autres mots, soit d'espaces, soit d'underscore.

Merci d'avance pour votre réponse,

Nilla

Bonjour

Voici un bout de code

If Not Intersect(Target, [C1:C6000]) Is Nothing And Target.Count = 1 Then
     Select Case Target.Value
       Case "facture"
         Target.EntireRow.Interior.ColorIndex = 19

Cependant je n'ai pas la solution pour si le mot n'est pas seul dans la cellule

et il te faut changer le code couleur

Cordialement

Bonjour à tous,

Sub essai()
Dim i%
        Application.ScreenUpdating = False
        Range("c3:c30").Interior.ColorIndex = xlNone    'efface couleur
    For i = 3 To 30                                     'plage à régler
        If UCase(Cells(i, "c")) Like "*FACTURE*" Then
            Cells(i, "c").Interior.ColorIndex = 6       'jaune
        End If
    Next i
End Sub

Amicalement

Claude

Bonjour,

je te propose ces quelques lignes de codes a mettre dans le Module de la feuille

Option Explicit
Option Compare Text ' est valable pour les MAJUSCULES ou les minuscules

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Range("C1:C20") ' Plage à adapter
    C.EntireRow.Interior.ColorIndex = IIf(C Like ("*facture*"), 46, xlNone)
Next C
End Sub

A tester

EDIT: Bonjour Dubois

Bonne Journée

Merci à tout le monde,

Vous êtes super réactifs et efficaces