Sub test

Sub fériés()

    Dim datetest As Range

    For Each datetest In Sheets("Horaires").Range("C10:C52")

        If Not datetest.Value = Range("jf").Value Then
        datetest.Offset(0, 15).Value = "0"
        End If

        If datetest.Value = Range("jf").Value Then
        datetest.Offset(0, 15).Value = "1"
        End If

  Next datetest

End Sub

bonsoir a tous voila ma sub pour tester mes jours mais elle ne fonctionne pas correctement c'a fait 4 jours que je bute .

l’erreur est ici: " If Not datetest.Value = Range("jf").Value Then"

la plage jf correspond a la plage contenant mes jours

je vous remercie de votre aide a tous .

romain

Bonjour,

comment ce manifeste l'erreur ?

que contient cette fameuse plage "jf" donne nous un exemple ... et combien de cellules sont concernées ?

Bonjour,

2 remarques:

1- tu ne peux pas comparer la valeur d'une cellule à la valeur d'une plage de cellules. En revanche, tu peux tester que la valeur d'une cellule se trouve dans les valeurs d'une plage de cellule

2- ton test parait porter sur des données différentes : une date d'un côté et des jours de l'autre.

bonjour a tous je vous joint le fichier pour que cela soit plus concret.

je vous remercie de votre aide .

romain

If IsError(Application.Match(CLng(datetest.Value), Range("jf"), 0)) Then
    datetest.Offset(0, 15).Value = "0"
Else
    datetest.Offset(0, 15).Value = "1"
End If

bonjour je vous remercie pour votre aide cela fonctionne.

merci cordialement romain