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.
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
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 SubVoici 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