bonjour le forum
Je vous écris car j'ai besoin de votre aide pour générer des écritures comptables avec une macro en filtrant certaines données de notre premières fiche
Le but étant de : Par la feuille 1(regarde exemple) générer les écritures de la feuilles 2
pour y arriver j'utilise une macro mais je n'arrive pas a l'adapter
Est ce que quelqu'un pourrait m'aider s'il vous plait ?
Voici ma macro et le fichier ci-dessous est mon exemple La base de données (Feuil1)
le rendu (Feuil2)
Sub MacroFactures()
'
' Test Macro
'
Dim i%, iRC&, WsC As Worksheet, THdr
Application.ScreenUpdating = False
Worksheets.Add.Name = "FiltreReglement" & Worksheets.Count + 1
Set WsC = ActiveSheet
THdr = Split("date rgt,code journal,compte,débit,crédit,Libellé,pièce,référence pièce", ",")
For i = 0 To UBound(THdr)
WsC.Cells(2, 1 + i) = THdr(i)
Next
iRC = 3
ArrS = Feuil1.[A1].CurrentRegion.Value2
For i = 2 To UBound(ArrS)
THdr(0) = Format(CDate(ArrS(i, 3)), "dd/mm/yyyy")
THdr(1) = "RGLT"
THdr(2) = "411" & ArrS(i, 5)
THdr(3) = ""
THdr(4) = ArrS(i, 12)
THdr(5) = ArrS(i, 6)
THdr(6) = ArrS(i, 10)
THdr(7) = ArrS(i, 13)
WsC.Cells(iRC, 1).Resize(1, UBound(THdr) + 1) = THdr
iRC = iRC + 1
THdr(3) = ArrS(i, 11)
THdr(4) = ""
WsC.Cells(iRC, 1).Resize(1, UBound(THdr) + 1) = THdr
iRC = iRC + 1
Next
Columns("F:F").ColumnWidth = 26.14
Columns("G:G").ColumnWidth = 31.57
Columns("H:H").ColumnWidth = 19.14
Columns("B:B").ColumnWidth = 15
Range("A2:H2").Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
<br>