Ligne en surbrillance
Résolumchotard Messages postés 474 Date d'inscription Statut Membre Dernière intervention -
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
4 réponses
-
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 SubSlts
-
merci The_boss_66
Je viens de mettre en place la nouvelle macro, mais j'ai une erreur de compilation sur champ
A+
-
Bonsoir,
Voir deux modèles différents dans deux onglets différents activation macros nécessaire
Slts
-
Merci the_boss_68, j'ai pu personnaliser mon fichier comme je le souhaitais.
Bon WE
Cdlt
