Dupliquer un tableau

Bonjour,

J'aimerais créér une petite macro pour dupliquer un tableau dans un même onglet...et je ne suis pas encore très à l'aise avec le VBA....
Le but est donc de sélectionner une plage de cellules puis de la dupliquer (dans le même onglet) en se positionnant à partir de la dernière ligne vide..
Voici mon code :

Code:

---

1 2 3 4 5 6 7

Sub Copie_tableau() Dim plage1 As Range Set plage1 = Application.InputBox("Sélectionner le tableau", "Plage1", Type:=8) plage1.Copy ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count + 1).Cells.Select plage1.Paste End Sub

---

...rien ne se passe avec ce code..

Mille mercisà vous.

Thomas

Bonjour Clipper24,

un essai

Code:

---

1 2 3 4 5 6 7

Sub Copie_tableau() Dim plage1 As Range Set plage1 = Application.InputBox("Sélectionner le tableau", "Plage1", Type:=8) plage1.Copy ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count + 1,1).Paste Application.cutcopyMode = False End Sub

---

Edit : Bonjour delphine, merci je n'avais pas testé :oops:

Presque ca tototiti :

Code:

---

1 2 3 4 5 6 7 8

Sub Copie_tableau() Dim plage1 As Range Set plage1 = Application.InputBox("Sélectionner le tableau", "Plage1", Type:=8) plage1.Copy ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count + 1,1).select ActiveSheet.Paste Application.cutcopyMode = False End Sub

---

C'est nickel ça fonctionne.

Merci pour la petite touche finale de SuperDelphine..