Private Sub Valider_Click()
'Correspond au programme du bouton Modifier
Dim MaSomme#, MC%, Ligne&, MPL&, MDL&
If MsgBox("Etes-vous certain de vouloir modifier la Fiche?", vbYesNo, "Demande de confirmation") = vbYes Then
With ComboBox1: If .ListIndex = -1 Then Exit Sub Else Ligne = .ListIndex + 2: End With
Ws.Cells(Ligne, 2) = Textbox1
Ws.Columns("C:N").NumberFormat = fmt1
Ws.Columns("O").NumberFormat = fmt2
On Error Resume Next
For i = 2 To 13
With Controls("TextBox" & i)
If .Value <> "" Then
Ws.Cells(Ligne, i + 1).Value = Trim(.value) * 1
Else
Ws.Cells(Ligne, i + 1).Value = ""
End If
End With
Next
' Ws.Range("C" & Ligne).Value = Trim(TextBox2) * 1
'Ws.Range("D" & Ligne).Value = Trim(TextBox3) * 1
' Ws.Range("E" & Ligne).Value = Trim(TextBox4) * 1
'Ws.Range("F" & Ligne).Value = Trim(TextBox5) * 1
'Ws.Range("G" & Ligne).Value = Trim(TextBox6) * 1
'Ws.Range("H" & Ligne).Value = Trim(TextBox7) * 1
'Ws.Range("I" & Ligne).Value = Trim(TextBox8) * 1
'Ws.Range("J" & Ligne).Value = Trim(TextBox9) * 1
'Ws.Range("K" & Ligne).Value = Trim(TextBox10) * 1
'Ws.Range("L" & Ligne).Value = Trim(TextBox11) * 1
'Ws.Range("M" & Ligne).Value = Trim(TextBox12) * 1
'Ws.Range("N" & Ligne).Value = Trim(TextBox13) * 1
'Ws.Range("O" & Ligne).Formula = "=SUM(C" & Ligne & ":N" & Ligne & ")"
'Err.Clear
'If (TextBox2) = "" Then Range("C" & Ligne).ClearContents
'If (TextBox3) = "" Then Range("D" & Ligne).ClearContents
'If (TextBox4) = "" Then Range("E" & Ligne).ClearContents
'If (TextBox5) = "" Then Range("F" & Ligne).ClearContents
'If (TextBox6) = "" Then Range("G" & Ligne).ClearContents
'If (TextBox7) = "" Then Range("H" & Ligne).ClearContents
'If (TextBox8) = "" Then Range("I" & Ligne).ClearContents
'If (TextBox9) = "" Then Range("J" & Ligne).ClearContents
'If (TextBox10) = "" Then Range("K" & Ligne).ClearContents
'If (TextBox11) = "" Then Range("L" & Ligne).ClearContents
'If (TextBox12) = "" Then Range("M" & Ligne).ClearContents
'If (TextBox13) = "" Then Range("N" & Ligne).ClearContents
End If
'MC = 15 'Ma Colonne
'MPL = 2 ' Ma Première Ligne
'MDL = Cells(Rows.Count, "O").End(xlUp).Row - 1 'Ma Dernière Ligne
'MaSomme = 0
'For Ligne = MPL To MDL
'MaSomme = MaSomme + Cells(Ligne, MC).Value
'Next Ligne
'TextBox15 = MaSomme
TextBox15 = Format(WorksheetFunction.Sum(Range("Tableau1[Total]")), fmt1) 'la somme directe avec la fonction adéquoite
Worksheets("Top10Conso").Select: Tri
Worksheets("Controle").Select
End Sub