Colorier ligne

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 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 12246 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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 457 Date d'inscription   Statut Membre Dernière intervention   43
 

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