Ligne de repère Résolu/Fermé

Question

Bonjour tout le monde,

J'aimerais savoir s'il était possible de créer une ligne de repère dans un tableau excel.

J'aimerais que lorsque je positionne mon curseur sur une céllule, que toute la ligne sois souligné, ou surligné avec une couleur, pour etre sûr que lorsque je raporte une donnée je ne me trompe pas de ligne.

Merci baucop d'avance


Configuration: Windows XP / Internet Explorer 7.0

f894009 · Answer

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

f894009 · Answer

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

eriiic · Answer

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.

Ligne de repère

3 réponses

Discussions similaires