Probleme code VBA dans macro

Version imprimable

05/12/2016, 19h08
seb8791

Probleme code VBA dans macro

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 :D

Thanks par avance,
05/12/2016, 19h13
unparia

Bonjour
Je vois déjà une erreur à la ligne 14 du code que tu nous as montré ici ...
A corriger, donc ... :roll:
05/12/2016, 19h21
seb8791

Réponse

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 !! :-)
05/12/2016, 20h35
unparia

Citation:

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 ...

voici le petit bebe :

Code:

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 ! :)

05/12/2016, 22h35
patricktoulon

re

@unparia
:ptdr:
t'é tro for!!!!:mouarf:
05/12/2016, 22h42
seb8791

L'orthographe est pas ta spécialité toi
Tu m'expliques l'intérêt de ton message hormis te ridiculiser ?

re
déjà je n'ai pas tester ton code mais vu l'écriture ca donne pas envie

quand on est a la 50 eme ligne on a oublié ou on cherche a quoi correspond qui

je te cite un exemple (partie de ton code )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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

je le remplacerais bien par cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Set sh1 = ActiveWorkbook.Sheets("Banque Client")
Set sh2 = ActiveWorkbook.Sheets("Tableau Final Cador")
For c = 15 To 20
ligne = Array(sh1.Cells(a, "c"), sh1.Cells(a, "D"), sh1.Cells(10, c), sh1.Cells(a, "E"), sh1.Cells(a, "F"), 0, sh1.Cells(a, c))
 If Len(sh1.Cells(a, c).Value) > 0 Then
 N = N + 1
With sh2
 Cells(l + N, "B").Resize(1, 7) = ligne
End With
 End If
 DoEvents
 Next c

tu vois ce que je veux dire ??
je n'ai pas besoins de lire 100 ligne pour trouver mon chemin
ce n'est que de la transposition de cellules non contigües vers une plage de 1 ligne cellules contiguë

05/12/2016, 23h07
seb8791

Je vois, j'avais trouvé que ca comme solution en élaborant tout ca,

je sais pas si tu vois ou je veux en arriver : c'est pour établir une feuille de saisie comptable depuis un tableau que remplit un client.

En effet, ta transformation est bien plus lisible, je suis pas un spécialiste du VBA
05/12/2016, 23h22
patricktoulon

re

re
j'ai fait une petite erreur dans ligne
inrse f & e

Code:

sh1.Cells(a, "E"), sh1.Cells(a, "F")

>>>>>vers>>>>>

Code:

sh1.Cells(a, "F"), sh1.Cells(a, "E")

ESSAIE DE COMPRENDRE MON CODE ET APPLIQUE LE A TOUT TES BOUCLES FOR TU Y VERRA PLUS CLAIR
LES DEUX SET TU PEUX LES METTRE EN HAUT DE MACRO
05/12/2016, 23h24
seb8791

D'accord merci, je me repencherai sur la question,

le truc c'est que tout marche autrement, donc je ne sais pas si c'est la correction de syntaxe qui changera la problématique.

Merci de ton aide en tout cas :)
05/12/2016, 23h41
patricktoulon

re
l'erreur te sera peut être plus évidente a mon avis

re
ah!! et au fait c'est voulu ;););););)

Citation:

Envoyé par seb8791

L'orthographe est pas ta spécialité toi
Tu m'expliques l'intérêt de ton message hormis te ridiculiser ?

aussi ridicule que ta demande au départ sans démo ou code

et j'avoue que unparia des fois me fait marrer avec ses réponses

ca fait pas de mal de rire un peu ca pourrait même t'aider a résoudre ton problème parfois en s'éloignant un peu on y vois plus clair