Code couleur sur if

Bonjour, y a t' il un moyen de simplifier cela svp car il faut faire cela pour les 12 mois et cela ligne par ligne

   If Range("H10").Value = "Janvier" Then
            Range("a10:h10").Select
    With Selection.Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.2325
    End With
         End If
         If Range("H10").Value = "Février" Then
            Range("a10:h10").Select
    With Selection.Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.4444
    End With
         End If
         If Range("H10").Value = "Mars" Then
            Range("a10:h10").Select
    With Selection.Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.7777
    End With
         End If
         If Range("H11").Value = "Janvier" Then
            Range("a11:h11").Select
    With Selection.Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.2325
    End With
         End If
         If Range("H11").Value = "Février" Then
            Range("a11:h11").Select
    With Selection.Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.4444
    End With
         End If
         If Range("H11").Value = "Mars" Then
            Range("a11:h11").Select
    With Selection.Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.7777
    End With
         End If

Bonjour

N'ayant pas 2007 donc à tester

Sub test()
Dim J As Integer
Dim Teinte

  Teinte = Array(0.2325, 0, 4444, 0.7777, 0.4444, 0.5555, 0.6666, 0.7777, 0.8888, 0.9999, 0.1111, 0.1234, 0.7852)

  For J = 10 To 21
    With Range("A" & J & ":H" & J).Interior
      .ThemeColor = xlThemeColorAccent2
      .TintAndShade = Teinte(Month(CDate("01/" & Cells(J, "H") & "/2011")) - 1)        '0.2325
    End With
  Next J
End Sub

merci je test et dirai quoi

-- 02 Fév 2011, 12:38 --

bonjour et merci de répondre si vite

Problème a la ligne

.TintAndShade = Teinte(Month(CDate("01/" & Cells(J, "H") & "/2011")) - 1)

il ouvre une fenêtre et indique "Argument ou appel de procédure incorrect"

Bonjour

Chez moi ce sont les propriétés suivantes qui ne passent pas

.ThemeColor = xlThemeColorAccent2

.TintAndShade = 0.2325

A vérifier pour savoir si cela retourne la bonne valeur

En plus je suis passé par la sélection de la ligne

Sub test()
Dim J As Integer
Dim Teinte

  Teinte = Array(0.2325, 0, 4444, 0.7777, 0.4444, 0.5555, 0.6666, 0.7777, 0.8888, 0.9999, 0.1111, 0.1234, 0.7852)

  For J = 10 To 21
  MsgBox Teinte(Month(CDate("01/" & Cells(J, "H") & "/2011")) - 1)
   Range("A" & J & ":H" & J).Select
    With Selection.Interior                                   
      .ThemeColor = xlThemeColorAccent2
      .TintAndShade = Teinte(Month(CDate("01/" & Cells(J, "H") & "/2011")) - 1)       '0.2325
    End With
  Next J
End Sub

Bonjour cela ne va pas aussi voici le fichier le code ce trouve dans la feuille Jan

Bonjour

regardes et ..... testes la macro Test

Tout simplement bravo tu es génial merci beaucoup