Discussion :

[seb8791]

Bonjour à tous,

Petit nouveau inscrit, vos tutos m'ont été très utiles pour mettre en place de nouveaux fichiers excel avec codes VBA.

Cependant, me voila coincé sur un tout petit point. C'est un fichier qui est créé avec une importante macro, mais mon code vba doit planter à un petit endroit.

Si jamais quelqu'un pouvait m'aider, ce serait cool et peux partager le fichier dès que besoin

Thanks par avance,

[unparia]

Bonjour
Je vois déjà une erreur à la ligne 14 du code que tu nous as montré ici ...
A corriger, donc ...

[seb8791]

Merci de ton retour

Par contre, je n'ai rien mis du tout concernant mon code

Le veux tu pour essayer de m'aider

Merci !! :-)

[unparia]

Par contre, je n'ai rien mis du tout concernant mon code

Le veux tu pour essayer de m'aider

Pas vraiment nécessaire. Il n'y a ici que des supermen.
Nous allons donc mouiller notre index et le mettre au vent. Cette "méthode" nous permettra peut-être de nous éclairer, hein ...

[seb8791]

voici le petit bebe :

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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
Sub ECRITURECAISSECADOR()
 
Dim strPw As String
 
strPw = "PTBG2016"
 
If InputBox("Saisissez le mot de passe", "Acces à la macro") <> strPw Then
 
MsgBox ("Mot de passe erroné")
 
Exit Sub
 
Else
 
MsgBox ("Mot de passe correct")
 
End If
 
If MsgBox("mettre en forme les données pour pouvoir les copier-coller dans Cador?", vbYesNo, "Lancer?") = vbYes Then
 
Application.Cursor = xlWait
deb = 11
l = deb
 
ActiveWorkbook.Sheets("Tableau Final Cador").Range("A12:K10000").Clear
 
For a = 12 To 15000
n = 0
 
If Len(ActiveWorkbook.Sheets("Banque Client").Range("D" & a).Value) > 0 Then
 
'Ligne encaissement
 
 
For c = 15 To 20
 
If Len(ActiveWorkbook.Sheets("Banque Client").Cells(a, c).Value) > 0 Then
n = n + 1
 
'date
ActiveWorkbook.Sheets("Tableau Final Cador").Range("B" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("C" & a).Value
'Pièce
ActiveWorkbook.Sheets("Tableau Final Cador").Range("C" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("D" & a).Value
'Compte
ActiveWorkbook.Sheets("Tableau Final Cador").Range("D" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Cells(10, c).Value
'Ref
ActiveWorkbook.Sheets("Tableau Final Cador").Range("F" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("E" & a).Value
'libellé
ActiveWorkbook.Sheets("Tableau Final Cador").Range("E" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("F" & a).Value
'debit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("G" & (l + n)).Value = "0"
'credit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("H" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Cells(a, c).Value
End If
DoEvents
Next c
 
 
'DIVERS
If Len(ActiveWorkbook.Sheets("Banque Client").Cells(a, 21).Value) > 0 Then
'date
ActiveWorkbook.Sheets("Tableau Final Cador").Range("B" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("C" & a).Value
'Pièce
ActiveWorkbook.Sheets("Tableau Final Cador").Range("C" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("D" & a).Value
'Compte
ActiveWorkbook.Sheets("Tableau Final Cador").Range("D" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Cells(a, 20).Value
'Ref
ActiveWorkbook.Sheets("Tableau Final Cador").Range("F" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("E" & a).Value
'libellé
ActiveWorkbook.Sheets("Tableau Final Cador").Range("E" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("F" & a).Value
'debit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("G" & (l + n)).Value = "0"
'credit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("H" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Cells(a, 21).Value
 
End If
DoEvents
 
'Ligne décaissement
 
For c = 25 To 48
 
If Len(ActiveWorkbook.Sheets("Banque Client").Cells(a, c).Value) > 0 Then
n = n + 1
 
'date
ActiveWorkbook.Sheets("Tableau Final Cador").Range("B" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("C" & a).Value
'Pièce
ActiveWorkbook.Sheets("Tableau Final Cador").Range("C" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("D" & a).Value
'Compte
ActiveWorkbook.Sheets("Tableau Final Cador").Range("D" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Cells(10, c).Value
'Ref
ActiveWorkbook.Sheets("Tableau Final Cador").Range("F" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("E" & a).Value
'libellé
ActiveWorkbook.Sheets("Tableau Final Cador").Range("E" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("F" & a).Value
'debit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("G" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Cells(a, c).Value
'credit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("H" & (l + n)).Value = "0"
 
End If
Next c
DoEvents
 
 
'DIVERS
If Len(ActiveWorkbook.Sheets("Banque Client").Cells(a, 22).Value) > 0 Then
n = n + 1
'date
ActiveWorkbook.Sheets("Tableau Final Cador").Range("B" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("C" & a).Value
'Pièce
ActiveWorkbook.Sheets("Tableau Final Cador").Range("C" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("D" & a).Value
'Compte
ActiveWorkbook.Sheets("Tableau Final Cador").Range("D" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Cells(a, 23).Value
'Ref
ActiveWorkbook.Sheets("Tableau Final Cador").Range("F" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("E" & a).Value
'libellé
ActiveWorkbook.Sheets("Tableau Final Cador").Range("E" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("F" & a).Value
'debit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("G" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Cells(a, 24).Value
'credit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("H" & (l + n)).Value = "0"
 
End If
DoEvents
 
'Ligne Banque
 
tst = ActiveWorkbook.Sheets("Banque Client").Range("AY" & a).Value
 
 
'date
ActiveWorkbook.Sheets("Tableau Final Cador").Range("B" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("C" & a).Value
'Pièce
ActiveWorkbook.Sheets("Tableau Final Cador").Range("C" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("D" & a).Value
'Compte
ActiveWorkbook.Sheets("Tableau Final Cador").Range("D" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Cells(5, 17).Value
'Ref
ActiveWorkbook.Sheets("Tableau Final Cador").Range("F" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("E" & a).Value
'libellé
ActiveWorkbook.Sheets("Tableau Final Cador").Range("E" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("F" & a).Value
 
If tst = "D" Then
'debit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("G" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("AZ" & a).Value
'credit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("H" & (l + n)).Value = "0"
 
Else
 
'debit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("G" & (l + n)).Value = "0"
'credit
ActiveWorkbook.Sheets("Tableau Final Cador").Range("H" & (l + n)).Value = ActiveWorkbook.Sheets("Banque Client").Range("AZ" & a).Value
 
 
End If
 
l = l + n
 
Else
 
Exit For
 
End If
 
DoEvents
Next a
 
DoEvents
 
'
Sheets("Tableau final Cador").Select
 
Columns("B:B").Select
Selection.NumberFormat = "mm/dd/yyyy"
'
Columns("G:H").Select
Range("H7").Activate
Selection.NumberFormat = "#,##0.00"
Range("B11").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
With Selection
.HorizontalAlignment = xlGeneral
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B12:H12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("B12").Select
 
Application.Cursor = xlDefault
End If
 
End Sub

ce qui ne fonctionne pas se trouve au niveau de la partie divers concernant le décaissement et encaissement.

merci par avance !

[patricktoulon]

@unparia

t'é tro for!!!!