Problème avec la fonction de find sur des dates

Bonjour à tous,

Je viens solliciter votre aider car je coince sur une boucle de recherche qui compare des dates .

J'ai une feuille BDD avec des dates que je souhaite trouver dans la feuille planning.

Pour cela j'effectue une boucle sur les lignes des jours en effectuant une recherche des dates de la feuille BDD

Le souci c'est que la recherche ne aucun résultat

Voici le code en question

'==========================================================
    '=============== Mise en forme des Vacances  ==============
    '==========================================================

     With Sheets("BDD")
     finnoel = .Cells(3, 4).Value

     debuthiver = .Cells(4, 3).Value
     finhiver = .Cells(4, 4).Value

     debutprintemps = .Cells(5, 3).Value
     finprintemps = .Cells(5, 4).Value

     debutete = .Cells(6, 3).Value
     finete = .Cells(6, 4).Value

     debuttoussaint = .Cells(7, 3).Value
     fintoussaint = .Cells(7, 4).Value

     debutnoel = .Cells(8, 3).Value
     endnoel = .Cells(8, 4).Value
    End With

   For numligsem = 12 To 157 Step 29
   Set plage = .Range(.Cells(numligsem, 2), .Cells(numligsem, 63))

    With plage

     Set colorstart = .Find(What:=debuthiver, LookIn:=xlValues, lookat:=xlWhole)
     Set colorend = .Find(What:=finhiver, LookIn:=xlValues, lookat:=xlWhole)

        If Not colorstart Is Nothing Then
        MsgBox colorstart.Address
        Else
        MsgBox "non présent"
        End If
  '.Range(.Cells(colorstart, colorstart), .Cells(colorendR, colorendC)).Interior.Color = RGB(128, 244, 160)
      End With

    Next numligsem

l'objectif est de mettre en couleur les jours des vacances sur le planning annuel

Bonjour,

essaie avec

 .Find(What:=DateValue(debuthiver), LookIn:=xlFormulas, lookat:=xlWhole)

Et tu devrais typer tes variables. Dim debuthiver as Date

eric

Merci j'ai effectué la modification de toutes les dates en ajoutant le type de variable mais le problème semble être ailleurs .

Bjr

Il y a quelques mois une personne m'a donné un coup de main sur un sujet semblable.

Je partage donc le fichier qui pourra répondre à tes attentes.

@+

il y avait aussi 2 modif dans ta ligne :

.Find(What:=DateValue(debuthiver), LookIn:=xlFormulas, lookat:=xlWhole)

Bonsoir,

Voici un exemple différent.

à tester, un message d'erreur vous guidera.

Merci à tous pour votre aide cela fonctionne parfaitement. ça ma encore appris pas mal de choses tout ça .