Copie avec incrémentation sur deux onglets Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
B
Bobbyfrance
Membre fidèle
Membre fidèle
Messages : 191
Inscrit le : 5 janvier 2018
Version d'Excel : 2016FR

Message par Bobbyfrance » 2 février 2018, 10:55

Copie avec incrémentation sur deux onglets.xlsx
(83.95 Kio) Téléchargé 5 fois
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,
Copie avec incrémentation sur deux onglets.xlsx
(83.95 Kio) Téléchargé 5 fois
U
U. Milité
Membre impliqué
Membre impliqué
Messages : 2'030
Appréciations reçues : 143
Inscrit le : 30 novembre 2016
Version d'Excel : Office 365

Message par U. Milité » 2 février 2018, 13:18

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?
B
Bobbyfrance
Membre fidèle
Membre fidèle
Messages : 191
Inscrit le : 5 janvier 2018
Version d'Excel : 2016FR

Message par Bobbyfrance » 2 février 2018, 15:02

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
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message