1 2 3 4 5 6 7 8 9 10 11
| Dim Lg As Long
With Sheets("Bilan") ' toutes les références précédées d'un point seront attachées à la feuille <liste>
Lg = .Range("C65536").End(xlUp).Row + 1 ' détermine la 1ère cellule vide en colonne C (NOM)
' affecte les valeurs des contrôles aux cellules idoines
.Cells(Lg, 3) = Date_du_jour ''''''''''''''''.Text = Format(Date_du_jour.Text, "DD/MM/YYYY")
.Cells(Lg, 4) = ComboBoxdepenses
.Cells(Lg, 6) = TextBox_Libellé
.Cells(Lg, 9) = Val(TextBoxdepenses)
.Cells(Lg, 11) = TextBox9.Value
.Cells(Lg, 12) = TextBox10.Value |
Partager