Microsoft 365 Copier/Coller Dynamique

[PatLaNouille]

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 :

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

 

[Phil69970]

Bonjour @PatLaNouille

Je te propose ce fichier :

*J'ai repris le code de Soan et je l'ai adapté à ta demande.

@Phil69970

 

[PatLaNouille]

Bonjour @PatLaNouille

Je te propose ce fichier :

*J'ai repris le code de Soan et je l'ai adapté à ta demande.

@Phil69970

Tout fonctionne à la perfection!

Merci de ton aide et bonne soirée!