Incréménter une ligne après chaque enregistrement (macro)

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
MHAZ
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 25 mai 2019
Version d'Excel : 2013

Message par MHAZ » 25 mai 2019, 18:09

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 .
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'717
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 26 mai 2019, 03:08

Bonjour
:bv:
Merci de m'aider
Merci de nous aider à vous aider en montrant votre code ou en joignant votre fichier :)
Vive ces nouvelles saisons qui nous colorent.
isabelle
Avatar du membre
MHAZ
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 25 mai 2019
Version d'Excel : 2013

Message par MHAZ » 27 mai 2019, 08:39

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message