Private Sub CommandButton2_Click() 'modifie
Dim L As Integer
'On Error Resume Next
If OptionButton4 = True Then
With Sheets("Feuil1")
.Cells(Index, 1).Value = CDbl(TextBox1) 'CDbl(TextBox1)
.Cells(Index, 2).Value = TextBox2
.Cells(Index, 3).Value = TextBox3
.Cells(Index, 4).Value = TextBox4
.Cells(Index, 5).Value = TextBox5 'CDate(TextBox5)
.Cells(Index, 6).Value = TextBox6
.Cells(Index, 7).Value = TextBox7
.Cells(Index, 8).Value = TextBox8
.Cells(Index, 9).Value = TextBox9
TextBox10.Text = "I"
.Cells(Index, 10).Value = TextBox10
.Cells(Index, 11).Value = Format(TextBox11.Value, "0# ## ## ## ##")
.Cells(Index, 12).Value = Format(TextBox12.Value, "0# ## ## ## ##")
.Cells(Index, 13).Value = TextBox13
.Cells(Index, 14).Value = TextBox14
.Cells(Index, 15).Value = TextBox15
.Cells(Index, 16).Value = TextBox16
.Cells(Index, 17).Value = TextBox17
.Cells(Index, 18).Value = TextBox18
.Cells(Index, 19).Value = TextBox19
.Cells(Index, 20).Value = TextBox20
.Cells(Index, 21).Value = TextBox21
.Cells(Index, 22).Value = TextBox22
.Cells(Index, 23).Value = TextBox23
.Cells(Index, 24).Value = TextBox24
End With
'ajout @+Thierry >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
With Sheets("Suivi")
L = .Range("A65535").End(xlUp).Row + 1
.Cells(L, 1).Value = Me.TextBox2
.Cells(L, 2).Value = Me.ComboBox1.Value
.Cells(L, 3).Value = Me.ComboBox2.Value
.Cells(L, 4).Value = Me.TextBox25.Value
End With
'fin @+Thierry <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
End If
Me.OptionButton4 = False
Me.CommandButton2.Enabled = False
'EffaceControl Me
Call EffaceTout
TextBox2.SetFocus
ActiveWorkbook.Save '''' Enregistrer Excel
End Sub