Code pour copier une feuille

[dede039]

Bonjours a tous

j'ai trouvé ce code pour copié une feuille
mais je le trouve long
peut-ont faire plus cours

merci pour votre aide

 

[youky(BJ)]

Hello dede,
Sheets("1-7").Copy after:=Sheets(1)

'ou Feuil1 est le codename de l'onglet, et on copy en dernier
Feuil1.Copy after:=Sheets(Sheets.Count)
Bruno

 

[dede039]

bonjours bruno

cella ne peut pas marcher
cas de copie en copie le nom de la feuille change

 

[youky(BJ)]

Essaye,
ActiveSheet.Copy after:=Sheets(Sheets.Count)
C'est la feuille active qui sera copiée
Bruno

 

[dede039]

merci cela marche
mais une question a quoi correspond le code que j'ai trouvé et pourquoi et t'il si long
alors que la une seul ligne fait a 1ere vu la même chose ?

 

[youky(BJ)]

Je me souviens que dans ton code il y avait pas mal de chose pour remettre à jour des filtres ou des selections. Pas facile d'en dire plus.
explications ....
Sheets.count=nombre d'onglets
Sheets(Sheets.Count).......est le dernier onglet
Pour copier toujours le dernier onglet même en étant sur n'importe quel onglet...........
Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)

Ne pas avoir peur de faire enregistrer une macro pour voir le résultat
Essai "enregistrer une macro" ensuite click avec le bouton droit de la souris en bas sur le nom de l'onglet et choisit "déplacer ou copier" coche "créer une copie et en dernier
Stop l'enregistreur et va voir le code
Ensuite ce code sera amélioré et on supprime éventuellement les select
Bruno