Changer la couleur de police si double clic autre cellule

Bonsoir,

Voila le topo, j'ai un fichier ou à une ligne donnée un double clic en G, cela colore cette cellule en vert mais aussi affiche la date en I. Je souhaite qu'en plus de cela, la couleur de la police en B deviennent noire.

Merci par avance.

PS : n'oubliez pas d'activer les macros.

Bonsoir,

Le code actuel fait seulement ce qui est fait en ligne 8.

Ta macro fonctionne bien sur toutes les lignes

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 7 Then
    Cells(Target.Row, 7).Interior.ColorIndex = 4
    Cells(Target.Row, 9) = Date
    Cells(Target.Row, 2).Font.ColorIndex = 1
End If

If Target.Column = 8 Then
    Cells(Target.Row, 7).Interior.ColorIndex = 2
End If
End Sub

Pour la 2ème partie, colonne H, ne faudrait-il pas effacer la date ?

Amicalement

Claude

Oui, merci c'est bon.