Private Sub CommandButton1_Click() 'Pour le bouton Insertion d un outil
Dim LO As ListObject 'Déclaration du tableau
Set LO = _
Insertion_outils.ListObjects("Tab_outils_utilises") '-< modif ici
With LO.ListRows.Add(AlwaysInsert:=True)
.Range(1, 2) = TextBox1
.Range(1, 3) = TextBox2
.Range(1, 4) = ComboBox1.Value
.Range(1, 5) = TextBox3
.Range(1, 6) = TextBox4
.Range(1, 7) = ComboBox2.Value
.Range(1, 8) = TextBox5
.Range(1, 9) = TextBox6
.Range(1, 10) = ComboBox3.Value
.Range(1, 11) = TextBox7
.Range(1, 12) = TextBox8
.Range(1, 13) = ComboBox4.Value
.Range(1, 14) = ComboBox5.Value
.Range(1, 15) = ComboBox6.Value
.Range(1, 17) = Frame1.OptionButton3'-< modif ici
.Range(1, 18) = Frame1.OptionButton4 '-< modif ici
.Range(1, 19) = Frame1.OptionButton5 '-< modif ici
.Range(1, 20) = TextBox9
.Range(1, 21) = TextBox10
.Range(1, 22) = TextBox11
.Range(1, 24) = TextBox12
.Range(1, 23) = ComboBox7
.Range(1, 24) = TextBox13
.Range(1, 25) = TextBox14
End With
'' 'Ajout de la clef de tri'
'' Pas vue cette feuille dans la PJ ...
'' ActiveWorkbook.Worksheets("Vue_générale_mois_en_cours").ListObjects("Tab_Vue_generale").Sort.SortFields. _
'' Add Key:=Range("Tab_Vue_generale[Numero]"), SortOn:=xlSortOnValues
Me.Hide
End Sub