Remplacer valeurs en fonction du calendrier

[brigadero]

Bonjour à tous,

Mon pb est que je souhaite transposer des consos de 2010 à celle de 2011 mais j'ai quelques petis pb vis à vis des jours fériés.
Pour les jours fériés qui ne change pas il n'y a pas de pb j'ai juste à faire le code vba suivant :


Sub Projection()


For i = 2 To 366

If Range("F" & i).Value = Range("B" & i).Value Then
Range("G" & i).Value = Range("C" & i).Value

End If

If Range("F" & i).Value = "0" Or Range("F" & i).Value = "FAUX" Then
Range("G" & i).Value = Range("C" & i + 1).Value

End If

Next i

End Sub


mais je me retrouve avec des pbs pour Pacques, l'ascension et la pentecôte qui change chaque année.

J'ai pensé donc à faire :

Sub Rempl_JFérié()

For i = 2 To 365

If Range("F" & i).Value = "Nouvel an" Then
Range("H" & i).Value = Range("C" & i).Value

End If


If Range("F" & i).Value = "Paques" Then

Range("H" & i).Value = Range("C" & "B" = "Paques").Value

End If

Next i

End Sub

Pour le nouvel an cela marche car les cases sont les mêmes, par contre lorsque je veux prendre la valeur de la case Pacques cela ne marche pas.
Pouvez-vous m'aider svp!!!

 

[brigadero]

Re : Remplacer valeurs en fonction du calendrier

Pourrait-on me répondre...?