Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

macro copie feuille en dernier

3 réponses
Avatar
DOMFLO
Bonjour,

Voici la macro créée en automatique qui me copie une feuille et me la
positionne en dernier.
En fait elle fonctionne une fois car en VBA elle me place mes nouvelles
feuilles ap la feuille 3, or je souhaite que me création se place
toujours en dernier.
Avez la solution ?

Merci d'avance.
Dominique



Sheets("NHA").Select
Sheets("NHA").Copy After:=Sheets(3)

3 réponses

Avatar
isabelle
bonjour DOMFLO,

Sheets("NHA").Copy After:=Sheets(Sheets.Count)

isabelle


Bonjour,

Voici la macro créée en automatique qui me copie une feuille et me la
positionne en dernier.
En fait elle fonctionne une fois car en VBA elle me place mes nouvelles
feuilles ap la feuille 3, or je souhaite que me création se place
toujours en dernier.
Avez la solution ?

Merci d'avance.
Dominique



Sheets("NHA").Select
Sheets("NHA").Copy After:=Sheets(3)


Avatar
anonymousA
bonjour,

Sheets("NHA").Copy After:=worksheets(worksheets.count)

A+

Bonjour,

Voici la macro créée en automatique qui me copie une feuille et me la
positionne en dernier.
En fait elle fonctionne une fois car en VBA elle me place mes nouvelles
feuilles ap la feuille 3, or je souhaite que me création se place
toujours en dernier.
Avez la solution ?

Merci d'avance.
Dominique



Sheets("NHA").Select
Sheets("NHA").Copy After:=Sheets(3)


Avatar
Philippe.R
Bonsoir,

der=thisworkbook.sheets.count
Sheets("NHA").Select
Sheets("NHA").Copy After:=Sheets(der)
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"DOMFLO" a écrit dans le message de news: 4288f2aa$0$22996$
Bonjour,

Voici la macro créée en automatique qui me copie une feuille et me la positionne en dernier.
En fait elle fonctionne une fois car en VBA elle me place mes nouvelles feuilles ap la feuille 3, or
je souhaite que me création se place toujours en dernier.
Avez la solution ?

Merci d'avance.
Dominique



Sheets("NHA").Select
Sheets("NHA").Copy After:=Sheets(3)