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

eastwick

XLDnaute Impliqué
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...
 

Pièces jointes

  • code3.xlsm
    86.9 KB · Affichages: 46

Paf

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

Bonjour

a priori
dans la feuille de code de la feuille titre
Code:
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+
 

Paf

XLDnaute Barbatruc
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+
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou