Colorier ligne

Résolu/Fermé
mchotard Messages postés 427 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 28 novembre 2024 - 21 août 2022 à 14:55
mchotard Messages postés 427 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 28 novembre 2024 - 21 août 2022 à 18:15

Bonjour

Voilà dans ma feuille de calcul j'ai cette macro pour mettre en couleur la ligne enfonction de la cellule que je sélectionne.

Mais, cette macro fonctionne pour toute la feuille. Et j'aimerai qu'elle fonctionne que pour les cellules de A2 à AW32. est possible. Merci pour votre aide.

Ci dessous ma macro.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Rows.Interior.ColorIndex = xlNone
  Target.EntireRow.Interior.ColorIndex = 36
  
  
End Sub

Bon dimanche

mchotard

2 réponses

Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 1 452
Modifié le 21 août 2022 à 15:33

Bonjour,

Une solution:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:AW32")) Is Nothing Then
    Rows.Interior.ColorIndex = xlNone
    Range("A" & Target.Row & ":AW" & Target.Row).Interior.ColorIndex = 36
End If
End Sub

0
mchotard Messages postés 427 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 28 novembre 2024 39
21 août 2022 à 18:15

Merci Le Pingou

Cela fonctionne parfaitement, c'est ce que souhaitait pour mettre d'autre ligne de ma feuille dans d'autres couleurs.

Très cordialment

0