Autres Mettre en surbrillance des lignes

Co_Lac · 18 Septembre 2020

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 !

riton00 · 18 Septembre 2020

Bonjour,

Peut-être un truc comme ça?

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = Range("A1:W100")
  If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
     champ.Interior.ColorIndex = xlNone
     col1 = champ.Column
     col2 = col1 + champ.Columns.Count - 1
     Range(Cells(Target.Row, col1), Cells(Target.Row, col2)).Interior.ColorIndex = 36
  End If
End Sub

Slts

Co_Lac · 18 Septembre 2020

Merci pour votre réponse rapide,
Mais le problème avec ce code que j'ai testé ce matin c'est que ça me supprime tout le formatage précédent, couleur des cellules et écriture ?
Et je veux conserver le fichier tel que quand je l'ouvre !

riton00 · 18 Septembre 2020

Re

Peut-être avec une mise en forme conditionnelle

Ps: activer les macros

Slts

Co_Lac · 18 Septembre 2020

ça y est j'ai trouvé !!!
il faut modifier la ligne :
With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)

comme ça :
With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE()=" & ActiveCell.Row)

Je suis content j'ai cherché , j'ai trouvé !
Merci pour votre réponse

Autres Mettre en surbrillance des lignes

Co_Lac

XLDnaute Junior

riton00

XLDnaute Impliqué

Co_Lac

XLDnaute Junior

riton00

XLDnaute Impliqué

Pièces jointes

Co_Lac

XLDnaute Junior

Discussions similaires

Autres Mettre en surbrillance des lignes

Co_Lac

XLDnaute Junior

riton00

XLDnaute Impliqué

Co_Lac

XLDnaute Junior

riton00

XLDnaute Impliqué

Pièces jointes

Co_Lac

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency