Couleur cellule active

bonjour tous le monde,

J'ai fait des recherches sur le forum, sur le net, et je n'arrive pas à appliquerce que j'ai pu trouver.

Je m'explique.

Sur une feuille precise, je cherche à changer la couleur d'une cellule quand celle-ci est active

Quand je passe sur une autre cellule, il faudrait qu'elle reprenne sa couleur d'origine (couleur gris tres foncé)

Merci pour vos conseils.

Bonjour,

Une proposition

A+

Bonjour tous le monde, Bonjour Frangy,

merci pour cette proposition qui restera une version 1 parfaite !! merciii beaucoup.

Ptite question dans ton code

Si je veux que cela fonctionne uniquement sur G9 G12 H15 G 18 G21 G24 I24 G27 comment faire?

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("C5:F14").Interior.ColorIndex = 16
    If Not Application.Intersect(Range("C5:F14"), Target) Is Nothing Then
        ActiveCell.Interior.ColorIndex = 6
    End If
End Sub

merci encore

j'ai trouvé, merci

    Option Explicit
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Range("G9, G12, H15, G18, G21, G24, I24, G27").Interior.ColorIndex = 16
        If Not Application.Intersect(Range("G9, G12, H15, G18, G21, G24, I24, G27"), Target) Is Nothing Then
            ActiveCell.Interior.ColorIndex = 6
        End If
    End Sub

Bonjour,

je me permet de déterrer ce sujet car ma question est très proche !

Je cherche aussi à colorer ma cellule active, sauf que j'ai déjà des MFC qui colorent ma ligne et colonne correspondant à ma cellule active, cf fichier en PJ. Comment faire car 2 MFC + macros en même temps :: ?

La solution précédente ne me convient pas à cause de mes MFC...

merci à vous

Bonjour,

Il te suffit de modifier ta macro évènementielle ...

Et de lui indiquer que de ne pas s'éxécuter s'il existe une MFC sur la cellule active ....

Pas bête j'étais focalisé sur les MFC...

j'ai essayé de rajouter la dernière ligne dans mon code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ThisWorkbook.Names("ActiveRow")
        .Name = "ActiveRow"
        .RefersToR1C1 = "=" & ActiveCell.Row
    End With
    With ThisWorkbook.Names("ActiveColumn")
        .Name = "ActiveColumn"
        .RefersToR1C1 = "=" & ActiveCell.Column
    End With
    ActiveCell.FormatConditions.Delete
End Sub

Sauf que du coup je supprime totalement la MFC à cet endroit et lorsque je clic à côté la cellule apparait blanche...

je suis sur la bonne voie ? ^^

Re,

Merci pour ton commentaire très élogieux .....

Pas bête

Cela dit ... tu n'as pas compris ce que je voulais te dire ...

Perso ... je pensais au code suivant ....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.FormatConditions.Count > 0 then Exit Sub    
   With ThisWorkbook.Names("ActiveRow")
        .Name = "ActiveRow"
        .RefersToR1C1 = "=" & ActiveCell.Row
    End With
    With ThisWorkbook.Names("ActiveColumn")
        .Name = "ActiveColumn"
        .RefersToR1C1 = "=" & ActiveCell.Column
    End With
End Sub

En espèrant que cela réponde à ta question ...