Probleme code VBA
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,
Bonjour et bienvenue sur le forum
Tu écris :
ce serait cool et peux partager le fichier dès que besoin
Je doute fort en effet que quelqu'un, même très fort, puisse t'aider par télépathie...
Bye !
voici le petit bebe :
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 !