Se repérer sur une ligne

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

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

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

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