Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Déplacer plusieurs feuilles

Déplacer plusieurs feuilles

2 réponses
Avatar
RacKar
Bonjour,

Comment faire pour d=E9placer des feuilles apr=E8s la derniere=20
feuille dans un m=EAme classeur par une macro.


Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
boblebob
salut,
voir cette procédure :

Sub copier_derniere_feuille()
'copier la feuil1 après la dernière feuille

reponse = Worksheets.Count
Sheets("feuil1").Copy after:=Sheets(reponse)

End Sub

--
a+
bob

(enlever nospam00-)
"RacKar" a écrit dans le message de news:
083501c34c44$94c10270$
Bonjour,

Comment faire pour déplacer des feuilles après la derniere
feuille dans un même classeur par une macro.


Merci
Avatar
Frédéric Sigonneau
Bonsoir,

Essaye ce genre de code :

Sub test()
Sheets(Array("Feuil6", "Feuil7")).Move after:=Sheets(Sheets.Count)
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour,

Comment faire pour déplacer des feuilles après la derniere
feuille dans un même classeur par une macro.

Merci