Bonjour ZED21000, le forum,
Un essai......(attention, je me sers de la cellule A1 de la feuille Accueil, police en blanc pour la masquer).
Private Sub OBcb_Click()
Sheets("Accueil").Range("A1") = "CB"
End Sub
Private Sub OBcheque_Click()
Sheets("Accueil").Range("A1") = "Chèque"
End Sub
Private Sub OBvirement_Click()
Sheets("Accueil").Range("A1") = "Virement"
End Sub
Sub test()
Dim ListObj As ListObject, Sh As Worksheet, sh2 As Worksheet, j As Long
Set Sh = Sheets("Réparations internes")
Set sh2 = Sheets("Accueil")
Set ListObj = Sh.ListObjects("Tableau1")
j = Sh.Cells(Rows.Count, 2).End(xlUp).Row
With ListObj
Sh.Cells(j, 2) = sh2.Range("D10")
Sh.Cells(j, 3) = sh2.Range("D12")
Sh.Cells(j, 4) = sh2.Range("D14")
Sh.Cells(j, 5) = sh2.Range("D16")
Sh.Cells(j, 6) = sh2.Range("D18")
Sh.Cells(j, 7) = sh2.Range("D20")
Sh.Cells(j, 8) = sh2.Range("A1")
End With
ListObj.ListRows.Add
MsgBox "Données enregistrées"
With sh2
.Range("D10:D20") = ""
End With
End Sub
Cordialement,