utilisation de Select Case

Version imprimable

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:

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

02/10/2007, 14h33
LeForestier

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

Code:

Case P

à la place de

Code:

Case Is = P

Quand c'est modifié revient avec ton code..
A+
02/10/2007, 15h42
Mounamidou

non plus çà ne marche pas

Erreur d'exécution 13

incompatibilité de type

et s'arrète à la ligne

Code:

Statut = Range("C2")
02/10/2007, 15h54
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:

Sheets("LeNom").select

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

Code:

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+
02/10/2007, 19h59
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
02/10/2007, 23h23
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 ?
03/10/2007, 15h24
Mounamidou

1 pièce(s) jointe(s)

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
03/10/2007, 15h33
DarkVader
Ben l'es pas prêt d's'en sortir avec toutes ces réponses lol

Code:

Case "P"

c'est si simple
Voir pour éviter toute erreur
Code:

1 2 3 select case ucase(Statut) Case "P" etc.
03/10/2007, 16h30
Mounamidou

Toujours dans l'impasse!!!!!!!!!!!!!:(

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

J'ai testé

Code:

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:

=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

Citation:

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

03/10/2007, 17h39
Mounamidou

Youpi çà marche

:ccool:
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