Select case qui ne fonctionne pas

**Gabrieel** · 06/12/2016, 12h58

Bonjour,

je ne comprends pas pourquoi cela ne fonctionne pas. quand je test avec la fenêtre d’exécution les propositions , elle fonctionne bien, mais quand je lance dans ma requête il me choit la proposition "select else"

voici mon code, une idée?

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
Public Function Marque(stConstructeur As String) As String
 
Dim stConst As String
stConst = Left(stConstructeur, 2)
Select Case stConstructeur
    Case stConst = "WD":     Marque = "Mercedes"
    Case stConst = "VF":       Marque = "Renault"
    Case stConst = "SJ":        Marque = "Nissan"
    Case stConst = "SH":       Marque = "Nissan"
    Case stConst = "MD":      Marque = "Nissan"
    Case stConst = "JN":        Marque = "Nissan"
    Case stConst = "JH":        Marque = "Nissan"
    Case stConst = "3H":       Marque = "Honda"
 
  Case Else
        Marque = "Inconnu: " & stConst
End Select
 
 
End Function

merci d'avance

Bien cordialement,
A.

**tee_grandbois** · 06/12/2016, 14h34

bonjour,
Select Case stConst plutôt que Select Case stConstructeur fonctionnerait mieux

**micniv** · 06/12/2016, 15h16

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Select Case stConst 
    Case "WD":     Marque = "Mercedes"
    Case  "VF":       Marque = "Renault"
    Case "SJ":        Marque = "Nissan"
    Case  "SH":       Marque = "Nissan"
    Case "MD":      Marque = "Nissan"
    Case  "JN":        Marque = "Nissan"
    Case  "JH":        Marque = "Nissan"
    Case "3H":       Marque = "Honda"
 
  Case Else
        Marque = "Inconnu: " & stConst
End Select

Cdlt

**Gabrieel** · 06/12/2016, 18h11

Bonjour,

