Calcul de dates

Version imprimable

Calcul de dates

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:

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 :

Citation:

Incompatibilité de type

Dans la ligne :

Code:

Range("D" & tR).Formula = "=WORKDAY(" & Range("C" & tR) & "," & Range("B" & tR) & "," & [Fériés] & ""

http://cjoint.com/?BKtvCPjfzSM

Merci d'avance.

20/11/2012, 17h51
Patrice740

Essaies :

Code:

Range("D" & tR).Formula = "=WORKDAY(C" & tR & ",B" & tR & ",Fériés)"

Bonsoir Patrice,

Merci ca marche bien.

Voila le code :

Code:

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(C" & tR & ",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(D" & tR & "-TODAY()<0,"""",D" & tR & "-TODAY())"
        Range("E" & tR).NumberFormat = "dd"
    End If
End Sub

:ccool: