Discussion :

[Clipper24]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tototiti2008]

Bonjour Clipper24,

un essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[delphine35]

Presque ca tototiti :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Clipper24]

C'est nickel ça fonctionne.

Merci pour la petite touche finale de SuperDelphine..