Colorier une ligne avec macro

bonjour

je cherche une macro qui me permette de colorier une ligne en appuyant sur le début de la ligne et d'enlever cette couleur si j'appuie une seconde fois ...

Fichier test joint

Merci

Ta

Bonjour

regarde ce que tu peux faire avec un post similaire

https://forum.excel-pratique.com/excel/coloriage-d-une-ligne-a-partir-d-un-clic-bouton-t32740.html

ci-joint à remodeler

crdlt,

André

Salut Tacentaure, André,

quelque chose comme ça?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Not Intersect(Target, Range("A:A")) Is Nothing And Target <> "" Then
    iColor = Target.Interior.ColorIndex
    Range("A2:J" & Range("A" & Rows.Count).End(xlUp).Row).Interior.Color = xlNone
    Range("A" & Target.Row & ":" & "J" & Target.Row).Interior.ColorIndex = IIf(iColor = 4, 2, 4)
    [A1].Select
End If
'
Application.EnableEvents = True
'
End Sub

A+

Bonjour (..)

Une autre proposition avec le Clic Droit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim celActu As Range

    Set celActu = Cells(Target.Row, 1)
    If Not (celActu.Value = "") Then
        Application.EnableEvents = False
        Cancel = True
        If celActu.Interior.Color = vbRed Then
            Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Interior.Color = xlNone
        Else
            Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Interior.Color = vbRed
        End If
        Application.EnableEvents = True
    End If

End Sub

Sub RazColor()
    Range(Cells(4, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 10)).Interior.Color = xlNone
End Sub

Bonsoir

Merci à vous tous pour les différentes réponses.....je n'ai plus que faire mon choix, m^me si j'avoue que le code d'André, déjà en place dans mon fichier me simplifie la tache.....

cdt

Ta