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

semir

XLDnaute Nouveau
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.

VB:
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
 

Pièces jointes

  • Test.xlsm
    17.7 KB · Affichages: 13

D.D.

XLDnaute Impliqué
Ceci dit, une MFC serait pas mal aussi.

upload_2019-1-10_17-40-45.png
 

Discussions similaires