'--------------------------------------------------
' pour récupérer les valeurs des taux et tranches |
'--------------------------------------------------
With Sheets("Liquidation Taxe Salaire") 'ici suggestion 1 : utiliser With \ End With
UserForm1.TAUX_A = .Range("N12"): UserForm1.TAUX_A1 = .Range("N13") 'ici suggestion 2
UserForm1.TAUX_A2 = .Range("N14"): UserForm1.TAUX_A3 = .Range("N15")
UserForm1.A.Value = .Range("L13").Value
UserForm1.A1_INF.Value = .Range("L13").Value
UserForm1.A1_SUP.Value = .Range("M13").Value
UserForm1.A2_INF.Value = .Range("L14").Value
UserForm1.A2_SUP.Value = .Range("M14").Value
UserForm1.A3_SUP.Value = .Range("L15").Value
UserForm1.TAUX_B.Value = .Range("L16").Value
UserForm1.TAUX_C.Value = .Range("L17").Value
UserForm1.SECTEUR1.Value = Format(.Range("L19").Value, "0%")
UserForm1.SECTEUR2.Value = Format(.Range("M19").Value, "0%")
UserForm1.SECTEUR3.Value = Format(.Range("N19").Value, "0%")
UserForm1.SECTEUR4.Value = Format(.Range("O19").Value, "0%")
UserForm1.FRANCHISE.Value = .Range("L22").Value
UserForm1.DECOTE_MIN.Value = .Range("L23").Value
UserForm1.DECOTE_MAX.Value = .Range("L24").Value
UserForm1.ABATTEMENT.Value = .Range("L25").Value
'--------------------------------------------------------------
' pour récupérer les sommes dues ou à devoir dans les TextBox |
'--------------------------------------------------------------
UserForm1.EX1.Value = .Range("M29").Value
UserForm1.EX2.Value = .Range("M29").Value
UserForm1.EX3.Value = .Range("M29").Value
UserForm1.EX4.Value = .Range("M29").Value
UserForm1.DEVOIR1.Value = .Range("M28").Value
UserForm1.DEVOIR2.Value = .Range("M28").Value
UserForm1.DEVOIR3.Value = .Range("M28").Value
UserForm1.DEVOIR4.Value = .Range("M28").Value
UserForm1.TOTALV.Value = .Range("M44").Value
End With