Discussion :

[Celia1303]

Bonjour !

J'ai probablement une erreur de syntaxe dans une instruction Select Case
à deux conditions, mais je ne la comprends pas.
Voici le code :

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
 
While Not Rst_Tableau3.EOF
 
Select Case Rst_Tableau3("TypeAdherent_Ent") And Rst_Tableau3("OrigineContact_Ent")
 
 
Case "Direct" 'type d'adhérent
    'compter le nb de directs
    Total_Direct = Total_Direct + Rst_Tableau3![NbAdh]
 
    Case "Prospection directe" 'origine
 
    appexcel.Cells(9, 3) = Rst_Tableau3![NbAdh]
    'compte le nb d'adhérents de cette origine
    Total_Or1 = Total_Or1 + Rst_Tableau3![NbAdh]
    ...
    Case Else 'autre origine
 
    appexcel.Cells(31, 3) = Rst_Tableau3![NbAdh]
    Total_Or12 = Total_Or12 + Rst_Tableau3![NbAdh]
 
 
Case "Syndicat" ' type d'adhérent
    Total_Syndicat = Total_Syndicat + Rst_Tableau3![NbAdh]
 
 
    Case "Prospection directe" 'origine
 
    appexcel.Cells(9, 4) = Rst_Tableau3![NbAdh]
    Total_Or1 = Total_Or1 + Rst_Tableau3![NbAdh]
 
    ...
End Select
...
Wend

Lors de l'éxécution, le programme s'arrete sur la ligne
Case "Syndicat"

et le message d'erreur est :
Case sans Select Case

Merci d'avance !

[loufab]

Bonjour,

Ta manière d'utiliser un select case est fausse

Si tu consulte l'aide sur cette commande il y a marqué

Code :

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

1
2
3
4
5
Select Case ...
  Case ..
  Case ..
  Case else
End select

Donc un Case else au milieu ne peut fonctionner.

Cordialement,

[Lou Pitchoun]

Salut
Tu devrais essayer une structure de ce type

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 Variable1
Case "x1"
  Select Case Variable2
    Case "y1"
    Case "y2"
  End select
Case "x2"
 Select Case Variable2
    Case "y1"
    Case "y2"
  End select
....
End select

mais bon, ça ferait répéter x fois le select case Variable2

[Celia1303]

Merci pour cette information.

En fait mon Case Else était dédié à prendre en compte les valeurs nulles,

mais je n'arrive pas à traduire cette condition.
J'ai essayé Case " "
Case Null

Mais ca ne fonctionne pas (pas de message d'erreur non plus).
Pourtant l'enregistrement contient bien une valeur null.

Comment faire ?

[Celia1303]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Select Case Variable1 
Case "x1" 
  Select Case Variable2 
    Case "y1" 
    Case "y2" 
  End select 
Case "x2" 
 Select Case Variable2 
    Case "y1" 
    Case "y2" 
  End select 
.... 
End select

Bonjour !
Merci, j'ai déjà fait un tableau en faisant
Select Case
Case
if
else if
....

et vraiment non!Sauf pour un petit tableau, parce qu'on arrive vite à des pages et des pages de codes.

[Lou Pitchoun]

j'ai essayé ceci chez moi et ça fonctionne

Code :

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

    Case ""

[Celia1303]

Ben avec moi ca "marche pas", mon problème ne doit pas être là.

Merci pour vos réponses!

[cafeine]

Quand les tests sur = "" ou Is Null échouent, il faut tester si la longueur de la chaîne est égale à zéro ...

[Lou Pitchoun]

J'ai mon aide access qui bugge (et j'ai pas le cd sous la main ) mais sans elle j'ai pu tester

Code :

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

1
2
3
4
5
6
7
8
9
10
If Champs <> "" Then
Select Case Variable
    Case "x"
    ...
    Case "y"
    ...
End Select
Else
...
End If

[Celia1303]

Je viens d'essayer

Code :

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

1
2
 
Case Len(Rst_Tableau3("TypeAdherent_Ent")) = 0

mais mon pb est toujours là .

Le message est : Incompabilité de type
Le débogueur se positionne sur

Code :

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

1
2
3
 
 
Select Case Rst_Tableau3("TypeAdherent_Ent") And Rst_Tableau3("OrigineContact_Ent")

avec pour valeur TypeAdherent_Ent=null
et OrigineContact_Ent="Appel de leur part"

Et comme condition j'ai bien :

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
 
'Case Is = Null
'Case " "
Case Len(Rst_Tableau3("TypeAdherent_Ent")) = 0
    Total_Inc = Total_Inc + Rst_Tableau3![NbAdh]
 
    Case "Prospection directe"
 
    ... 
 
    Case "Appel de leur part"
 
    appexcel.Cells(11, 8) = Rst_Tableau3![NbAdh]
    Total_Or2 = Total_Or2 + Rst_Tableau3![NbAdh]
 
