Bonjour à tous

j'ai créer un code qui sans être compliquer est un peu long et cela bien sur par manque de connaissances

le but est d'incrémenter des variable grâce à une boucle, puis d'écrire ces variables dans une même cellule tout en revenant à la ligne à chaque variable

là ou le code se complique c'est que pour éviter de traiter les variables vide j'ai été obliger de créer toutes une série de condition

le code fonctionne parfaitement sur mon ordi mais plante sur tous les autres ordinateurs

Chr(10) erreur de compilation : "projet ou bibliothèque introuvable"
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
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
le programme est un peu compliquer dans son ensemble alors je l'ai mis en ligne à cette adresse : http://nmorf8.1fichier.com/

merci pour votre aide car je ne vois vraiment pas d'ou vient l'erreur ; peu être qu'elle est grosse comme une maison mais que mes maigres compétences ne me permettent pas de la décelée