Private Sub UserForm_Initialize()
Dim i As Integer, Drl As Integer, Somme As Double, Ndevis As String
Somme = 0 '.....................................................................................Initialisation de la variable.....
With Sheets("FACTURES") '.......................................................................Avec la feuille Factures.....
Drl = .Range("A65500").End(xlUp).Row '..................................................La dernière ligne non vide.....
.Range("A2:A" & Drl).Name = "ColA"
.Range("K2:K" & Drl).Name = "ColK"
' For i = 2 To Drl '..........................................................................Boucle sur les lignes.....
' If .Cells(i, 1).Value = UserForm3.TextBox1.Value Then '.................................Si la cellule de la 1ère colonne = le n° de devis.....
' If .Cells(i, 11).Value <> "" Then '.................................................Si la cellule Acompte est non vide.....
' Somme = Somme + .Cells(i, 11).Value '...........................................On additionne la variable avec la valeur de la cellule.....
' End If '............................................................................Fin de condition.....
' End If '................................................................................Fin de condition.....
' Next i '....................................................................................Ligne suivante.....
End With '......................................................................................Fin de prise en compte.....
Somme = Evaluate("SUMPRODuct((ColA=""" & UserForm3.TextBox1.Value & """)*ColK)")
Label3.BackColor = RGB(255, 255, 255) '.........................................................Couleur du bouton Validation....
TextBox2.Value = UserForm3.TextBox34.Value '....................................................Montant T.T.C. de la facture.....
TextBox3.Value = Somme '........................................................................Montant des Acomptes versés.....
If IsNumeric(TextBox2.Value) Then TextBox4.Value = CDbl(TextBox2.Value) - Somme 'CDbl(TextBox3.Value) '..................................Le reste à payer.....
End Sub