La couleur des cellules dans une macro

BONJOUR A TOUS

J'AI BESOIN D'UN PETIT COUP DE MAIN !!

Ja'i une macro qui me fais le tri et les sous totaux dans un tableau qui reprend les colonnes suivantes :

1ere colonne : PAYS

2eme colonne : la date

3eme colonne : le poids

4eme colonne : le volume

5eme colonne : colis

6eme colonne : autres donnes

7eme colonne : autres données

je voudrai savoir comment faire pour que toutes les cellules pleines de mes sous totaux ( colonne 1,3,4,5 ) soient sur fond bleu et ecris en blanc et gras.

Merci d'avance pour votre aide

JEAN PHILIPPE

Bonjour,

Si j'ai bien compris ta question...

La solution que j'utilise d'habitude pour trouver une solution à ce genre de problème est que j'utilise la fonction d'enregistrement de macro et ensuite je vais voir le code, ça donne un bon premier aperçu que l'on peut modifier par la suite...

Dans ce cas-ci, j'ai:

 
With Selection.Interior
        .ColorIndex = 5
        .Pattern = xlSolid
        .Font.ColorIndex = 2
        .Font.Bold = True
End With

Tu peux faire un test (avec un if) avant afin de vérifier que la cellule est bien "pleine"...

Bonjour,

Ne pourrais-tu pas placer un fichier avec données non confidentielles ?

Sinon essaye ce code :

Option Compare Text
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Macro par Dan pour JEANFI59 - 13/08/08 - XLPratique
On Error GoTo fin
Application.EnableEvents = False
Select Case Left(Target, 5)
Case Is = "somme"
With Range(Cells(Target.Row, 1), Cells(Target.Row, 7))
    .Interior.ColorIndex = 5
    .Font.ColorIndex = 2
    .Font.Bold = True
End With
End Select
Application.EnableEvents = True
Exit Sub
fin: Application.EnableEvents = True
End Sub

Code à placer en VBA dans la feuille où se trouvent les sous totaux.

Chaque fois que tu cliqueras sur une cellule comportant le mot "somme", la ligne sera coloriée entre la colonne 1 et la colonne 7

Amicalement

Dan

Merci les gars je vais essayer

à +

JP