Colorier ligneRésolu/Fermé

Question

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

Le Pingou · Answer

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

Salutations.
Le Pingou

mchotard · Answer

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

Colorier ligne

2 réponses

Discussions similaires

Newsletters