j'ai modifié comme précisé et je n'ai toujours rien :-(

je ne comprend vraiment pas la!

merci d'avance

Bien cordialement,
A.

**tee_grandbois** · 06/12/2016, 20h12

Bonsoir,
ajoute un Debug.Print pour vérifier la valeur de stConstructeur car il n'y aucune raison pour que cela ne fonctionne 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
Public Function Marque(stConstructeur As String) As String
 
Dim stConst As String
stConst = Left(stConstructeur, 2)
Debug.Print stConstructeur
 
Select Case stConst
    Case "WD":      Marque = "Mercedes"
    Case "VF":      Marque = "Renault"
    Case "SJ":      Marque = "Nissan"
    Case "SH":      Marque = "Nissan"
    Case "MD":      Marque = "Nissan"
    Case "JN":      Marque = "Nissan"
    Case "JH":      Marque = "Nissan"
    Case "3H":      Marque = "Honda"
 
  Case Else
        Marque = "Inconnu: " & stConst
End Select
 
End Function

**Gabrieel** · 06/12/2016, 22h56

Bonjour

les resultats des debugs sont bons, je ne sais vraiment pas pourquoi individuellement les propositions sont juste mais quand le select case se deroule c'est le case else qui est choisi

je suis largué ici

Merci d'avance

Bien cordialement,
G.

**tee_grandbois** · 06/12/2016, 23h17

Curieux, effectivement.
Dans quel contexte est utilisée la fonction :requête, formulaire, source de données externes ... ?
Peut-on avoir un exemple du résultat du Debug ?

**Gabrieel** · 07/12/2016, 07h14

j'utilise la formule dans une requête pour déterminer un champ. voici le code sql

Code sql :

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

1
2
3
SELECT tblPVE.[CODE CENTRE], Marque([MARQUE DU FABRICANT]) AS OEM, Count(tblPVE.CHASSIS) AS [Nb VIN]
FROM tblPVE
GROUP BY tblPVE.[CODE CENTRE], Marque([MARQUE DU FABRICANT]);

voici le résultat du debug

VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
VF
JN
3H
3H
3H
SH
SH
SH
JH
JH
VF

Invité · 07/12/2016, 08h50

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
Public Function Marque(stConstructeur As String) As String
 
Dim stConst As String
stConst =Ucase(Left(Cstr(stConstructeur), 2))
Debug.Print stConstructeur & " | " &  Ucase(cstr(stConstructeur))
 
Select Case stConst
    Case "WD":      Marque = "Mercedes"
    Case "VF":      Marque = "Renault"
    Case "SJ":      Marque = "Nissan"
    Case "SH":      Marque = "Nissan"
    Case "MD":      Marque = "Nissan"
    Case "JN":      Marque = "Nissan"
    Case "JH":      Marque = "Nissan"
    Case "3H":      Marque = "Honda"
 
  Case Else
        Marque = "Inconnu: " & stConst
End Select
 
End Function

Code :

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

1
2
3
4
5
6
Dim a As String
a = "aa"
Select Case a
Case "AA": MsgBox "r" '"aa" n'est pas "AA" ou " AA " n'est pas "AA"
Case Else: MsgBox "t"
End Select

**tee_grandbois** · 07/12/2016, 10h21

Bonjour,
Si la distinction majuscule/minuscule est activée cela veut dire que l'option Compare Database n'existe pas dans le Module car Compare Binary est l'option par défaut si il n'y a pas d'instruction. Mais dans le résultat du Debug on voit des majuscules.
De plus, j'ai testé le code et il fonctionne, il me faudrait juste de VRAIES données pour vérifier.

**Gabrieel** · 07/12/2016, 14h22

Bonjour,

voici des données exemples

encore merci

MARQUE DU FABRICANT
3HG
AUT
JHM
JN1
MDH
SHS
SJN
VF1
WDC
WDD

et voici le résultat que j'ai

OEM
Inconnu: 3H
Inconnu: AU
Inconnu: JH
Inconnu: JN
Inconnu: MD
Inconnu: SH
Inconnu: SJ
Inconnu: VF
Inconnu: WD

**tee_grandbois** · 07/12/2016, 15h33

tu peux essayer ce code qui utilise SWITCH, l'équivalent en SQL de Select Case :

Code :

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

1
2
3
SELECT tblPVE.[CODE CENTRE], Switch(Left([MARQUE DU FABRICANT],2)="WD","Mercedes",Left([MARQUE DU FABRICANT],2)="VF","Renault",Left([MARQUE DU FABRICANT],2) In ("SJ","SH","MD","JN","JH"),"Nissan",Left([MARQUE DU FABRICANT],2)="3H","Honda",True,"Inconnu :" & Left([MARQUE DU FABRICANT],2)) AS OEM, Count(tblPVE.CHASSIS) AS [Nb VIN]
FROM tblPVE
GROUP BY tblPVE.[CODE CENTRE], Switch(Left([MARQUE DU FABRICANT],2)="WD","Mercedes",Left([MARQUE DU FABRICANT],2)="VF","Renault",Left([MARQUE DU FABRICANT],2) In ("SJ","SH","MD","JN","JH"),"Nissan",Left([MARQUE DU FABRICANT],2)="3H","Honda",True,"Inconnu :" & Left([MARQUE DU FABRICANT],2));

juste pour qu'on voit si c'est un problème de données ou de code.

**Gabrieel** · 07/12/2016, 16h09

Bonjour,

ça marche maintenant, mais j'aimerai bien comprendre pourquoi le VBA ne fonctionne pas, le code m'a l'air ok....

**Gabrieel** · 07/12/2016, 16h11

Envoyé par tee_grandbois

tu peux essayer ce code qui utilise SWITCH, l'équivalent en SQL de Select Case :

Code :

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

1
2
3
SELECT tblPVE.[CODE CENTRE], Switch(Left([MARQUE DU FABRICANT],2)="WD","Mercedes",Left([MARQUE DU FABRICANT],2)="VF","Renault",Left([MARQUE DU FABRICANT],2) In ("SJ","SH","MD","JN","JH"),"Nissan",Left([MARQUE DU FABRICANT],2)="3H","Honda",True,"Inconnu :" & Left([MARQUE DU FABRICANT],2)) AS OEM, Count(tblPVE.CHASSIS) AS [Nb VIN]
FROM tblPVE
GROUP BY tblPVE.[CODE CENTRE], Switch(Left([MARQUE DU FABRICANT],2)="WD","Mercedes",Left([MARQUE DU FABRICANT],2)="VF","Renault",Left([MARQUE DU FABRICANT],2) In ("SJ","SH","MD","JN","JH"),"Nissan",Left([MARQUE DU FABRICANT],2)="3H","Honda",True,"Inconnu :" & Left([MARQUE DU FABRICANT],2));

juste pour qu'on voit si c'est un problème de données ou de code.

Merci en tout cas, je ne connaissais pas cette fonction SQL

**tee_grandbois** · 07/12/2016, 16h14

Envoyé par Gabrieel

Bonjour,

ça marche maintenant, mais j'aimerai bien comprendre pourquoi le VBA ne fonctionne pas, le code m'a l'air ok....

si tu peux poster une partie de ta base en enlevant les données sensibles je peux jeter un oeil car j'aimerais aussi comprendre pourquoi.

**Gabrieel** · 07/12/2016, 16h49

Bonjour,

voici le lien qui vous menera a la base. soyez indulgent c'est un vrai amateur qui l'a fait

vous verrez certainement des arriérations, merci tout conseil sera particulièrement apprecié

**tee_grandbois** · 07/12/2016, 17h11

Bonsoir,
tu n'as pas appliqué toutes les modifications qu'on t'a fourni :

Code :

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

Case stConst = "WD":

ne pouvait pas fonctionner car "stConst =" est de trop.
La prochaine fois, fais un copier/coller du code que l'on te donne cela évitera aux contributeurs de chercher pour rien.
Voici le bon code que j'ai un peu optimisé, tu peux le remplacer par l'existant :

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
Public Function Marque(stConstructeur As String) As String
 
Dim stConst As String
stConst = Left(stConstructeur, 2)
Select Case stConst
    Case "WD":      Marque = "Mercedes"
    Case "VF":      Marque = "Renault"
    Case "SJ", "SH", "MD", "JN", "JH":   Marque = "Nissan"
    Case "3H":      Marque = "Honda"
 
    Case Else
        Marque = "Inconnu: " & stConst
End Select
 
End Function

**Gabrieel** · 07/12/2016, 17h36

Ok merci ça marche!

**Gabrieel** · 07/12/2016, 17h41

Une derniere question. grace a ce probleme j'ai aussi decouvert la fonction SQL PremVrai . en terme de souplesse et de paramêtrage je suppose que VBA est en tête, mais en terme de rapidité SQL doit être en tête non?

vous a ma place vous auriez privilégié le SQL ou le VBA et pourquoi?

Un gros merci en tout cas pour votre aide qui m'a permit de résoudre mon souci

**tee_grandbois** · 07/12/2016, 18h04

Premvrai, selon moi serait plus rapide mais le gain n'est pas assez significatif pour ne pas laisser tomber la fonction qui, pour ma part, est plus facilement "maintenable" (possibilité de documenter le code) et "portable" (utilisation dans d'autres requêtes par exemple ...)

Select case qui ne fonctionne pas [AC-2013]

VBA Access

Discussions similaires

Partager

Partager