Colorier ligne

Résolu/Fermé
mchotard Messages postés 439 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 27 janvier 2025 - 21 août 2022 à 14:55
mchotard Messages postés 439 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 27 janvier 2025 - 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

A voir également:

2 réponses

Le Pingou Messages postés 12231 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 janvier 2025 1 454
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 439 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 27 janvier 2025 43
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