Private Sub UserForm_Initialize()
Dim a As Byte 'déclare la variable i
For a = 1 To 14
'rend inaccessible le textbox i
Me.Controls("TextBox" & a).Enabled = False
Next a '--prochaine valeur de la boucle
ToggleButton1.Caption = "Mode Modifier"
Dim i As Long, x As Long, k As Byte, li As Object
With ListView1
'--Entête
With .ColumnHeaders
.Clear
.Add , , "N° Facture ", 40 'titre de la colonne et largeur et alignement
.Add , , "Nom Chantier", 90
.Add , , "Date", 65, lvwColumnCenter
.Add , , "Nom Client", 70
.Add , , "Code Chantier", 60
.Add , , "Facture a Payer", 50
.Add , , "Echéance Le", 60, lvwColumnRight
.Add , , "Mode Réglement", 40, lvwColumnRight
.Add , , "Date Réglement", 60, lvwColumnRight
.Add , , "Acc Versé", 50, lvwColumnRight
.Add , , "Reste Dû", 50, lvwColumnRight
.Add , , "Facture Payées", 50, lvwColumnRight
.Add , , "N° Chéque ou Virement", 40, lvwColumnRight
.Add , , "Facture Pointée", 30, lvwColumnRight
End With
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
' Chargement des données
On Error Resume Next
For i = 10 To Sheets("Réglement").Range("A65536").End(xlUp).Row
Set li = .ListItems.Add(, "K" & i, Sheets("Réglement").Cells(i, 1)) '1ère Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 2) '2ème Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 3) '3ème Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 4) '4ème Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 5) ' '5ème Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 6), "# ##0.00 €") '3ème Colonne
'For k = 3 To 5
'li.ListSubItems.Add , , Format(Sheets("Data").Cells(i, k + 1), "# ##0.00 €") 'Colonne 4 à 6
'Next
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 7), "dd/mm/yyyy") 'date '7èmè Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 8) ', "# ##0.00 €") '8èmè Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 9), "dd/mm/yyyy") 'Date '9 èmè Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 10), "# ##0.00 €") '10 èmè Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 11), "# ##0.00 €") '11 èmè Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 12), "# ##0.00 €") '12 èmè Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 13) '13 èmè Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 14) '13 èmè Colonne
MiseEnForme
Label26.Caption = .ListItems.Count
Next
' Boucle pour Nom des Labels
For k = 1 To 14
Controls("Label" & k).Caption = ListView1.ColumnHeaders(k)
Next
.ListItems(1).Selected = False
End With
'TTotal 5, 1 'ou premier chiffre c'est N° de la >Colonne et le Deuxiéme N° celui du N° du Label
'TTotal 9, 2
TTotal 11, 3
Alim_Combo
CommandButton2.Enabled = False 'Btn Modifier
CommandButton9.Enabled = False 'Btn Valider Réglement Facture
CommandButton10.Enabled = False 'Btn Ok
CommandButton11.Enabled = False
'Label29 = CDbl(Lbl3) 'Lbl1 - Lbl2 -
'Label29 = Format(Label29, "# ##0.00 €")
End Sub