Ajout automatique des données dans une nouvelle ligne en cliquant sur un bouton

DoubleZero à dit:

Bonjour, abousaad, le Forum,

Comme ceci, peut-être :

VB:

Sub BDD_MAJ()
    Application.ScreenUpdating = False
    With Sheets("bdd")
        .Range("b65536").End(xlUp)(2).Resize(, 4).Value = Sheets("eleves").Range("a3:d3").Value
        .Range("f65536").End(xlUp)(2) = Date
        .Range("a65536").End(xlUp)(2).Value = "=ROW(RC[1])-4":  .Range("a65536").End(xlUp)(2).Value = .Range("a65536").Value:  .Cells.EntireColumn.AutoFit:
    End With
    Sheets("eleves").Range("a3:d3").ClearContents
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

Cliquez pour agrandir...