Macro pour copier l'onglet...

jeanpierre

Nous a quitté

Repose en paix

• 11 Octobre 2008

• #2

Re : Macro pour copier l'onglet...

Bonjour Christian0258, le forum,

Ce fil, par exemple, issu des 5 dernières discussions similaires en bas du présent fil :
https://www.excel-downloads.com/threads/copier-et-renommer-longlet-actif.58146/

Reste à changer l'adresse de ta propre cellule.

Bon WE.

Jean-Pierre

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Octobre 2008

• #3

Re : Macro pour copier l'onglet...

Re, le forum, Jean-Pierre,

Merci pour le lien, Jean-Pierre, mais je souhaite copier, uniquement de la Col A à F et dans le même classeur.

à + et merci

Christian

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 11 Octobre 2008

• #4

Re : Macro pour copier l'onglet...

Re,

Ok, alors tu as ce qu'il faut à disposition.

Outils/Macro/Nouvelle macro.

Tu fais ta manip. à la main, tu arrêtes l'enregistrement, soit par le bouton, soit par Outils/Macro/Arrêter l'enregistrement et tu as le code de recopie de l'onglet.

Te reste à intégrer le changement de nom (cf.lien proposé).

Au besoin, tu crées un bouton sur ta feuille et tu affectes ta macro à ce bouton (proposé, d'ailleurs, si tu utilises le bouton de la barre d'outils Formulaire)

Voila.

Jean-Pierre

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Octobre 2008

• #5

Re : Macro pour copier l'onglet...

Re, le forum,

Merci, Jean-Pierre, pour tes conseils, mais je n'y arrive pas et n'arrive pas non plus à intégrer le nom de la cellule H1 de l'onglet source au nom du nouvel onglet....


à+

Christian

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Octobre 2008

• #6

Re : Macro pour copier l'onglet...

Bonjour Christian, jeanpierre, le forum


Ca devrait fonctionner

Code:

Sub Copie()
Dim Source As Worksheet
Dim Desti As Worksheet
Set Source = Sheets("Récaps")
Set Desti = Sheets.Add
Source.Activate
Source.Range("A1:F" & [F65536].End(xlUp).Row).Copy Desti.Range("A1")
Desti.Name = Source.Range("H1").Text
End Sub

Edition: bonjour JCGL

 

Dernière édition: 11 Octobre 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Octobre 2008

• #7

Re : Macro pour copier l'onglet...

Bonjour à tous,
Salut Christian 🙂,

Un essai d'archivage

A++ 🙂
A + à tous

Edition : Salut Staple ;-)

 

Pièces jointes

• JC Archivage.zip

  24.5 KB · Affichages: 27

Dernière édition: 11 Octobre 2008

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Octobre 2008

• #8

Re : Macro pour copier l'onglet...

Re, le forum,

Merci Staple1600, merci *JCGL c'est impec cher *ami hospitalier.

Merci à vous deux.

Amitiés,
Christian

 

Vote positif 0 Vote négatif