Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Impossible de copier une feuille complete en excel 2016

  • Initiateur de la discussion Initiateur de la discussion VINCENTNINI
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

V

VINCENTNINI

Guest
😎 Bonjour à tous,

Je voudrais copier complètement une feuille excel, c est à dire contenu, mise en forme, type d'affichage etc etc.

En employant l'onglet "déplacer/copier" j'obtient une nouvelle feuille contenant bien les données et la mise en foirme mais pas les données de mise en page/affichage ni les entêtes de page......

Auriez vous une astuce pour ne pas devoir recommencer le travail à chaque feuille...... Je devrais créer 12 feuilles pour 12 mois de l'année ......

Merci d'avance.😎
 
Re : Impossible de copier une feuille complete en excel 2016

Bonsoir VINCENTNINI et bienvenue sur XLD 🙂

Tu voudrais bien joindre le fichier en question? Merci. Sinon essaie ceci

Code:
Sub CopieFeuille()
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
End Sub
 
Dernière édition:
Re : Impossible de copier une feuille complete en excel 2016

voici en annexe le fichier. J'aimerais dupliquer la feuille MAI 2016 12 fois avec macros, formules, mise en page entête.......

Merci d'avance pour votre aide
 

Pièces jointes

Re : Impossible de copier une feuille complete en excel 2016

Bonsoir VINCENTNINI

Dans un module standard met ceci

Code:
Sub Copier_Feuille()
Dim i As Integer, t

Sheets("MAI 2016").Activate
Application.ScreenUpdating = False
 For i = 1 To 12
   ActiveSheet.Copy After:=Sheets(Sheets.Count)
   t = Timer + 1: Do Until Timer > t: DoEvents: Loop
   ActiveSheet.Name = "MAI 2016" & " - " & i
   ActiveWindow.View = xlPageLayoutView
   Next i
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
Réponses
9
Affichages
955
Maikales
M
P
Réponses
3
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…