Ajout automatique de données à la fin d'un tableau

Bonjour à Tous.

J'essaie de trouver une solution à un problème qui me fait passer des nuits blanches

https://www.excel-pratique.com/~files/doc/test_donnees.xls

Dans le tableau joint, j'aimerais qu'apres avoir rempli la ligne avec les 9, soit automatiquement, soit en cliquant sur un bouton avec une macro, les données s'ajoutent à celles déja existantes, à la dernière ligne du tableau.

le but étant d'avoir en début de fichier 4 cellules déstinées uniquement a rajouter des données au tableau, s'en etre obliger de descendre à chaque fois en bas du tableau (dans le fichier dans lequel je travaille, j'ai plus de 300 positions)

D'avance, merci a tous pour votre aide.[/code]

Bonsoir

Essaies cette macro

Sub compiler()
 lig = Range("A65536").End(xlUp).Row + 1
 Range(Cells(lig, 1), Cells(lig, 4)) = Range("A4:D4").Value
End Sub

Salut le Forum

Dans le module de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Integer
If Not Application.Intersect(Target, Range("A4:D4")) Is Nothing Then
  If IsEmpty(Range("A4")) Or IsEmpty(Range("B4")) _
    Or IsEmpty(Range("C4")) Or IsEmpty(Range("D4")) Then
      Exit Sub
  Else
  Ligne = Range("A65536").End(xlUp).Row + 1
  Range("A4:D4").Cut Cells(Ligne, 1)
  End If
End If
End Sub

C'est alors automatique le transfère

Mytå

Salut a Tous !!

un grand merci à Myta et Michel_m de s'être intéréssés à mon problème, je vais immédiatement voir comment ca marche, je vois comment je peux le changer un peu pour utiliser sur mon tableau de travail et je vous tiens au courant

Bonne journée

Myta et Michel_m,

vous etes trop fort, je vais enfin pouvoir dormir tranquillement J'ai changer vos propositions en fonction de mon tableau de travail et tout marche (l'un et l'autre)

un grand merci encore une fois a vous !!

Bonjour,

sur le tard avec une autre approche

https://www.excel-pratique.com/~files/doc/testdonnees.xls

A +

Merci henri, ta solution est ideale, mais trop compliqué pour moi

merci quand meme