XL 2016 Créer un renvoi automatique vers une feuille récap

[thsoulard]

Hello,

Je suis en train de créer un fichier dans lequel je duplique un onglet "formulaire de base" pour créer chaque nouveau formulaire (comme pour des factures par exemple).
Pour chaque nouvel onglet créé, je veux qu'automatiquement, via une macro, 4 infos aillent vers un onglet récap pour leur enregistrement.

J'ai donc écrit le code suivant :

Sub Ajout_recap()

Dim ligVide As Long
ligVide = Sheets("Récap").Range("A" & Rows.Count).End(xlUp).Row + 1

Worksheets(ActiveSheet.Name).Range("E8").Copy
Worksheets("Récap").Cells(ligVide, 1).PasteSpecial Paste:=xlPasteValues

Worksheets(ActiveSheet.Name).Range("E7").Copy
Worksheets("Récap").Cells(ligVide, 2).PasteSpecial Paste:=xlPasteValues

Worksheets(ActiveSheet.Name).Range("E6").Copy
Worksheets("Récap").Cells(ligVide, 3).PasteSpecial Paste:=xlPasteValues

Worksheets(ActiveSheet.Name).Range("E3").Copy
Worksheets("Récap").Cells(ligVide, 4).PasteSpecial Paste:=xlPasteValues

End Sub

Seul problème : peut importe l'ordre dans lequel je mets mes actions, au bout de la 2ème, la recopie ne fonctionne plus. La cellule copiée devient celle de la feuille "récap" au lieu de ma feuille dans laquelle je mets ma macro.

Auriez-vous des solutions ?
Merci bcp !!!

 

[job75]

Bonjour thsoulard, bienvenue sur XLD, WarDog,

Ou aussi :

Sub Ajout_recap()
With ActiveSheet
    Sheets("Récap").Range("A" & Rows.Count).End(xlUp)(2).Resize(, 4) = Array(.[E8], .[E7], .[E6], .[E3])
End With
End Sub

A+

 

[thsoulard]

Bonjour thsoulard

Vous ne semblez pas connaitre la programmation objet est ses possibilités

En voici une

Sub Ajout_recap()
  Dim ligVide As Long
  With Sheets("Récap")
    ligVide = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(ligVide, 1).Value = ActiveSheet.Range("E8")
    .Cells(ligVide, 2).Value = ActiveSheet.Range("E7")
    .Cells(ligVide, 3).Value = ActiveSheet.Range("E6")
    .Cells(ligVide, 4).Value = ActiveSheet.Range("E3")
  End With
End Sub

A+

ça fonctionne ! merci beaucoup !!!