Hello, c'est mon deuxième post!
Alors voilà, j'ai rédigé une macro mais celle-ci, pour des raisons qui me sont obscures, ne tourne pas rond ou plutôt loop mal ^^. Je requiers donc votre support.
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Sub Subject_Type()
Dim a As Variant, i As Byte, label As String, b As Variant
i = 1
 
    Application.ScreenUpdating = False
 
 
Do While ActiveCell <> "" And ActiveCell.Offset(0, 1) = ""
 
    Select Case (i)
        Case Is = 1
            label = "label1"
            a = "J"
            b = a
        Case i = 2
            label = "label2"
            a = "I"
            b = a
        Case i = 3
            label = "label3"
            a = "B"
            b = a
        Case i = 4
            label = "label4"
            a = "X"
            b = a
        Case i = 5
            label = "label5"
            a = 0
            b = a
        Case i = 6
            label = "et cetera .."
            a = "H"
            b = a
        Case i = 7
            label = ""
            a = "A"
            b = a
        Case i = 8
            label = ""
            a = "K"
            b = a
        Case i = 9
            label = ""
            a = "N"
            b = "Z"
        Case i = 10
            label = ""
            a = "G"
            b = a
        Case i = 11
            label = ""
            a = "D"
            b = a
        Case i = 12
            label = ""
            a = "Y"
            b = a
        Case i = 13
            label = ""
            a = "F"
            b = a
        Case i = 14
            label = ""
            a = "W"
            b = a
        Case i = 15
            label = ""
            a = 3
            b = a
        Case i = 16
            label = ""
            a = 1
            b = a
        Case i = 17
            label = ""
            a = 2
            b = a
        Case i = 18
            label = ""
            a = "E"
            b = a
        Case i = 19
            label = ""
            a = "C"
            b = a
        Case i > 19
            ActiveCell.Offset(0, 1) = ""   '<=== Ici le label est bien égal à "" (rien)!
            ActiveCell.Offset(1, 0).Select
            i = 1
 End Select
 
 If Left(ActiveCell.Value, 1) = a Then
    ActiveCell.Offset(0, 1) = label
    ActiveCell.Offset(1, 0).Select
    i = 1
 ElseIf Left(ActiveCell.Value, 1) = b Then
    ActiveCell.Offset(0, 1) = label
    ActiveCell.Offset(1, 0).Select
 Else
    i = i + 1
 End If
 
Loop
 
    Application.ScreenUpdating = True
 
End Sub