Problème avec If ElseIf

Version imprimable

Bonjour,

J'aimerais réaliser quelque chose qui est, je pense assez simple, mais il y a un bug dans ce que j'ai fait et je ne comprends pas pourquoi ça ne marche pas. Peut-être pourrez-vous m'aider...

Voici ce que je veux faire :
J'ai des plusieurs références de bracelets qui sont séparés en 3 catégories: manchettes, jonc et chaîne.
Je veux réaliser je segmentation de ces bracelets en fonction du prix (entry, médium, High et parfois High end). Or cette segmentation varie en fonction de la catégorie de bracelets.

Le problème avec ce que j'ai fait c'est qu'il ne fait apparaître que des entry et médium dans la colonne segmentation: aucun High ou High end...

Voici ce que j'ai fait :

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
Sub variables()
  'Déclaration des variables
  Dim numero_ligne As Integer
 
For numero_ligne = 3 To 42
 
   If Cells(numero_ligne, 8).Value = "BRACELET CHAINE" Then
 
       If Cells(numero_ligne, 2).Value < xx Then
       Cells(numero_ligne, 9).Value = "ENTRY"
 
       ElseIf xx <= Cells(numero_ligne, 2).Value < xx Then
       Cells(numero_ligne, 9).Value = "MEDIUM"
 
       ElseIf xx <= Cells(numero_ligne, 2).Value < xx Then
       Cells(numero_ligne, 9).Value = "HIGH"
 
       ElseIf cells(numero_ligne,2).value>= xx then
Cells(numero_ligne, 9).Value = "HIGH-END"
 
       End If
 
   ElseIf Cells(numero_ligne, 8).Value = "BRACELET MANCHETTE" Then
 
       If Cells(numero_ligne, 2).Value < xx Then
       Cells(numero_ligne, 9).Value = "ENTRY"
 
       ElseIf xx <= Cells(numero_ligne, 2).Value < xx Then
       Cells(numero_ligne, 9).Value = "MEDIUM"
 
       ElseIf cells(numero_ligne,2).value>= xx then
 Cells(numero_ligne, 9).Value = "HIGH-END"
 
       End If
 
   ElseIf Cells(numero_ligne, 8).Value = "BRACELET JONC" Then
 
       If Cells(numero_ligne, 2).Value < xx Then
       Cells(numero_ligne, 9).Value = "ENTRY"
 
       ElseIf 600 <= Cells(numero_ligne, 2).Value < xx Then
       Cells(numero_ligne, 9).Value = "MEDIUM"
 
       ElseIf xx <= Cells(numero_ligne, 2).Value < xx Then
       Cells(numero_ligne, 9).Value = "HIGH"
 
       ElseIf cells(numero_ligne,2).value >= xx then
 Cells(numero_ligne, 9).Value = "HIGH-END"
 
       End If
 
    End If
 
    Next
 
    End Sub

Merci d'avance pr votre aide !

Bonne soirée

27/08/2014, 19h57
duchesse_

Problème if elseif

