Ligne en surbrillance Résolu/Fermé

Question

Bonjour

J'ai cette macro dans mon fichier qui  comporte les cellules de A1 à S740. Cela fonctionne très bien.

Mais je  souhaiterai pouvoir mettre en surbrillance unique ment de cellule de A4 à S740. Est-ce possible. Tout au moins à partir de la ligne 4 même si la surbrillance se poursuit au delà de la colonne S

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Rows.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 35

End Sub

Merci à tous

mchotard

The_boss_68 · Answer

Bonjour,

Voir code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = Range("A4:S740")
  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 = 35
  End If
End Sub

Slts

mchotard · Answer

merci The_boss_66

Je viens de mettre en place la nouvelle macro, mais j'ai une erreur de compilation sur champ

A+

The_boss_68 · Answer

Bonsoir,

Voir deux modèles différents dans deux onglets différents activation macros nécessaire

Lien ICI

Slts

mchotard · Answer

Merci the_boss_68, j'ai pu personnaliser mon fichier comme je le souhaitais.

Bon WE

Cdlt

Ligne en surbrillance

4 réponses

Discussions similaires