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 :
Merci de votre aide!
PatLaNouille
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 SubMerci de votre aide!
PatLaNouille