Private Sub UserForm_Initialize()
TextBox1 = Date
TextBox2 = Sheets(7).Range("G2").Text
TextBox3.Value = Sheets(2).Range("S6").Value
TextBox4.Value = Sheets(2).Range("S7").Value
Label18.Caption = ListView1.ListItems.Count 'On affiche le Nb enregistrement
With ListView1
.Gridlines = True 'affiche les lignes
.View = lvwReport 'style de rapport
.FullRowSelect = True 'permet de selectionner une ligne dans la liste
.ColumnHeaders.Add Text:="Noms", Width:=40
.ColumnHeaders.Add Text:="Prénom", Width:=50
.ColumnHeaders.Add Text:="Grade", Width:=30
.ColumnHeaders.Add Text:="Libellé unité", Width:=80
.ColumnHeaders.Add Text:="PCE", Width:=50
.ColumnHeaders.Add Text:="Libellé rubrique", Width:=80
.ColumnHeaders.Add Text:="Montant", Width:=50
End With
With Sheets("BDD")
DernièreFacture = Format(.Range("B" & .Rows.Count).End(xlUp), "mm/yyyy")
Me.TextBox5 = Format(DateSerial(Year(DernièreFacture), Month(DernièreFacture) + 1, 1), "mm/yyyy")
End With
'Call Actualisation 'on appelle la procédure de remplissage du listview
End Sub