Ligne en surbrillance

Résolu

mchotard Messages postés 457 Date d'inscription Statut Membre Dernière intervention -
mchotard Messages postés 457 Date d'inscription Statut Membre Dernière intervention - 21 janv. 2023 à 11:11

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

A voir également:

Ligne en surbrillance
Partager photos en ligne - Guide
Mètre en ligne - Guide
Formulaire en ligne de meta - Guide
Site de vente en ligne particulier - Guide
Aller à la ligne excel - Guide

4 réponses

Réponse 1 / 4

The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention 182

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

Réponse 2 / 4

mchotard Messages postés 457 Date d'inscription Statut Membre Dernière intervention 43

merci The_boss_66

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

A+

Réponse 3 / 4

The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention 182

Bonsoir,

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

Lien ICI

Slts

Réponse 4 / 4

mchotard Messages postés 457 Date d'inscription Statut Membre Dernière intervention 43

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

Bon WE

Cdlt

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

additionner nombres dans cellules avec texte

On me voit connecté sur facebook alors que je n'y suis pas

Votre réponse

Discussions similaires