Co_Lac
XLDnaute Junior
Bonjour,
Je souhaite mettre en surbrillance la ligne en cliquant sur une cellule lui appartenant.
J'ai trouvé ce code sur le net qui fonctionne mais qui décale à chaque clic dans une cellule d'une quantité de lignes vers le bas !
Je m'explique:
Ligne 1 : parfait !
Ligne 2 : Ligne en surbrillance 3
Ligne 3 : Ligne en surbrillance 5
Ligne 4 : Ligne en surbrillance 7
Ligne 5 : Ligne en surbrillance 9
Ligne 6 : Ligne en surbrillance 11
etc....
Et je ne sais pas ou est le problème, sinon le principe correspond à mes attentes !
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zone As Range
Set zone = ActiveCell.CurrentRegion
Cells.FormatConditions.Delete
With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
.Font.ColorIndex = 2
.Interior.ColorIndex = 32
End With
End Sub
Merci pour vos idées !
Je souhaite mettre en surbrillance la ligne en cliquant sur une cellule lui appartenant.
J'ai trouvé ce code sur le net qui fonctionne mais qui décale à chaque clic dans une cellule d'une quantité de lignes vers le bas !
Je m'explique:
Ligne 1 : parfait !
Ligne 2 : Ligne en surbrillance 3
Ligne 3 : Ligne en surbrillance 5
Ligne 4 : Ligne en surbrillance 7
Ligne 5 : Ligne en surbrillance 9
Ligne 6 : Ligne en surbrillance 11
etc....
Et je ne sais pas ou est le problème, sinon le principe correspond à mes attentes !
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zone As Range
Set zone = ActiveCell.CurrentRegion
Cells.FormatConditions.Delete
With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
.Font.ColorIndex = 2
.Interior.ColorIndex = 32
End With
End Sub
Merci pour vos idées !