Recopier une cellule a la fin d'un tableau

Bonsoir,

je viens vers vous, car je n'ai pas trouver la solution à mon problème.

j'ai une feuille excel, dans celle ci, je rentre 4 données dans les cellules A1 à D1.

j'aimerais que ces données soit implémentées dans un tableau qui commencerait par exemple à la cellule A5.

Malheureusement pour moi, je n'ai trouvé que des explications utilisant des usersforms, et je souhaiterais savoir si c'est possible de réaliser ce que je veux sans ces userforms?

j'ai tenté d'écrire un code dans vba, mais ça ne marche pas

Sub incrementation()

    Dim derligne As Integer

    Sheets("Feuil1").Activate

    derligne = Sheets("Feuil1").Range("B5").End(x1down).Row + 1
    Range("B5" & derligne).Value = Range("A1:D1").Value

End Sub

Etant novice, je requiers de l'aide à tout âme charitable.

Merci par avance.

Cordialement.

Bonjour,

Essaie comme cela

Sub incrementation()
Dim DerLigne As Long
    With Sheets("Feuil1")
        DerLigne = Application.Max(.Range("A" & Rows.Count).End(xlUp).Row + 1, 5)
        .Range("A" & DerLigne).Resize(, 4).Value = .Range("A1:D1").Value
   End With
End Sub
 

A+

frangy a écrit :

Bonjour,

Essaie comme cela

Sub incrementation()
Dim DerLigne As Long
    With Sheets("Feuil1")
        DerLigne = Application.Max(.Range("A" & Rows.Count).End(xlUp).Row + 1, 5)
        .Range("A" & DerLigne).Resize(, 4).Value = .Range("A1:D1").Value
   End With
End Sub
 

A+

Merci d'avoir répondu si rapidement

il y juste un petit soucis, si dès que je veux entrer d'autres données en A1:D1, ça ce qui est déjà en B5.

Edit: en fait ça fonctionne maintenant

Je viens encore embeter mon monde lol.

j'ai ajouter un bouton valider et ça fonctionne bien, par contre peut on effacer les 4 cellules après la validation et l'inscription des données dans le tableau?

Bonjour,

Une adaptation :

Sub incrementation()
Dim DerLigne As Long
Dim Rep As Integer
    With Sheets("Feuil1")
        DerLigne = Application.Max(.Range("A" & Rows.Count).End(xlUp).Row + 1, 5)
        .Range("A" & DerLigne).Resize(, 4).Value = .Range("A1:D1").Value
        Rep = MsgBox("Les données ont été transférées." & Chr(10) & _
        "Voulez vous effacer la plage de saisie ?", vbYesNo + vbExclamation)
        If Rep = vbYes Then Range("A1:D1").ClearContents
   End With
End Sub

A+

Merci Frangy