copier un onglet par macro

[David]

Bonjour le forum

Est ce qu'il est possible de copier un onglet et le mettre automatiquent a la dernière position.

Pour le moment, j'utilise
Feuil16.Select
Feuil16.Copy After:=Sheets(11)

Mais ça me le place en 11 position (ce qui est normal).

Comment faire pour lui dire d'aller tout a la fin.

Merci

David

 

[Charly2]

Bonjour David, bonjour à toutes et à tous

Pour ce que tu demandes, il suffit d'écrire :

Feuil16.Copy After:=Sheets(Sheets.Count)

Voili voilà

A+

 

[David]

Bonjour Charly2

Merci beaucoup

 

[David]

Rebonjour le forum

Dans le même style est il possible de dire que l'on veut mettre la feuille deux onglets avant le dernier par exemple.

Feuil16.Copy After:=Sheets(Sheets.Count)
--> pour le placer a la fin

Cela doit etre réalisable quelque soit le nombre d'onglet (5, 10, etc...).

Voila j'espere que j'ai été clair.

David

 

[Charly2]

Re David

Dans le même style aussi :

Feuil1.Copy before:=Sheets(Sheets.Count - 1)

That's all folks

A+

 

[David]

Re Charly2

Je te remercie encore et encore.


David