enregistrement et impression

Staple1600 à dit:

Bonsoir

Voici une proposition possible (pour ce que j'ai compris et qui peut correspondre au bouton Archiver et Archiver)

VB:

Private Sub CommandButton1_Click()
Dim t, lObj As ListObject
Set f = Sheets("Enregistrements"): Set lObj = f.ListObjects("Tableau3"): Set ff = Sheets("Sortie")
Set Rng = ff.Range("J16:M16"): lObj.ListRows.Add (1)
With lObj.HeaderRowRange.Item(2)(2)
.Resize(, 4).Value = Rng.Value
.Offset(, 4).Resize(, 2).Value = Array(ff.[M9].Text, ff.[M12].Text)
End With
lObj.HeaderRowRange.Item(1)(2) = ff.[K9]: Union(Rng, ff.[K9], ff.[M9], ff.[M12]) = Empty
End Sub

Mode opératoire
1) Cliquer sur Mode Création (en étant sur l'onglet Développeur)
Clic-droit sur le bouton=>Visualiser le code
Là copier le code VBA ci-dessus, puis faire ALT+F11

Cliquez pour agrandir...