Copie avec incrémentation sur deux onglets

Bonjour à tous

Mon problème est déjà certainement sur le site, mais désolé, je n’ai pas su adapter la solution

Je souhaiterais copier des données d’un onglet sur un autre onglet avec incrémentation

Cordialement,

Bonjour,

Si tant est que j'aie compris, on peut tester ce qui suit ... dans un module standard, ajouter les lignes suivantes:

Sub recopie()
Set recap = Sheets("Recap")
'définir première ligne disponible
noLig = recap.Cells(Rows.Count, 1).End(xlUp).Row + 1
If noLig < 3 Then noLig = 3

'procéder au transfert des données
With Sheets("Inf")
    recap.Cells(noLig, 1) = .[A2]
    recap.Cells(noLig, 2) = .[B4]
    recap.Cells(noLig, 3) = .[J44]
    recap.Cells(noLig, 4) = .[F2]
    recap.Cells(noLig, 5) = .[B2]
End With

End Sub

Associer le code au bouton déjà placé dans la feuille.

Note: peut-être serait-il utile de vider de leur contenu les cellules sources après le transfert?

Salut U.Milité

Parfait.

Tu as raison, il faut vider de leur contenu les cellules sources après le transfert, mais je pense que je pourrais le faire en fin de ta macro

Encore merci

Cordialement