(Excusez-moi je viens de voir Qu'il y a des endif en trop sur ce que j'ai posté, c'est une erreur ! Une fois corrigé le problème persiste)
27/08/2014, 20h19
SfJ5Rpw8

Citation:

Envoyé par duchesse_

(Excusez-moi je viens de voir Qu'il y a des endif en trop sur ce que j'ai posté, c'est une erreur ! Une fois corrigé le problème persiste)

Bonsoir,

et qu'attendez-vous pour poster le code corrigé ?

comment est initialisé votre variable xx ?
27/08/2014, 22h25
duchesse_

Bonsoir,

Il n'y a pas d'erreur, c'est bien ce que j'ai lancé sur excel. Autemps pour moi !

J'ai oublié de préciser que xx n'était pas une variable : j'ai en fait remplacé toutes les valeurs par xx pour des raisons de confidentialité (c'est des valeurs différentes à chaque fois).

Merci pour votre aide !
27/08/2014, 22h57
SfJ5Rpw8

Il est clair que sans vos valeur sois disant confidentielle il n'est pas possible de comprendre le fonctionnement de votre code..

De plus je doute qu'avec une telle écriture le problème de votre code ne soit qu'une mauvais résultat .

Code:

ElseIf xx <= Cells(numero_ligne, 2).Value < xx Then

Pb If ElseIf

Si ca peut vous aider à comprendre voici le code avec des valeurs:

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
Sub variables()
   'Déclaration des variables
   Dim numero_ligne As Integer
 
For numero_ligne = 3 To 42
 
    If Cells(numero_ligne, 8).Value = "BRACELET CHAINE" Then
 
        If Cells(numero_ligne, 2).Value < 50 Then
        Cells(numero_ligne, 9).Value = "ENTRY"
 
        ElseIf 50 <= Cells(numero_ligne, 2).Value < 150 Then
        Cells(numero_ligne, 9).Value = "MEDIUM"
 
        ElseIf 150 <= Cells(numero_ligne, 2).Value < 500 Then
        Cells(numero_ligne, 9).Value = "HIGH"
 
        ElseIf Cells(numero_ligne, 2).Value >= 500 Then
        Cells(numero_ligne, 9).Value = "HIGH-END"
 
        End If
 
    ElseIf Cells(numero_ligne, 8).Value = "BRACELET MANCHETTE" Then
 
        If Cells(numero_ligne, 2).Value < 110 Then
        Cells(numero_ligne, 9).Value = "ENTRY"
 
        ElseIf 110 <= Cells(numero_ligne, 2).Value < 500 Then
        Cells(numero_ligne, 9).Value = "MEDIUM"
 
        ElseIf Cells(numero_ligne, 2).Value >= 500 Then
        Cells(numero_ligne, 9).Value = "HIGH-END"
 
        End If
 
    ElseIf Cells(numero_ligne, 8).Value = "BRACELET JONC" Then
 
        If Cells(numero_ligne, 2).Value < 40 Then
        Cells(numero_ligne, 9).Value = "ENTRY"
 
        ElseIf 40 <= Cells(numero_ligne, 2).Value < 100 Then
        Cells(numero_ligne, 9).Value = "MEDIUM"
 
        ElseIf 100 <= Cells(numero_ligne, 2).Value < 500 Then
        Cells(numero_ligne, 9).Value = "HIGH"
 
        ElseIf Cells(numero_ligne, 2).Value >= 500 Then
        Cells(numero_ligne, 9).Value = "HIGH-END"
 
        End If
 
     End If
 
     Next
 
     End Sub

Voici ce qui s'affiche dans ma colonne "Segmentation" :

Citation:

ENTRY
MEDIUM
MEDIUM
MEDIUM
MEDIUM
MEDIUM
ENTRY
MEDIUM
MEDIUM
MEDIUM
MEDIUM
MEDIUM
MEDIUM
MEDIUM
MEDIUM
ENTRY
MEDIUM
MEDIUM
ENTRY
MEDIUM
ENTRY
MEDIUM
MEDIUM
ENTRY
MEDIUM
ENTRY
ENTRY
ENTRY
MEDIUM
ENTRY
MEDIUM
ENTRY
MEDIUM
MEDIUM
ENTRY
ENTRY
ENTRY

Comme je vous le disais, il n'y a pas de High ou de High end

28/08/2014, 09h57
SfJ5Rpw8

bonjour,

l'écriture :

Code:

ElseIf 50 <= Cells(numero_ligne, 2).Value < 150 Then

est incorrecte il faut écrire :

Code:

ElseIf 50 <= Cells(numero_ligne, 2).Value And Cells(numero_ligne, 2).Value < 150 Then

Bonjour, regardes ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub variables()
'Déclaration des variables
Dim numero_ligne As Integer
For numero_ligne = 3 To 42
        Select Case Cells(numero_ligne, 8).Value
        Case "BRACELET CHAINE"
            If Cells(numero_ligne, 2).Value < xx Then Cells(numero_ligne, 9).Value = "ENTRY"
            If xx <= Cells(numero_ligne, 2).Value < xx Then Cells(numero_ligne, 9).Value = "MEDIUM"
            If xx <= Cells(numero_ligne, 2).Value < xx Then Cells(numero_ligne, 9).Value = "HIGH"
            If Cells(numero_ligne, 2).Value >= xx Then Cells(numero_ligne, 9).Value = "HIGH-END"
        Case "BRACELET MANCHETTE"
            If Cells(numero_ligne, 2).Value < xx Then Cells(numero_ligne, 9).Value = "ENTRY"
            If xx <= Cells(numero_ligne, 2).Value < xx Then Cells(numero_ligne, 9).Value = "MEDIUM"
            If Cells(numero_ligne, 2).Value >= xx Then Cells(numero_ligne, 9).Value = "HIGH-END"
        Case Cells(numero_ligne, 8).Value = "BRACELET JONC"
            If Cells(numero_ligne, 2).Value < xx Then Cells(numero_ligne, 9).Value = "ENTRY"
            If 600 <= Cells(numero_ligne, 2).Value < xx Then Cells(numero_ligne, 9).Value = "MEDIUM"
            If xx <= Cells(numero_ligne, 2).Value < xx Then Cells(numero_ligne, 9).Value = "HIGH"
            If Cells(numero_ligne, 2).Value >= xx Then Cells(numero_ligne, 9).Value = "HIGH-END"
 
    End Select
Next
End Sub

28/08/2014, 10h38
duchesse_

Merci beaucoup, cela fonctionne !!
28/08/2014, 10h39
SfJ5Rpw8

bonjour rdurupt

il semble que tu n'ais pas lu mon message tu écris :

Code:

If xx <= Cells(numero_ligne, 2).Value < xx Then Cells(numero_ligne, 9).Value = "MEDIUM"

ce qui équivaut à :

Code:

If (xx <= Cells(numero_ligne, 2).Value) < xx Then Cells(numero_ligne, 9).Value = "MEDIUM"

donc on as

Code:

(xx <= Cells(numero_ligne, 2).Value)

que l'on peu remplacer par true ou false ...

du coup c'est comme si tu écrivais :

Code:

If true < xx Then Cells(numero_ligne, 9).Value = "MEDIUM"

ou

Code:

If false < xx Then Cells(numero_ligne, 9).Value = "MEDIUM"

c'est bien le résultat que tu compte avoir ?
28/08/2014, 10h58
Invité

Bonjour bbil,

Oui effectivement j'ai zappé!