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 ?

[Mounamidou]

P est une valeur du "Statut" de la commande et voici toutes les abréviations que peut prendre ce STATUT:
RFC: Ready for Collection
RAF: Recieved at Forwarders
SHP: Shipped
INC: In Customs
RFD: Ready for Delivery
ROS: Recieved on Site
P: In the course of execution

Vous trouverez aussi en pièce jointe un exemple des données dont je désire traiter
LeForestier a dit:
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 ...

la feuille est spécifiée au dessus sauf que je ne l'ai pas mise dans la portion du code dans le message

donc ce programme est censé remplir la colonne Date prévue de réception

Merci à tous

Mouna

[DarkVader]

Ben l'es pas prêt d's'en sortir avec toutes ces réponses lol

Code :

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

Case "P"

c'est si simple
Voir pour éviter toute erreur

Code :

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

1
2
3
select case ucase(Statut)
    Case "P"
    etc.

[Mounamidou]

Toujours dans l'impasse!!!!!!!!!!!!!

[DarkVader]

Avec autant de détails dans les réponses ...


J'ai testé

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
Function MacDate_Réception(DayMAJ As Date, Statut As String, Transp As String)
    '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 "P"
            DayRec = DayMAJ + 7
        Case "ROS"
            DayRec = DayMAJ + 14
        Case "RFD"
            DayRec = DayMAJ + 21
        Case "INC"
            DayRec = DayMAJ + 28
        Case "SHP"
            Select Case Transp
                Case "Air"
                  DayRec = DayMAJ + 35
                Case "Sea"
                  DayRec = DayMAJ + 49
                Case "Groupage"
                  DayRec = DayMAJ + 64
                Case "0"
                  DayRec = DayMAJ + 35
            End Select
        Case RFA
            Select Case Transp
                Case "Air"
                  DayRec = DayMAJ + 35 + 14
                Case "Sea"
                  DayRec = DayMAJ + 49 + 14
                Case "Groupage"
                  DayRec = DayMAJ + 64 + 14
                Case "0"
                  DayRec = DayMAJ + 35 + 14
            End Select
        Case RFC
            Select Case Transp
                Case "Air"
                  DayRec = DayMAJ + 35 + 14 + 14
                Case "Sea"
                  DayRec = DayMAJ + 49 + 14 + 14
                Case "Groupage"
                  DayRec = DayMAJ + 64 + 14 + 14
                Case "0"
                  DayRec = DayMAJ + 35 + 14 + 14
            End Select
    End Select
 
    MacDate_Réception = DayRec
End Function

en utilisant la formule de feuille suivante en colonne F

Code :

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

=MacDate_Réception(E2;C2;D2)

et cela marche ... à part quelques reours non traité qui ne concerne pas le problème soulevé
alors je ne vois donc pas pourquoi le

Toujours dans l'impasse!!!!!!!!!!!!!

[Mounamidou]

En fin c'est la fin de mon calvaire
merci à vous tous
Vous êtes vraiment gentils
ce forum le nbre one bravo brao et bravo

votre Mouna