Discussion :

[apt]

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.

[Patrice740]

Essaies :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[apt]

Bonsoir Patrice,

Merci ca marche bien.

Voila le code :

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(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