Bonjour,
je suis entrain de préparer un programme VBA Excel pour le calcul de la date prévue de réception de commandes.
cette date est calculée à partir de la date de changement du statut de cette commande + une durée estimée pour la réception de cette commande à partir de la date de changement du statut
la durée éstimée et fonction aussi du mode de transport.
la première étape j'ai inserrer une nouvelle colonne puis j'ai déclarée des variables aprés çà j'ai utiliée l'instruction Select Case
mais çà ne marche pas
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub MacDate_Réception()
    Worksheets("OO_Suivi_Engagement").Columns("F:F").Insert Shift:=xlToRight
    'Statut de la commande
    Dim Statut As String
    'Mode de transport
    Dim Transp As Variant
    'Date de changement de statut
    Dim DayMAJ As Variant
    'Date prévue de réception de la commande
    Dim DayRec As Variant
    DayMAJ = Range("E2")
    Statut = Range("C2")
    Transp = Range("D2")
 
    Select Case Statut
        Case Is = P
            DayRec = DayMAJ + 7
        Case Is = ROS
            DayRec = DayMAJ + 14
        Case Is = RFD
            DayRec = DayMAJ + 21
        Case Is = INC
            DayRec = DayMAJ + 28
        Case Is = SHP
            Select Case Transp
                Case Is = Air
                  DayRec = DayMAJ + 35
                Case Is = Sea
                  DayRec = DayMAJ + 49
                Case Is = Groupage
                  DayRec = DayMAJ + 64
                Case 0
                  DayRec = DayMAJ + 35
            End Select
        Case RFA
            Select Case Transp
                Case Is = Air
                  DayRec = DayMAJ + 35 + 14
                Case Is = Sea
                  DayRec = DayMAJ + 49 + 14
                Case Is = Groupage
                  DayRec = DayMAJ + 64 + 14
                Case 0
                  DayRec = DayMAJ + 35 + 14
            End Select
        Case RFC
            Select Case Transp
                Case Is = Air
                  DayRec = DayMAJ + 35 + 14 + 14
                Case Is = Sea
                  DayRec = DayMAJ + 49 + 14 + 14
                Case Is = Groupage
                  DayRec = DayMAJ + 64 + 14 + 14
                Case 0
                  DayRec = DayMAJ + 35 + 14 + 14
            End Select
    End Select
 
 
End Sub
veuillez, s'il vous plaît m'aider à résoudre ce problème
pour votre information je suis débutant en programation VBA

Mouna