XL 2016 Format plage de celulle selon critere (Résolu)

[semir]

Bonjour,

Je post une macro que j'ai construite via l'aide de ce Forum.

Ma problematique ici est que je souhaite pour chaque ligne ou le mot total apparait, la mettre en Couleur jusqu'a la colonne P.

J'ai reussi á le faire mais je prend toute la ligne entierement et malgré toute mes recherches je trouve pas de solution.

Sub Presentation3FR()

Dim WS As Worksheet
Dim DerLgn As Long
Dim Lgn As Long

ActiveSheet.UsedRange.Select
  Application.ScreenUpdating = False
     With ThisWorkbook
       For Each WS In .Worksheets
        With WS
         If .Name Like "Direction" Then
           DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
           If DerLgn = 1 Then GoTo suite
             For Lgn = DerLgn To 2 Step -1
              If .Cells(Lgn, 2) Like "*Total*" Then
              .Cells(Lgn, 2).EntireRow.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
                Else
              End If
             Next Lgn
         End If
        End With
suite:
       Next WS
     End With
  Application.ScreenUpdating = True
  End Sub

Voici la macro en Piece jointe. En mode vba si vous la declencher vous verrez que la ligne entiere est mise en bleu mais je n'arrive pas á la limiter á la colonne P.

Pourriez vous svp m'aider pour cela.

Merci beaucoup

 

[D.D.]

Hello,

Mets:
.Range(Cells(Lgn, 1), Cells(Lgn, 16)).Select
au lieu de:
.Cells(Lgn, 2).EntireRow.Select

 

[semir]

Super ! Un grand merci. Bonne soirée

 

[D.D.]

Ceci dit, une MFC serait pas mal aussi.

 

[semir]

D'accord, j'avais decouvert sur le site de Microsoft cette Option tout a l'heure et essayé justement de le faire mais pas reussi non plus.
Merci pour cette deuxieme soluce.