Qui peut m'aider a faire fonctionner ce fichier

Question

Est ce que quelqu un pourrai m'expliquer ou voir comment réaliser ce fichier. De la feuille 1 enregistrer automatiquement les donnée en feuille 2. Un Gran merci d'avance...

ThauThème · Accepted Answer

Bonjour Tony, bonjour le forum,

Affecte la macro ci-dessous au bouton Ajouter Nouveau Devis :

Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set OS = Worksheets("Feuil1") 'définit l'onglet source OS
Set OD = Worksheets("Détails des Devis") 'définit l'onglet destination OD
DL = OD.Cells(Application.Rows.Count, "B").End(xlUp).Row + 1 'définit la dernière ligne éditée DL de la colonne B de l'onglet destination OD
OD.Cells(DL, "B").Value = OD.Cells(DL - 1, "B").Value + 1 'incrémente le numéro en colonne B
OD.Cells(DL, "C").Value = OS.Range("C15").Value 'récupère la référence en colonne C
OD.Cells(DL, "D").Value = OS.Range("C9").Value 'récupère le nom en colonne D
OD.Cells(DL, "E").Value = OS.Range("C12").Value 'récupère le CP en colonne E
OD.Cells(DL, "F").Value = OS.Range("E9").Value 'récupère la date du devis en colonne F
OD.Cells(DL, "G").Value = OS.Range("C18").Value 'récupère le montant en colonne G
OD.Cells(DL, "H").Value = OS.Range("E12").Value 'récupère le statut en colonne H
OD.Cells(DL, "I").Value = DateSerial(Year(Date), Month(Date), Day(Date)) 'renvoie la date du jour en colonne I
OD.Rows(DL - 1).Copy 'copie la ligne DL -1
OD.Rows(DL).PasteSpecial (xlPasteFormats) 'colle dans la ligne DL les formats de la ligne DL -1
OD.Rows(DL).RowHeight = OD.Rows(DL - 1).RowHeight 'hauteur de ligne
OS.Range("C9, E9, C12, E12, C15, C18").ClearContents 'efface les valeur de l'onglet source
End Sub