colorer ligne si clic sur première cellule d ecette ligne

[eastwick]

Re-re-bonjour le forum, je suis très demandeur aujourd'hui !
Ci-joint tableau. La requête est à l'intérieur. Il faut colorer une ligne si l'on clique sur la première cellule de cette ligne.

En vous remerciant...

 

[Paf]

Re : colorer ligne si clic sur première cellule d ecette ligne

Bonjour

a priori
dans la feuille de code de la feuille titre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    '********** code déjà présent *****************
    'If Target.Column <> 2 Or Target.Row < 23 Then Exit Sub
    'Range("C5") = Target.Value
    '******************************************
    
    If Not Intersect(Target, Range("B23:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
        Range(Target, Target.Offset(0, 12)).Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, -4142, 4)
    End If
End Sub

j'ai mis en commentaire le code déjà présent , à adapter .

Par ailleurs, quel est l'intérêt de fusionner les colonnes C à M à partir de la ligne 23. Un dimensionnement de la colonne C aurait suffit .

A+

 

[eastwick]

Re : colorer ligne si clic sur première cellule d ecette ligne

Merci beaucoup, pour le dimensionnement des colonnes, des infos ont disparu, c'est volontaire.

 

[Paf]

Re : colorer ligne si clic sur première cellule d ecette ligne

Re,

je soulignais le point des cellules fusionnées car c'est la cause de soucis dans les traitements vba , donc si elles ne servent à rien mieux vaut les supprimer.

A+