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 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142
|
Option Explicit
Private Sub CommandButton1_Click()
Dim lig As Integer, y As Integer, B(1 To 20) As Variant, A1 As String, A2 As String, A3 As String, A4 As String, A5 As String, A6 As String, _
A7 As String, A8 As String, A9 As String, A10 As String, A11 As String, A12 As String, A13 As String, A14 As String, A15 As String, _
A16 As String, A17 As String, A18 As String, A19 As String, A20 As String, x As Integer
x = 1
For y = 0 To TBox1.ListCount - 1
B(x) = TBox1.List(y)
A1 = B(1): A2 = B(2): A3 = B(3): A4 = B(4): A5 = B(5)
A6 = B(6): A7 = B(7): A8 = B(8): A9 = B(9): A10 = B(10)
A11 = B(11): A12 = B(12): A13 = B(13): A14 = B(14): A15 = B(15)
A16 = B(16): A17 = B(17): A18 = B(18): A19 = B(19): A20 = B(20)
x = x + 1
Next y
lig = CLng(Me.Ligne)
With Sheets("ENVIRONNEMENT")
If A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" And A12 <> "" And A13 <> "" And _
A14 <> "" And A15 <> "" And A16 <> "" And A17 <> "" And A18 <> "" And A19 <> "" And A20 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11 & Chr(10) & A12 & Chr(10) & A13 & _
Chr(10) & Chr(10) & A14 & Chr(10) & A15 & Chr(10) & A16 & Chr(10) & A17 & Chr(10) & A18 & Chr(10) & A19 & Chr(10) & A20
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" And A12 <> "" And A13 <> "" And _
A14 <> "" And A15 <> "" And A16 <> "" And A17 <> "" And A18 <> "" And A19 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11 & Chr(10) & A12 & Chr(10) & A13 & _
Chr(10) & Chr(10) & A14 & Chr(10) & A15 & Chr(10) & A16 & Chr(10) & A17 & Chr(10) & A18 & Chr(10) & A19
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" And A12 <> "" And A13 <> "" And _
A14 <> "" And A15 <> "" And A16 <> "" And A17 <> "" And A18 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11 & Chr(10) & A12 & Chr(10) & A13 & _
Chr(10) & Chr(10) & A14 & Chr(10) & A15 & Chr(10) & A16 & Chr(10) & A17 & Chr(10) & A18
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" And A12 <> "" And A13 <> "" And _
A14 <> "" And A15 <> "" And A16 <> "" And A17 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11 & Chr(10) & A12 & Chr(10) & A13 & _
Chr(10) & Chr(10) & A14 & Chr(10) & A15 & Chr(10) & A16 & Chr(10) & A17
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" And A12 <> "" And A13 <> "" And _
A14 <> "" And A15 <> "" And A16 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11 & Chr(10) & A12 & Chr(10) & A13 & _
Chr(10) & Chr(10) & A14 & Chr(10) & A15 & Chr(10) & A16
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" And A12 <> "" And A13 <> "" And _
A14 <> "" And A15 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11 & Chr(10) & A12 & Chr(10) & A13 & _
Chr(10) & Chr(10) & A14 & Chr(10) & A15
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" And A12 <> "" And A13 <> "" And _
A14 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11 & Chr(10) & A12 & Chr(10) & A13 & _
Chr(10) & Chr(10) & A14
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" And A12 <> "" And A13 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11 & Chr(10) & A12 & Chr(10) & A13
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" And A12 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11 & Chr(10) & A12
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" And A11 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10 & Chr(10) & A11
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" And A10 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9 & Chr(10) & A10
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" And A9 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8 & Chr(10) & A9
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" And A8 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7 & Chr(10) & A8
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" And A7 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6 & _
Chr(10) & Chr(10) & A7
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" And A6 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5 & Chr(10) & A6
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" And A5 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4 & Chr(10) & A5
ElseIf A1 <> "" And A2 <> "" And A3 <> "" And A4 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3 & Chr(10) & A4
ElseIf A1 <> "" And A2 <> "" And A3 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2 & Chr(10) & A3
ElseIf A1 <> "" And A2 <> "" Then
.Cells(lig, 3).Value = A1 & Chr(10) & A2
ElseIf A1 <> "" Then
.Cells(lig, 3).Value = A1
End If
End With
Rows(lig & ":" & lig).EntireRow.AutoFit
Unload Me
End Sub |
Partager