Incréménter une ligne après chaque enregistrement (macro)
Bonjour,
Je fais une interface dans une feuille s'appelle (interface) là ou j'ai mis des données puis j'ai cliquer sur une bouton enregistrement pour mettre ces données à une autre feuille qui s'appelle (base de donnée UAP1 - 2019).
Mais si j'ai mis des autres données d'une autre journée l'enregistrement se fait sur la même ligne et il écrase les données de la veille .
Merci de m'aider .
Bonjour
Merci de m'aider
Merci de nous aider à vous aider en montrant votre code ou en joignant votre fichier
Sub Enregistrement()
'
' Enregistrement Macro
'
' Touche de raccourci du clavier: Ctrl+e
'
Range("E3").Select
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("E2321").Select
Sheets("Interface").Select
Range("E5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("F2321").Select
Sheets("Interface").Select
Range("E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("G2321").Select
Sheets("Interface").Select
Range("E9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("H2321").Select
Sheets("Interface").Select
Range("E11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("I2321").Select
Sheets("Interface").Select
Range("E13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("K2321").Select
Sheets("Interface").Select
Range("E15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("L2321").Select
Sheets("Interface").Select
Range("E17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("M2321").Select
Sheets("Interface").Select
Range("E19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("N2321").Select
Sheets("Interface").Select
Range("E21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("V2321").Select
Sheets("Interface").Select
Range("E23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("AA2321").Select
Sheets("Interface").Select
Range("E25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("AD2321").Select
Sheets("Interface").Select
Range("E27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=5
Range("AI2321").Select
Sheets("Interface").Select
ActiveWindow.SmallScroll Down:=3
Range("E29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de donn?e UAP1-2019").Select
ActiveSheet.Paste
Range("A2322").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("Interface").Select
ActiveWindow.SmallScroll Down:=-9
End Sub