Mise en couleur des lignes de totaux

[JoeGillian]

Bonjour ,

J'ai un fichier comprenant de nombreux sous-totaux: pour les mettre en valeur, j'ai pu -grâce notamment à l'aide de membres du forum-élaborer un code qui fait apparaître les lignes correspondantes en gras et en couleur.
Pourtant , aujourd'hui, cette couleur doit changer : or la couleur choisie est dans la palette Excel une nuance de couleur et la macro ne fonctionne plus.
Pourriez-vous y jeter un oeil et me dire où c'est mal écrit?
Cela m'aiderait bien.

Merci

 

[JHA]

Re : Mise en couleur des lignes de totaux

Bonjour

peut être en rajoutant ce code en "feuil1":
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Décorer2
End Sub

Edit: Oubli cela ne marche pas

JHA

 

[phlaurent55]

Re : Mise en couleur des lignes de totaux

Bonjour à tous,

avec ce code:

Sub Décorer2()
    Dim i&, fin&
    fin = Feuil1.Range("A65000").End(xlUp).Row
For i = 2 To fin
    If Cells(i, 1) = "Total FP07" Then
    Rows(i).Font.Bold = True
    Rows(i).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .PatternTintAndShade = 0
        End With
    End If
Next i
End Sub

à+
Philippe

 

[JoeGillian]

Re : Mise en couleur des lignes de totaux

Merci ,

J'ai rectifié ce qui n'allait pas grâce à vous: le panthéon des héros Excel s'agrandit encore.

A+