Microsoft 365 Copier/Coller Dynamique

PatLaNouille

XLDnaute Nouveau
Bonjour à tous,

Encore une fois, j'ai besoin de votre aide. J'ai déjà fait appel à vous pour une demande semblable auparavant, mais ne comprenant pas comment modifier la commande, j'aurais besoin d'un petit coup de main.

Voici ce dont j'aurais besoin :

Dans le fichier joint,

J'aurais besoin que la zone (B4:J4) soit recopié dans la feuille 'Données 2021 en appuyant simplement sur le bouton 'Transférer les données. J'aurais pu simplement utiliser l'outil d'enregistrement, mais j'ai besoin qu'à chaque fois que des données sont recopiés, j'ai besoin que les prochaines soit recopié en dessous.

Voici la macro qui m'avait été donnée lors de ma dernière discussion si cela peut vous être utile :

VB:
Sub CpyData()
  If ActiveSheet.Name <> "Calculateur de taxes" Then Exit Sub
  If [C6] = "" Then Exit Sub 'si C6 est vide : y'a rien à copier/coller
  Dim lig&: Application.ScreenUpdating = 0
  With Worksheets("Données")
    lig = .Cells(Rows.Count, 2).End(3).Row + 1
    [C6].Resize(, 7).Copy: .Cells(lig, 2).PasteSpecial -4163
    Application.CutCopyMode = 0: .Cells(lig, 9) = [G14]
    .Select: [A1].Select
  End With
End Sub

Merci de votre aide!
PatLaNouille
 

Pièces jointes

  • Journal de suivi_Coût de revient.xlsm
    20.1 KB · Affichages: 9

Discussions similaires