bonjour,
Je souhaiterai comprendre plus en détail cette macro pour l'adapter à mon proagramme
Je vous remercie d'avance
Je joins mon programme si ca peut aider
Sub Archives()
Dim Datefac As Date
Dim Numfac As Integer
Dim Client, NumClien, Designation, Objet, Lot, CODE_CT, CODE_TVA, MT_TTC, COM_HT, COM_TVA, CT, MTG_TTC As Variant
With Application
.ScreenUpdating = False
.Calculation = xlManual
End With
Datefac = Sheets("Facmodele").Range("h8").Value
Client = Sheets("Facmodele").Range("c14").Value
Numfac = Sheets("Facmodele").Range("e9").Value
NumClient = Sheets("facmodele").Range("i12").Value
COM_HT = Sheets("facmodele").Range("i49").Value
COM_TVA = Sheets("facmodele").Range("i50").Value
CT = Sheets("facmodele").Range("i52").Value
MTG_TTC = Sheets("facmodele").Range("i54").Value
Sheets("facmodele").Select
Range("a24").Select
Do While ActiveCell <> ""
Lot = ActiveCell.Value
Objet = ActiveCell.Offset(0, 1).Value
Designation = ActiveCell.Offset(0, 2).Value
CODE_CT = ActiveCell.Offset(0, 6).Value
CODE_TVA = ActiveCell.Offset(0, 7).Value
MT_TTC = ActiveCell.Offset(0, 8).Value
Sheets("Fichier").Select
Range("a65536").End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell = Numfac
ActiveCell.Offset(0, 1) = Datefac
ActiveCell.Offset(0, 2) = Client
ActiveCell.Offset(0, 3) = NumClient
ActiveCell.Offset(0, 4) = Lot
ActiveCell.Offset(0, 5) = Objet
ActiveCell.Offset(0, 6) = Designation
ActiveCell.Offset(0, 7) = CODE_CT
ActiveCell.Offset(0, 8) = CODE_TVA
ActiveCell.Offset(0, 9) = MT_TTC
ActiveCell.Offset(0, 10).FormulaR1C1 = "=IF(RC9=1,RC10-RC13,"""")"
ActiveCell.Offset(0, 11).FormulaR1C1 = "=IF(RC9=2,RC10-RC13,"""")"
ActiveCell.Offset(0, 12).FormulaR1C1 = "=IF(RC9=1,RC10/1.196,IF(RC9=2,RC10/1.055,RC10))"
ActiveCell.Offset(0, 13).Value = COM_HT
ActiveCell.Offset(0, 14).Value = COM_TVA
ActiveCell.Offset(0, 15).FormulaR1C1 = "=RC14+RC15"
ActiveCell.Offset(0, 16).Value = CT
ActiveCell.Offset(0, 17).Value = MTG_TTC
ActiveCell.Offset(0, 19).FormulaR1C1 = "=IF(RC10+RC16+RC17=RC18,""OK"",""Attention Erreur!"")"
ActiveWorkbook.Names.Add Name:="NumFacture", RefersToR1C1:="=Fichier!R8C1:R" & ActiveCell.Row & "C1"
Sheets("Facmodele").Select
ActiveCell.Offset(1, 0).Select
Loop
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub
Je souhaiterai comprendre plus en détail cette macro pour l'adapter à mon proagramme
Je vous remercie d'avance
Je joins mon programme si ca peut aider
Sub Archives()
Dim Datefac As Date
Dim Numfac As Integer
Dim Client, NumClien, Designation, Objet, Lot, CODE_CT, CODE_TVA, MT_TTC, COM_HT, COM_TVA, CT, MTG_TTC As Variant
With Application
.ScreenUpdating = False
.Calculation = xlManual
End With
Datefac = Sheets("Facmodele").Range("h8").Value
Client = Sheets("Facmodele").Range("c14").Value
Numfac = Sheets("Facmodele").Range("e9").Value
NumClient = Sheets("facmodele").Range("i12").Value
COM_HT = Sheets("facmodele").Range("i49").Value
COM_TVA = Sheets("facmodele").Range("i50").Value
CT = Sheets("facmodele").Range("i52").Value
MTG_TTC = Sheets("facmodele").Range("i54").Value
Sheets("facmodele").Select
Range("a24").Select
Do While ActiveCell <> ""
Lot = ActiveCell.Value
Objet = ActiveCell.Offset(0, 1).Value
Designation = ActiveCell.Offset(0, 2).Value
CODE_CT = ActiveCell.Offset(0, 6).Value
CODE_TVA = ActiveCell.Offset(0, 7).Value
MT_TTC = ActiveCell.Offset(0, 8).Value
Sheets("Fichier").Select
Range("a65536").End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell = Numfac
ActiveCell.Offset(0, 1) = Datefac
ActiveCell.Offset(0, 2) = Client
ActiveCell.Offset(0, 3) = NumClient
ActiveCell.Offset(0, 4) = Lot
ActiveCell.Offset(0, 5) = Objet
ActiveCell.Offset(0, 6) = Designation
ActiveCell.Offset(0, 7) = CODE_CT
ActiveCell.Offset(0, 8) = CODE_TVA
ActiveCell.Offset(0, 9) = MT_TTC
ActiveCell.Offset(0, 10).FormulaR1C1 = "=IF(RC9=1,RC10-RC13,"""")"
ActiveCell.Offset(0, 11).FormulaR1C1 = "=IF(RC9=2,RC10-RC13,"""")"
ActiveCell.Offset(0, 12).FormulaR1C1 = "=IF(RC9=1,RC10/1.196,IF(RC9=2,RC10/1.055,RC10))"
ActiveCell.Offset(0, 13).Value = COM_HT
ActiveCell.Offset(0, 14).Value = COM_TVA
ActiveCell.Offset(0, 15).FormulaR1C1 = "=RC14+RC15"
ActiveCell.Offset(0, 16).Value = CT
ActiveCell.Offset(0, 17).Value = MTG_TTC
ActiveCell.Offset(0, 19).FormulaR1C1 = "=IF(RC10+RC16+RC17=RC18,""OK"",""Attention Erreur!"")"
ActiveWorkbook.Names.Add Name:="NumFacture", RefersToR1C1:="=Fichier!R8C1:R" & ActiveCell.Row & "C1"
Sheets("Facmodele").Select
ActiveCell.Offset(1, 0).Select
Loop
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub