Ligne de repère

Bonjour,

Pas possible avec "survol" de la souris. Mais avec click droit sur cellule ou changement de selection cellule.

Code a mettre dans VBA de la feuille du tableau
Si tableau de longueur ou/et largeur variable(s) ce code peut etre adapter.

'Evenement Click Droit souris
'----------------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  'Derniere ligne du tableau
  x = 23
  'Plage de cellule a adapter
  If Not Application.Intersect(Target, Range("A2:H18")) Is Nothing Then
    Cancel = True
    'Enleve couleur
    Rows("1:" & x).Interior.Pattern = xlNone
    'Coloriage
    Rows(Target.Row & ":" & Target.Row).Interior.Color = vbYellow
  Else
    'Enleve couleur
    Rows("1:" & x).Interior.Pattern = xlNone
  End If

End Sub

'ou

'Evenement changement de selection cellule
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'Derniere ligne du tableau
  x = 23
  'Plage de cellule a adapter
  If Not Application.Intersect(Target, Range("A2:H18")) Is Nothing Then
    'Enleve couleur
    Rows("1:" & x).Interior.Pattern = xlNone
    'Coloriage
    Rows(Target.Row & ":" & Target.Row).Interior.Color = vbYellow
  Else
    'Enleve couleur
    Rows("1:" & x).Interior.Pattern = xlNone
  End If

End Sub

Bonne suite

Re,

Une facon de faire: changement de couleur ligne sur click gauche ou droit colonne A de 15 a 45 pour votre fichier(parametrable), couleur retourne a lorigine si click sur autre colonne.

https://www.cjoint.com/?BJxmvOqxv1Y

Bonne suite

Bonjour,

Si je peux me permettre, une autre proposition qui évite de mémoriser les mises en forme.
Actif quelque soit la cellule sélectionnée sur la ligne.

A mettre dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    
    Names.Add Name:="ActCell", RefersTo:="=" & ActiveCell.Address    
End Sub 

+ sélectionner la plage concernée et mettre en MFC :
=OU(LIGNE()=LIGNE(ActCell);COLONNE()=COLONNE(ActCell))

https://www.cjoint.com/?BJyh6C7qkNb

eric

edit: Il faut accepter les macros à l'ouverture du fichier en cliquant sur la barre jaune en haut.
Voir éventuellement les réglages dans 'fichier / options / centre de gestion de la confidentialité / paramètres du centre de gestion de la confidentialité / paramètres des macros' : il faut au minimum 'désactiver toutes les macros avec notification'.

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.