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 : 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
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