Surligner la ligne cliquée

Bonjour à tous,

Ma premiére aide sur un petit tableau excel remplit

Le but est de surligner en jaune la ligne cliquée, cela permet de ne pas avoir à rechercher les données de la ligne si vous quittez les yeux de l'écran', utile quand on y passe du temps.

Pour voir ce que çà donne, ouvrez le fichier excel exemple1.

Pour cela, vous devez recopier le code suivant dans affichage/macros/afficher les macros/modifier (il faut au moins une micro enregistrée)/feuil1 (image 'ligne cliquée surlignee') :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A4:AH10")) Is Nothing Then
Range("A1").Value = Target.Row
End If
End Sub

Pour la couleur de la ligne, il faut aller dans "mise en forme conditionnelle" et "gérer les lignes", puis renseigner les 3 champs comme indiquer sur l'image 'couleur ligne'.

Des questions ?

merci

Franck

ligne cliquee surlignee couleur ligne
150exemple-1.xlsm (15.84 Ko)

Bonjour toutes et tous

Exact c'est utile merci à toi

crdlt,

André

Bonjour

Je voudrais un petit complément à cette fonction qui est bien utile.

Si on clique sur une case qui est en dehors de la plage "A4:AH10" je voudrais que la case A1 passe à 0 ce qui désélectionnerait le surlignage.

Bonjour,

Une proposition avec les données sous forme de tableau structuré.

Cdlt.

45exemple-1.xlsm (24.09 Ko)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lr As Long
    If Not Target.ListObject Is Nothing And Target.Count = 1 Then
        With Me.ListObjects(1)
            .DataBodyRange.Interior.Color = xlNone
            lr = Target.Row - .HeaderRowRange.Row
            If lr > 0 Then .ListRows(lr).Range.Interior.Color = RGB(255, 255, 153)
            Me.Cells(1) = lr    'ou Target.Row
        End With
    Else
        Me.ListObjects(1).DataBodyRange.Interior.Color = xlNone
        Me.Cells(1) = vbNullString
    End If
End Sub

Bonjour

Quand je tape le code, ça bloque sur la ligne

Me.ListObjects(1).DataBodyRange.Interior.Color = xlNone

je ne vois pas la raison

Bonjour,

La seule raison est que le tableau est vide !...

Cdlt.

Rechercher des sujets similaires à "surligner ligne cliquee"