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 109 110 111 112 113 114 115 116 117 118 119 120 121 122
| Sub macro_liste()
Dim reference As Integer
reference = Cells(1, 1)
If reference = 1 Then
Cells(4, 3) = 0.05
Cells(5, 4) = 4
Cells(6, 4) = 1
Cells(7, 4) = 0.1
Cells(8, 3) = 0.05
Cells(10, 3) = 0.05
Cells(11, 4) = 4
Cells(12, 4) = Empty
Cells(13, 4) = 0.08
Cells(14, 4) = 0.1
Cells(15, 3) = 0.05
Cells(17, 3) = 0.05
Cells(18, 3) = 0.5
Cells(18, 4) = 12
Cells(19, 3) = 0.5
Cells(19, 4) = 6
Cells(20, 4) = 2
Cells(21, 4) = 0.5
Cells(22, 3) = 0.05
Cells(24, 3) = 0.05
Cells(25, 4) = 1
Cells(26, 4) = Empty
Cells(27, 4) = 1
Cells(28, 3) = 0.05
Range("D12,D26").Select
Range("D26").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.599963377788629
.PatternTintAndShade = 0
Range("E2").Select
End With
End If
If reference = 2 Then
Cells(4, 3) = 0.05
Cells(5, 4) = 4
Cells(6, 4) = 1
Cells(7, 4) = 0.1
Cells(8, 3) = 0.05
Cells(10, 3) = 0.05
Cells(11, 4) = 4
Cells(12, 4) = Empty
Cells(13, 4) = 0.08
Cells(14, 4) = 0.1
Cells(15, 3) = 0.05
Cells(17, 3) = 0.05
Cells(18, 3) = 1
Cells(18, 4) = 9.5
Cells(19, 3) = 0.5
Cells(19, 4) = 10
Cells(20, 4) = 2
Cells(21, 4) = 0.5
Cells(22, 3) = 0.05
Cells(24, 3) = 0.05
Cells(25, 4) = 0.5
Cells(26, 4) = 1
Cells(27, 4) = 0.25
Cells(28, 3) = 0.05
Range("D26").Select
Range("D26").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
Range("E2").Select
End With
End If
If reference = 3 Then
Cells(4, 3) = 0.05
Cells(5, 4) = 4
Cells(6, 4) = 1
Cells(7, 4) = 0.1
Cells(8, 3) = 0.05
Cells(10, 3) = 0.05
Cells(11, 4) = 4
Cells(12, 4) = Empty
Cells(13, 4) = 0.08
Cells(14, 4) = 0.1
Cells(15, 3) = 0.05
Cells(17, 3) = 0.05
Cells(18, 3) = 1
Cells(18, 4) = 9.5
Cells(19, 3) = 0.5
Cells(19, 4) = 1.75
Cells(20, 4) = 2
Cells(21, 4) = 0.5
Cells(22, 3) = 0.05
Cells(24, 3) = 0.05
Cells(25, 4) = 0.5
Cells(26, 4) = Empty
Cells(27, 4) = 0.25
Cells(28, 3) = 0.05
Range("D12,D26").Select
Range("D26").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.599963377788629
.PatternTintAndShade = 0
Range("E2").Select
End With
End If
End Sub |
Partager