Discussion :

[benji971]

Bonjour,

Je n'arrive pas à cpmprendre d'où peut provenir mon erreur. j'ai codé un bout de code que voici:

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
Public Function ClassifCatPortailPrx(strFamSFam As Variant, strSecteur As Variant, strRayon As Variant, strIntituleCat As String) As Variant
 
If strIntituleCat Like "* APPLE *" Or strIntituleCat Like "* IPAD*" _
Or strIntituleCat Like "* IPHONE *" Or strIntituleCat Like "* IPOD*" _
Or strIntituleCat Like "APPLE*" Or strIntituleCat Like "APPLE*" _
Or strFamSFam Like "248200" _
Then
ClassifCatPortailPrx = "APPLE"
 
ElseIf strFamSFam Like "249990" Or strFamSFam Like "252???" Or strFamSFam Like "254???" _
Or strFamSFam Like "248999" Or strFamSFam Like "256???" Or strFamSFam Like "248100" Or strFamSFam Like "242550" _
Or strIntituleCat Like "* TABLETTE *" Or strFamSFam Like "248300" Or strIntituleCat Like "TABLETTE *" Then
ClassifCatPortailPrx = "JEUX/CONSOLES/LOGICIELS/TABLETTES"
 
ElseIf strSecteur Like "025" Or strSecteur Like "076" And _
(strRayon Like "094" Or strRayon Like "096" Or strRayon Like "098" And Not strFamSFam Like "242200") _
Then ClassifCatPortailPrx = "JEUX/CONSOLES/LOGICIELS/TABLETTES"
 
ElseIf strSecteur Like "030" Or strSecteur Like "040" Or strSecteur Like "035" Or strSecteur Like "070" And _
(strRayon Like "102" Or strRayon Like "108" Or strRayon Like "110" Or strRayon Like "115" Or strRayon Like "165" _
Or strRayon Like "160" Or strRayon Like "150" Or strRayon Like "880") _
Then ClassifCatPortailPrx = "BRUN"
 
ElseIf strSecteur Like "050" Or strSecteur Like "045" Or strSecteur Like "076" And _
(strRayon Like "999" Or strRayon Like "185" Or strRayon Like "190" Or strRayon Like "195" Or strRayon Like "200" _
Or strRayon Like "210" Or strRayon Like "180" Or strRayon Like "215" Or strRayon Like "219" _
Or strRayon Like "930" Or strRayon Like "910" Or strRayon Like "925" Or strRayon Like "920" Or strRayon Like "915" _
Or strRayon Like "900" Or strRayon Like "890" Or strRayon Like "850" Or strRayon Like "905" Or strRayon Like "950") Then
ClassifCatPortailPrx = "PEM"
 
ElseIf strSecteur Like "025" And _
(strRayon Like "092" Or strRayon Like "094" Or strRayon Like "095" Or strRayon Like "870" Or strRayon Like "999") Then
ClassifCatPortailPrx = "GRIS"
 
ElseIf strSecteur Like "060" Or strSecteur Like "076" And _
(strRayon Like "220" Or strRayon Like "230" Or strRayon Like "240" Or strRayon Like "250" Or strRayon Like "255" Or strRayon Like "259" Or strRayon Like "935") Then
ClassifCatPortailPrx = "BLANC/GEM"
Else
ClassifCatPortailPrx = "Inconnu"
End If
 
End Function

J'ai comme résultat la capture d'écran jointe à ce msg qui m'affiche des résultats plutôt corrects mais il y a une ligne qui est mal interprétée par mon code (code article 970882).

Je ne comprend pas pourquoi pour les autres lignes j'ai le bon résultat (à priori...) et pas pour celle là. Comme si mon filtre Apple ne marchait pas pour cette ligne et que Access allait du coup directement à la condition suivante la plus proche.

Quelqu'un aurait une idée ?
Merci d'avance car là je sèche

[micniv]

Bonsoir,
un conseil enlève tout tes espaces dans les critères :

Code :

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

1
2
3
4
If strIntituleCat Like "* APPLE *" Or strIntituleCat Like "* IPAD*" _
Or strIntituleCat Like "* IPHONE *" Or strIntituleCat Like "* IPOD*" _
Or strIntituleCat Like "APPLE*" Or strIntituleCat Like "APPLE*" _
Or strFamSFam Like "248200" _

de plus :

If strIntituleCat Like "* APPLE *" Or strIntituleCat Like "APPLE*" Or strIntituleCat Like "APPLE*" ...

est équivalent à

Code :

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

If strIntituleCat Like "*APPLE*"  ...

et personnellement je préfère utiliser :

Code :

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

if instr(1, strIntituleCat , "APPLE") > 0 ...then

Bonne suite