macro copie colle

[franky]

Salut a tous,
j essaie de faire une macro qui me copie une feuille et me la colle dans une nouvelle a chaque fois, sachant que la manip doit se reproduire plusieur fois.

J ai essayer en bidouillant quelque truc ce code mais ça bug, comme je m y connais pas trop, pouvez vous m'aider si vous le pouvez?
Merci.

Voila le code que j ai essayer en tatonnant sachant que j y connais vraiment rien!

Sub Bouton1_QuandClic()
Dim RangePlage As Range

Set RangePlage = Worksheets('FEUIL1').Range('FEUIL1')
Sheets.Add
ActiveSheet.Paste
RangePlage.Copy Destination:=NEWWorksheets
End Sub

 

[dg62]

Bonsoir Francky


Sub copyFeuille()
Sheets('Feuil1').Copy Before:=Sheets(1)
End Sub

 

[ChTi160]

Salut'franky'
en pièce jointe une approche simple, à adapter sûrement
Amicalement
Jean Marie

Oups salut à tous
[file name=Copie_Colle.zip size=7116]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_Colle.zip[/file]

Message édité par: ChTi160, à: 03/04/2005 18:40

 

[Tonio 74]

Salut franky, L Forum,
Tu peux essayer cela à ton bouton :
Private Sub CommandButton1_Click()
Sheets('New').Select
Sheets('new').Copy Before:=Sheets(1)
End Sub

 

[Tonio 74]

Bonsoir ChTi160, dg62, Franky,Le Forum,
Oups!! Pardon Chti160 & dg62, je ne vous ai pas vu .
Désolé
Bonne soirée
Tonio 74 :kiss:

 

[fRANCKY]

Merci pour votre aide a tous,

cependant chti160 au lieu de selectionner une zone j aimerai plutot copier la feuille entiere. Peux tu me redonner un exmple stp?

 

[ChTi160]

re une version 2
pourquoi copier l'ensemble des cellules c'est lourd !!!!!! [file name=Copie_ColleV2.zip size=7140]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_ColleV2.zip[/file]

 

[francky]

je veux recopier l ensemble des cellules, parceque les cellules a copier varie a chaque sauvegarde, ca peut aller de a1ài100 ou un autre jour a1az300 par exemple, c est vrai que j aurai pu juste changer la valeur de la zone a copier et mettre une grande valeur mais je voulais connaitre le code pour selectionner une feuille entiere.
Merci chti160@+

 

[ChTi160]

re
on peut si le point de départ est toujour le même faire en sorte que la plage variable soit prise en compte
je te fais un exemple et je post
A bientôt
Jean Marie
Voilà l'exemple [file name=Copie_ColleV3.zip size=9330]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_ColleV3.zip[/file]

Message édité par: ChTi160, à: 03/04/2005 19:32

 

[francky]

Merci chti160, je test et je te tiens au courant😉

 

[francky]

Re
j ai essayer d'adapter ta formule a mon classeur mais je n y arrive pas, je t explique:

Option Explicit

Sub Export()
Dim derlgn As Integer
Dim Ws As Worksheet
Dim RSource As Range, RCible As Range, maplage As Range
Application.ScreenUpdating = False
derlgn = Range('A65536').End(xlUp).Row
Set maplage = Sheets('saisie').Range(Cells(1, 1), Cells(derlgn, 9))
Set RSource = maplage
Worksheets.Add
With ActiveSheet
Set RCible = .Range('A1')

RSource.Copy Destination:=RCible
End With
Sheets('saisie').Select
MsgBox 'Operation Terminée'
Application.ScreenUpdating = True
End Sub

je n ai changer que le nom de la feuille, en l'occurence dans mon classeur ma feuille s appelle 'saisie' et c'est la feuil3!

Peut etre qu il y a d'autre info a changer non?

 

[myDearFriend!]

Bonjour tout le monde,

Je m'excuse d'intervenir dans ce fil de discussion mais, à sa lecture, même si l'exemple de Chti160 (que je salue au passage) est relativement de bonne facture, je ne comprends vraiment pas pourquoi la solution de dg62 n'a pas retenue ton attention franky ?

Sub copyFeuille()
      Sheets('Feuil1').Copy Before:=Sheets(1)
End Sub

En une seule ligne de code très facilement adaptable, tu réalises la même chose !

Cordialement.

 

[ChTi160]

Salut Didier
comme dirait Thierry ça doit être trop simple Lol
bon en V4
avec ta feuille saisie y a pas de problème ?????? [file name=Copie_ColleV4.zip size=9197]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_ColleV4.zip[/file]