Bonjour,

Je suppose qu'a l'entrée du While result est False et param initialisé avec une date valide.

Ces hypothèses faites, comme il y a un OR dans la condition du While cela signifie que la boucle s'arrête lorsque les deux conditions inverses sont réunies c'est à dire quand la cellule est vide ET que result = True.

Si je comprends bien donc pour que celà s'arrête il faut une cellule vide Et qu'une cellule d'une ligne précédente soit égale à la valeur de la variable param...(pour que result passe à True)

Si ces deux conditions ne sont pas réunies la boucle ne s'arrête pas...


Me préciser si je comprends bien..

A+

Effectivement, result est a False et param est bien initialisé.
Ci dessous le code complet de ma fonction.

Function Ferie(param As Date) As Boolean
    
    Dim result As Boolean
    Dim indLigne As Integer
    Dim dateCourante As Date
    result = False
    
    indLigne = 2
    dateCourante = CDate(Sheet2.Cells(indLigne, "E").Value)
    While (Sheet2.Cells(indLigne, "E").Value <> "" Or (result = False))
        If (param = dateCourante) Then
            result = True
        End If
        dateCourante = CDate(Sheet2.Cells(indLigne, "E").Value)
        indLigne = indLigne + 1
    Wend
    Ferie = result
    
End Function

Okey je teste et je te redis si sa fonctionne pour moi
Okey sa fonctionne, mis a part une petite erreur

Function Ferie(param As Date) As Boolean
 Dim indLigne As Integer
   
    indLigne = 2
    While (Sheet2.Cells(indLigne, "E").Value <> "" 
        If (Sheet2.Cells(indLigne, "E").Value = dateCourante) Then
            Ferie= True
            Exit Function
        End If
        indLigne = indLigne + 1
    Wend
    Ferie = False
    
End Function

Oui exact, c'est une erreur lors de la recopie, mais tu as corrigé :o)

Bonne continuation

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau