Rajout d'une ligne en plus

bonjour,

je suis débutant en programmation, j'ai donc utilisé l'enregistreur de macro. Le problème c'est que je voudrais savoir comment rajouter lorsque je clique sur mon bouton enregistrer vers la base de donnée la macro n'écrase pas les résultats existant mais creer une nouvelle ligne

voici mon code:

Application.ScreenUpdating = False

Sheets("Base de données ").Visible = True

Range("B4:E53").Select

Selection.Copy

Sheets("Base de données ").Select

Range("E2").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 8

ActiveWindow.ScrollColumn = 11

ActiveWindow.ScrollColumn = 15

ActiveWindow.ScrollColumn = 18

Range("Y9").Select

ActiveWindow.ScrollColumn = 15

ActiveWindow.ScrollColumn = 11

ActiveWindow.ScrollColumn = 8

ActiveWindow.ScrollColumn = 1

Sheets("Base de données ").Visible = False

merci beaucoup

Bonjour,

La feuille Base de données est cachée ?

Le Range("B4:E53") se trouve sur quelle feuille ?

Tu veux toujours copier le Range("B4:E53") vers la feuille Base de données à partie de la dernière ligne complétée en colonne E ?

Merci de ta réponse

Amcialement

oui la feuille base de donnée est cachée.

oui je veux toujours copier le Range("B4:E53")

car en fait le ("B4:E53") correspond a une plage ou un utilisateur rentre des données qui ne doivent pas être sauvegarder dans la feuille ("B4:E53") mais vers la base de donnée.

le ("B4:E53") sont en colonne et sont transposé en ligne dans la base de données.

cordialement,

re,

Hum... tu as répondu à 1 question sur 3...

Essaie ce code :

Sub test()
'Dan
Application.ScreenUpdating = False
With Sheets("Base de données")
    .Visible = True
    Range("B4:E53").Copy
    .Select
    .Range("E" & Range("E65536").End(xlUp).Row + 1).PasteSpecial _
        Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    .Visible = False
End With
End Sub