Discussion :

[ClaudeLELOUP]

Bonjour,
Je voudrais exécuter

Code :

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

call tst("xblablax")

Ceci génère une erreur de syntaxe

Code :

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

1
2
3
4
5
6
Public Sub tst(A As String)
Select Case A
Case like "*bla*"   'provoque l'erreur de syntaxe
Debug.Print "OK"
End Select
End Sub

Merci déjà pour l'aide.

[Jean-Philippe André]

bonjour,
à la place du Like, j'aurais plutôt utilisé Instr()
mais tout dépend de ce que tu veux faire comme autre test sur ton A...
tu peux nous en dire un peu plus spt ?

[Invité]

Bonjour

A priori l'opérateur Like ne fonctionne pas avec le Select Case.

Essayes une variante pour voir.

Code :

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

1
2
3
4
5
6
Public Sub tst(A As String)
    Select Case "*" & A & "*"
        Case Is = "*bla*"
        Debug.Print "OK"
    End Select
End Sub

Starec

[ClaudeLELOUP]

Merci JPCheck et Starec
j'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
call tst2("M2C100000")
Public Sub tst2(A As String)
    Select Case A
     Case InStr(A, "M2C") <> 0
     Debug.Print "OK"
    End Select
End Sub

Plus d'erreur de syntaxe, mais le résultat n'est pas correct.
Pourtant avec une exécution pas à pas, je peux constater que
InStr(A, "M2C") est égal à 1.
Je ne comprends pas pourquoi l'instruction

Code :

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

Debug.Print "OK"

est sautée.

[Jean-Philippe André]

est-ce que la méthode est la plus adaptée aussi ?
je veux dire par là, tu n'as pas répondu à ma question sur l'utilisation de la boucle select case.
lorsque tu utilises select case il faut que la strucute soit comme ceci en principe :

Code :

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

1
2
3
Select Case MaFonctionSijeveux(X)
Case MafonctionSijeVeux(X) = "1"
... 'End

c'est un peu comme si tu faisais

Code :

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

1
2
3
4
Test Selon Tomate
cas Carotte = cuite
afficher "c'est la loose"
fin test

[ClaudeLELOUP]

Voici plus de détails (trop peut-être ?)

Dans mon logiciel comptable, j’ai plusieurs tables (Caisse, Banque, Achats, ...) qui contiennent des champs dont le nom me sert à déclencher des processus.
Par exemple : (iii varie en général de 1 à 25, nnnnnn = un N° de compte)
Si le nom est MC3iii, il faut créer un mouvement comptable
-dans le compte indiqué dans le champ : NC3iii
-du montant créditeur contenu dans le champ : MC3iii
-avec le libellé contenu dans le champ : LC3iii
D'autres processus si MD3iii, MC2iii,MD2iii,MC1iiinnnnnn,Visai ....
Voici le code actuel

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Public Function CréerLesMvts(LaTable As String)
Dim Q As QueryDef
Dim TypeMvts As String
Dim Rec As DAO.Recordset
Dim Fld As Field
Dim Arg1, Arg2, Arg3, Arg5, Arg6 As String
Dim Arg4 As Long
Dim Sql As String
DoCmd.SetWarnings False
'Vidanger les mvts existants
TypeMvts = Mid(LaTable, 9, Len(LaTable) - 8)
'vidange du fichier mvt(i)
Sql = "DELETE Mvts" & TypeMvts & ".id FROM Mvts" & TypeMvts & ";"
Set Q = CurrentDb.CreateQueryDef("temp", Sql)
DoCmd.OpenQuery "temp"
DoCmd.DeleteObject acQuery, "temp"
Set Q = Nothing
'LireLaTable en séquence
Set Rec = CurrentDb.OpenRecordset(LaTable)
Do Until Rec.EOF
    'détecter les champs déclencheurs de mouvements et créer le Mvt
     For Each Fld In Rec.Fields
       If Fld = 0 Then GoTo ChampSuivant
        Arg1 = Mid(LaTable, 9, 3)                                    'origine
        Arg2 = Rec("N°extrait")                                      'N°Extrait
        Arg3 = Rec("Date")                                           'Date
     Select Case Fld.Name
                               '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      Case "M3D001" To "M3D999" 'je voudrais exprimer comme M3D*
                               '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        Arg4 = Rec("N" & Right(Fld.Name, Len(Fld.Name) - 1))         'N°Cpte
        Arg5 = ScanSubsti(CStr(Fld.Value * -1), ",", ".")            'Montant avec un .
        Arg6 = Nz(Rec("L" & Right(Fld.Name, Len(Fld.Name) - 1)), " ") 'Libellé
        Call CréerMvts_écrire(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6)
      Case "M3C001" To "M3C999"
        Arg4 = Rec("N" & Right(Fld.Name, Len(Fld.Name) - 1))         'N°Cpte
        Arg5 = ScanSubsti(CStr(Fld.Value), ",", ".")                 'Montant avec un .
        Arg6 = Nz(Rec("L" & Right(Fld.Name, Len(Fld.Name) - 1)), " ") 'Libellé
        Call CréerMvts_écrire(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6)
      Case "M2D001000000" To "M2D999999999"
        Arg4 = Mid(Fld.Name, 7, 6)                                   'N°Cpte
        Arg5 = ScanSubsti(CStr(Fld.Value * -1), ",", ".")            'Montant avec un .
        Arg6 = Nz(Rec("L" & Right(Fld.Name, Len(Fld.Name) - 1)), " ") 'Libellé
        Call CréerMvts_écrire(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6)
      Case "M2C001000000" To "M2C999999999"
        Arg4 = Mid(Fld.Name, 7, 6)                                   'N°Cpte
        Arg5 = ScanSubsti(CStr(Fld.Value), ",", ".")             'Montant avec un .
        Arg6 = Nz(Rec("L" & Right(Fld.Name, Len(Fld.Name) - 1)), " ") 'Libellé
        Call CréerMvts_écrire(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6)
      Case "M1D001000000" To "M1D999999999"
        Arg4 = Mid(Fld.Name, 7, 6)                                   'N°Cpte
        Arg5 = ScanSubsti(CStr(Fld.Value * -1), ",", ".")            'Montant avec un .
        Arg6 = " "                                                   'Libellé
        Call CréerMvts_écrire(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6)
      Case "M1C001000000" To "M1C999999999"
        Arg4 = Mid(Fld.Name, 7, 6)                                   'N°Cpte
        Arg5 = ScanSubsti(CStr(Fld.Value), ",", ".")             'Montant avec un .
        Arg6 = " "                                                   'Libellé
        Call CréerMvts_écrire(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6)
      Case "Visa1" To "Visa9"
        Arg4 = "490021"                                          'N°Cpte
        Arg5 = ScanSubsti(CStr(Fld.Value), ",", ".")             'Montant avec un .
        Arg6 = "Visa"                                                   'Libellé
        Call CréerMvts_écrire(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6)
        Arg4 = "580000"                                          'N°Cpte
        Arg5 = ScanSubsti(CStr(Fld.Value * -1), ",", ".")           'Montant avec un .
        Call CréerMvts_écrire(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6)
      End Select
ChampSuivant:
     Next Fld
Rec.MoveNext
Loop
'créer les contreparties
Call CréerMvts_contreparties(LaTable)
DoCmd.SetWarnings True
End Function

Est-ce une hérésie d'utiliser un 'Select case' dans cette circonstance ?