Bonjour à tous,

Afin de faire des calculs de date, je lance la procedure au changement d’une liste de validation dans la colonne F :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tR As Long
    If Target.Column = 6 Then
        'MsgBox "target address : " & Target.Address
        tR = Target.Row
        Select Case Target
        Case "CAO"
            Range("D" & tR).Formula = "=WORKDAY(" & Range("C" & tR) & "," & Range("B" & tR) & "," & [Fériés] & ""
        Case "CAI"
            Range("D" & tR) = Range("C" & tR) + Range("B" & tR) - 1
        End Select
        Range("D" & tR).NumberFormat = "dd/MM/yyyy"
        Range("E" & tR).Formula = "=IF(" & Range("D" & tR) & "-TODAY()<0,""""," & Range("D" & tR) & "-TODAY())"
        Range("E" & tR).NumberFormat = "dd"
    End If
End Sub
Mais je bute sur l'insertion de la formule de calcul de déférence en jours dans la colonne E, et tout changement de liste de liste de validation me déclenche une erreur :

Incompatibilité de type
Dans la ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range("D" & tR).Formula = "=WORKDAY(" & Range("C" & tR) & "," & Range("B" & tR) & "," & [Fériés] & ""
http://cjoint.com/?BKtvCPjfzSM

Merci d'avance.