...

[Lou Pitchoun]

Je viens d'essayer

Code :

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

1
2
 
Case Len(Rst_Tableau3("TypeAdherent_Ent")) = 0

mais mon pb est toujours là .

Le message est : Incompabilité de type
Le débogueur se positionne sur

Code :

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

1
2
3
 
 
Select Case Rst_Tableau3("TypeAdherent_Ent") And Rst_Tableau3("OrigineContact_Ent")

Forcément...
TypeAdherent_Ent est de type texte (string) et tu teste avec un entier...

avec pour valeur TypeAdherent_Ent=null
et OrigineContact_Ent="Appel de leur part"

Et comme condition j'ai bien :

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
 
'Case Is = Null
'Case " "
Case Len(Rst_Tableau3("TypeAdherent_Ent")) = 0
    Total_Inc = Total_Inc + Rst_Tableau3![NbAdh]
 
    Case "Prospection directe"
 
    ... 
 
    Case "Appel de leur part"
 
    appexcel.Cells(11, 8) = Rst_Tableau3![NbAdh]
    Total_Or2 = Total_Or2 + Rst_Tableau3![NbAdh]
 
...

Tu devrais d'abord tester ton champs (la longueur ou la valeur avec "" ou null) et si le champ n'est pas vide alors tu fais ton case.. Non ??

[Arkham46]

Salut,

Heu juste une idée comme ça...
Si ton code est le même pour chacun des cas, pourquoi ne pas paramétrer l'action à faire dans une table?
Genre une table :
Direct | Prospection directe |1 | 9 | 3 | 1 |
Direct | |1 | 31| 3 | 12|
Syndicat | Prospection directe |2 | 9 | 3 | 1 |

3è champ : le total en fonction du type d'adhérent
4è champ : la ligne de la cellule
5è champ : la colonne de la cellule
6è champ : Le total en fonction de l'origine

Tu recherches l'enregistrement de la table qui correspond à tes deux critères.
Et après ton code c'est :

Code :

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

appexcel.Cells(rs!CellX,rs!CellY) = Rst_Tableau3![NbAdh]

avec CellX et CellY qui sont les champs de la table de paramètrage.
Et tu pourrais mettre tes totaux dans un array :

Code :

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

Total_Or(rs!Total) = Total_Or(rs!Total) + Rst_Tableau3![NbAdh]

Comme ça tu n'écris ton code qu'une fois et tu peux facilement changer les paramètres ou ajouter des nouveaux types sans avoir à copier/coller le code.

En triant le recordset Rst_Tableau3 sur des champs "TypeAdherent_Ent" et "OrigineContact_Ent", et en ne lisant la table de paramètrage seulement qu'à chaque changement de l'un de ces deux champs ça restera performant.

Bon reste à voir si le code est identique à chaque fois...

[Celia1303]

La fonction len , d'après ce que j'ai vu,
Retourne le nombre de caractères d'une chaîne ou le nombre d'octets d'une variable.
Donc retourne un entier...
C'est pas ca ???

Tu devrais d'abord tester ton champs (la longueur ou la valeur avec "" ou null) et si le champ n'est pas vide alors tu fais ton case.. Non ??

Je veux faire :

Code :

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

1
2
3
4
5
6
7
 
   selon Type_Adherent = null
 
            selon Origine_Adherent = "origine1"
            instruction
            selon Origine_Adherent = "origine2"
            ....

[Lou Pitchoun]

La fonction len , d'après ce que j'ai vu,
Retourne le nombre de caractères d'une chaîne ou le nombre d'octets d'une variable.
Donc retourne un entier...
C'est pas ca ???

Autant pour moi.. j'ai lu trop vite ta ligne de code... tu es dans le vrai.

[Lou Pitchoun]

A mon avis (tu vas te dire que je suis têtu), ta solution est la suivante :

Code :

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

1
2
3
4
5
6
if len(TonChamp) <> 0 then
Select case Variable
  Case "xx"
  ....
  Case "yy"
....

Tu ne peux pas (si je ne me trompe) dans un case tester la longueur d'une chaine mais uniquement ses valeurs.
Et comme

Code :

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

Case ""

ou

Code :

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

Case Null

ne donnent rien...
A toi de voir...

[Arkham46]

Tu ne peux pas (si je ne me trompe) dans un case tester la longueur d'une chaine mais uniquement ses valeurs.

Ben on peut faire un case sur une longueur d'une chaîne.

L'erreur dans le code précédent est l'utilisation du And dans le "Select Case".
Le And est un opérateur logique qui opère sur des booléen.
Tu ne peux pas l'utiliser pour faire une case double avec des strings, ça n'a rien à voir.

Sinon tu peux sûrement faire :

Code :

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

Select Case Nz(Rst_Tableau3("TypeAdherent_Ent"))

Comme ça les null sont transformés en chaînes vides et tu peux les tester dans le case.