Se repérer sur une ligne

[Pifou]

Bonsoir à tous,
Est ce qu' il existe un moyen de mettre en évidence la ligne ou se trouve la cellule active pour faciliter le contrôle d'un tableau par exemple si la cellule b12 est active, toute la ligne 12 serait bleue ( exemple)
Cela pourrait être aussi le cas pour la colonne active.
Merci à tous.

 

[@+Thierry]

Bonsoir Pifou,


Dans ce fil j'ai donné une macro qui met le fond de la cellule active en couleur...

Pour le faire par ligne il doit falloir modifier avec "EntireRow", mais probablement il y aura plus de modif... et pour récupérer la couleur éventuelle des cellules préalablement colorées, je pense que ce sera très très compliqué par Row... ou par Colonne...

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=6618&t=6607>

Regarde déjà çà... et tiens nous au courant
BOnne soirée
@+Thierry

 

[Ti]

en fait ça existe déjà, (peut-être pas tout à fait sous cette forme, mais je me souviens que c'était très explicite) mais je ne sais plus du tout où j'ai vu ça. Gaëtant Mourmant peut-être ? va voir sur son site éventuellement
tu peux trouver l'adresse ici dans la rubrique Annuaire je crois

 

[steplof]

Bonsoir,

ai trouvé cette proc qui devrait te rendre service, elle entoure en rouge la ligne et la colonne les 2 rectangles se rejoignant à la cellule active.

Seule problème en l'état elle ne fonctionne pas si on protège des cellules...

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)


'*** Définition des variables ***
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left

'Teste si les rectangles existent déjà.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete

'Ajoute les rectangles
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With

ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"

With ActiveSheet.Shapes("RectangleH")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With


End Sub

 

[Pifou]

Merci à tous pour votre attention, je vais éplucher tout ça