Discussion :

[Mounamidou]

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

[LeForestier]

Bonjour,
Je n'ai pas bien étudier ta macro mais commence par changer tes Case IS par
exemple..

Code :

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

Case  P

à la place de

Code :

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

Case Is = P

Quand c'est modifié revient avec ton code..
A+

[Mounamidou]

Erreur d'exécution 13

incompatibilité de type

et s'arrète à la ligne

Code :

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

    Statut = Range("C2")

[LeForestier]

Il faudrait que tu spécifie la feuille, quand tu essaye la fonction à partir du module il n'est pas préciser sur quel feuille tu veux agir donc ...

Au déut spécifie..

Code :

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

Sheets("LeNom").select

A+
EDIT:
Et statut devrait êre déclare par

Code :

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

   Statut as Range

EDIT 2:
Revient avec ton code je vais essayé de le rendre opérationnel.

et où sont affectées les variables P, ROS, RFD etc..
Nouveau poste pour le copier/coler
A+

[fred65200]

Un petit doute
est ce qu'il ne faut pas mettre des guillemets ?

Est ce que Air est une constante? (Air et les autres)
sinon il faut écrire

Case Is = "Air"

Salutations

[ouskel'n'or]

Une question demeure : Où prends-tu ton P ? Dans ta procédure, on ne le voit nulle part. Une variable déclarée en Public ?