Changer de couleur

Bonjour a toutes et tous, Forum bonjour



VBA excel 2007

Je souhaiterai apporter une petite modification au petit code ci-dessous afin d'améliorer
la visibilité des valeurs qui s'affichent en VERT en colonne (Q).

Dans la plage Q2 à Q26 des valeurs s'affichent avec une barre GRISE qui monte et descends dans cette plage servant de repère.

Je voudrais svp que la couleur des valeurs s'affichent en suivant la barre GRISE avec valeurs en BLEU dans la barre de repère.

J'ai essayer mais bien sur ca marche pas

Merci de votre aide et de votre temps

Bonne fin d'après midi a tous

Cdlt Ray


PS: le code fonctionne

'*** RECOPIE LA VALEUR DANS LA PLAGE LIGNE(E20:P20) MOIS PAR MOIS
Private Sub Worksheet_Calculate()
  Dim C As Long, R As Long
    C = Month(Now) + 4
    R = [Z1].Value: If R < 2 Then R = 1

'*** Ligne Q2:Q26 Colonne 17(Q)
  With Cells(R, 17).Interior
    .ColorIndex = 15              'Affiche la barre repère Gris clair

    If Cells(20, C).Text <> Cells(R, 17).Text Then
      Application.EnableEvents = False
      R = R + 1: If R > 26 Then R = 2
      [Z1].Value = R
      
      Cells(R, 17).Value = Cells(20, C).Value
      
      .ColorIndex = xlNone
      Application.EnableEvents = True
    End If

  End With
End Sub