Private Sub Cmd_Modif_Click()
Dim lig As Byte, col As Byte, Nblig As Byte, Position As Byte
If Me.ListBox1.ListCount >= 1 Then
'Si aucune ligne sélectionnée sortir
If Me.ListBox1.ListIndex = -1 Then
MsgBox "Sélectionnez la ligne à modifier!", vbCritical, "CHOIX LIGNE A MODIFIER"
Exit Sub
Else
Position = Me.ListBox1.ListIndex
'modification date pour toutes les lignes
For lig = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.List(lig, 0) = Me.TextBox1
Next lig
' Me.ListBox1.List(ListBox1.ListIndex, 1) = Me.TextBox2 'n°ecriture
Me.ListBox1.List(Position, 2) = Me.ComboBox2 'code compte
Me.ListBox1.List(Position, 3) = Me.TextBox3 'libellé
Me.ListBox1.List(Position, 4) = Me.ComboBox3 'initiateur
'utilisation textbox4 ou 5 suivant opération
If Me.TextBox8 = "Dépenses" Then
Me.ListBox1.List(Position, 5) = Me.TextBox4 'dépenses
Me.ListBox1.List(Position, 6) = "" 'recettes
Else
Me.ListBox1.List(Position, 5) = "" 'dépenses
Me.ListBox1.List(Position, 6) = Me.TextBox5 'recettes
End If
Me.ListBox1.List(Position, 7) = Me.TextBox6 'commentaires
'calcul total facture
Call TotalFacture
Me.TxtCtrlMontant = TotalFact
'report total dans listbox pour toutes les lignes
For lig = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.List(lig, 8) = Me.TxtCtrlMontant
Next lig
'Me.ListBox1.List(Position, 8) = TotalFact 'total ecritures
Me.ListBox1.List(Position, 9) = Me.TextBox8 'type operations
Me.ListBox1.List(Position, 10) = Me.TextBox9 'montant budget/previsionnel
Me.ListBox1.List(Position, 11) = Me.TextBox10 'banque
Me.ListBox1.List(Position, 12) = Me.NoLig 'N° de ligne dans bd
End If
End If
If Me.TxtCtrlMontant = Me.TextBox7 Then
Me.Cmd_Valider.Enabled = True
End If
'' If Me.TextBox7 = Me.TxtCtrlMontant Then Me.Cmd_Valider.Enabled = True
End Sub