Bonsoir,
A la mi-temps d'Angleterre Ukraine, je viens corriger une anomalie au niveau du bouton Ajouter de formulaire 2.
Dim n As Integer
With [T_Mvt]
If .Item(1, 1) = "" Then n = 1 Else n = .Rows.Count + 1
.Item(n, 1) = "E" & Format(n, "00")
.Item(n, 2) = CDbl(TextBox1)
.Item(n, 3) = ComboBox1
.Item(n, 4) = ComboBox2
.Item(n, 5) = ComboBox3
.Item(n, 6) = ComboBox4
If TextBox2.Value <> "" Then .Item(n, 7) = -CDbl(Application.WorksheetFunction.Substitute(TextBox2.Value, ".", ","))
If TextBox3.Value <> "" Then .Item(n, 8) = CDbl(Application.WorksheetFunction.Substitute(TextBox3.Value, ".", ","))
.Item(n, 9) = Application.Proper(TextBox4)
If CheckBox1 = True Then .Item(n, 10) = "O" Else .Item(n, 10) = ""
If CheckBox2 = True Then .Item(n, 12) = "O" Else .Item(n, 12) = ""
If CheckBox3 = True Then .Item(n, 14) = "O" Else .Item(n, 14) = ""
If CheckBox4 = True Then .Item(n, 16) = "O" Else .Item(n, 16) = ""
If CheckBox5 = True Then .Item(n, 18) = "O" Else .Item(n, 18) = ""
If CheckBox6 = True Then .Item(n, 20) = "O" Else .Item(n, 20) = ""
If CheckBox7 = True Then .Item(n, 22) = "O" Else .Item(n, 22) = ""
If CheckBox8 = True Then .Item(n, 24) = "O" Else .Item(n, 24) = ""
If CheckBox9 = True Then .Item(n, 26) = "O" Else .Item(n, 26) = ""
If CheckBox10 = True Then .Item(n, 28) = "O" Else .Item(n, 28) = ""
If CheckBox11 = True Then .Item(n, 30) = "O" Else .Item(n, 30) = ""
If CheckBox12 = True Then .Item(n, 32) = "O" Else .Item(n, 32) = ""
End With
Il faut bien remplacer ligne par n derrière chaque item.
Désolé
Bon WE
Papy Henri