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

XL 2013 En-tête qui disparaît lors d'une nouvelle copie de feuille

  • Initiateur de la discussion Initiateur de la discussion Benes
  • Date de début Date de début
B

Benes

XLDnaute Nouveau
Bonjour

J'ai un souci, j'ai mis un filigrane sur la feuille synthèse que je dois imprimer en suivant les différentes méthodes que j'ai pu trouver ici et là en passant par une en-tête.
Mon problème c'est que quand je crée des copies de cette feuille grâce à la macro que m'a gentiment écrit Sylvanu, l’en-tête disparaît. Je crois comprendre que c'est du fait que je copie la mise en forme et non pas la mise en page. J'ai donc récupéré un petit bout de code qui lui fonctionne et copie bien l'en-tête sur la feuille créé, mais je n’arrive pas à l’intégrer dans ma boucle de création de feuille. Si quelqu'un pouvait me donner un petit coup de main cela m’arrangerai car je lutte mais ne trouve pas.
Je joins mon fichier simplifié ainsi que le fichier qui lui fonctionne, même si les experts utiliserons peut être une autre méthode.

D'avance merci
 

Pièces jointes

  • MON_PROBLEME_COPIE.xlsm
    316.1 KB · Affichages: 12
  • Ce_qui_semble_marcher.xlsm
    83.3 KB · Affichages: 4
Dernière édition:
Solution
Re,
Quand je vois dans le code :
VB: 
            Sheets("COMPETENCES").Select
            Cells.Select  ' avec cells=Range("A1:AS1")
Je ne comprends pas l'utilité de cette copie.
En PJ, un exemple. On duplique Compétences avec le fond, on renomme, on supprime toutes les colonnes à l'exception des deux tableaux.
Ca reprends un peu ce qu'il y a dans le fichier "Ce qui marche".
Trier par date Trier par votes
B

Bebere

XLDnaute Barbatruc
Bonjour
Dans gestionnaire nom mis une formule decaler pour liste élèves
changer le code
pour le filigrane je pense que tu dois en créer un à chaque copie
 

Pièces jointes

  • MON_PROBLEME_COPIEV1.xlsm
    215.2 KB · Affichages: 3
Vote positif 0 Vote négatif
B

Benes

XLDnaute Nouveau
Bonjour
Merci pour votre réponse.
J'avoue ne pas bien comprendre votre explication.
J'ai testé le code que vous m'avez renvoyé mes cela ne semble pas fonctionner non plus.
L'en-tête n’apparaît pas sur les nouvelles feuilles créées. J'ai ensuite été voir votre code et il semble que m'avez simplifier une parti du code de création des feuilles mais cette macro ne me pose pas de problème, a part si cela est fait pour pouvoir intégrer le morceau de code qui permettra de copier l'en-tête mais cela n'est clairement pas de mon niveau.
Votre code fonctionne chez vous pour la copie d'en-tête et ce serai un problème autre que le code?
Encore merci
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Benes, Bebere,
Ne serait il pas plus simple de dupliquer la feuille Compétences puis de la nettoyer ( on garde alors l'arrière plan ) que de creer une page et de copier les valeurs ?
On peut dupliquer facilement une feuille avec :
VB: 
Sub DupliquePage()
    Sheets("COMPETENCES").Select
    Sheets("COMPETENCES").Copy After:=Worksheets(Worksheets.Count)
End Sub
 
Vote positif 0 Vote négatif
B

Benes

XLDnaute Nouveau
Ho Bonjour Sylvanu
je duplique puis nettoie et garde arrière plan, cela veut dire que je me retrouve avec une feuille vierge contenant l'en-tète?
et ensuite je dois recopier a nouveau avec l'autre méthode pour remettre le contenu?
Je crois que je suis a coté et ne comprends pas tout.
Comment je peux intégrer ces ligne de code? Je dois les mettre dans la boucle de "ajout_feuilles" ou cela doit tourner a part?
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Quand je vois dans le code :
VB: 
            Sheets("COMPETENCES").Select
            Cells.Select  ' avec cells=Range("A1:AS1")
Je ne comprends pas l'utilité de cette copie.
En PJ, un exemple. On duplique Compétences avec le fond, on renomme, on supprime toutes les colonnes à l'exception des deux tableaux.
Ca reprends un peu ce qu'il y a dans le fichier "Ce qui marche".
 

Pièces jointes

  • Copie de MON_PROBLEME_COPIE-2.xlsm
    211.2 KB · Affichages: 4
Vote positif 0 Vote négatif
Solution
B

Benes

XLDnaute Nouveau
Oh oh oh ... Cool ça fonctionne!!! il ne me réaffiche plus l'onglet créé mais je dois pouvoir bidouiller tout ça pour remettre comme a l'origine. Là je dois partir bosser mais dés mon retour je me replonge dans le code pour comprendre et remettre en place sur LE fichier original. Encore merci, je te dis ce soir ou demain matin des que tout fonctionne histoire de te tenir au courant et te remercier une fois de plus.
Merci
 
Vote positif 0 Vote négatif
B

Benes

XLDnaute Nouveau
A si si il reaffiche...
Bon je regarde plus tard pour comprendre... ++ Merci
 
Vote positif 0 Vote négatif
B

Benes

XLDnaute Nouveau
Bonsoir Sylvanu
J'ai repris le petit bout de code puis l'ai intégré à mon fichier. Super, le filigrane est bien là, par contre gros souci dans mes colones et meme une parti de la page a disparu. Du coup je m’intéresse au code de plus prêts et me dis que cela doit venir des lignes

Columns("A:A").Delete Shift:=xlToLeft
Columns("G:G").ColumnWidth = 3
Columns("AOZ").Delete Shift:=xlToLeft

vu que cela fait référence a des lignes et colonnes qui ne sont pas les mêmes que mon fichier d'origine. Je me retrousse les manches et m'apprete a bien comprendre pour pouvoir modifier. Dans un premier temps je mets tout en commentaire pour comprendre ligne par ligne de code, et là grande surprise, après un seul changement je me rend compte que mon filigrane est bien copié. Youpi!!

Au final la seul modif que j'ai eu à faire c'est celle ci

' Sheets.Add Count:=1, After:=Worksheets(Worksheets.Count)

Sheets("COMPETENCES").Select
Sheets("COMPETENCES").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom

' Columns("A:A").Delete Shift:=xlToLeft
' Columns("G:G").ColumnWidth = 3
' Columns("AOZ").Delete Shift:=xlToLeft
' Sheets("COMPETENCES").Select
' Cells.Select
' Selection.Copy
' Sheets(nom).Select
' ActiveSheet.Paste
' ActiveWorkbook.Worksheets(nom).Activate

En fin de compte, je n'utilise pas les ligne Columns et juste les 3 lignes suivantes fond le boulot

Sheets("COMPETENCES").Select
Sheets("COMPETENCES").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom

Encore Merci Sylvanu pour ton temps et le partage de tes compétences.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Résolu(e)
XL 2016 Renvoie valeur en-tête, si la colonne contient une valeur
Réponses
2
Affichages
336
Al1_44
A
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
459
Max
M
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
522
Max
M
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
593
whiteshark
W
S
  • Résolu(e)
Microsoft 365 En-tête et pied de page
Réponses
5
Affichages
643
Sissou71
S
F
  • Question Question
XL 2021 Power Query : extraire tableaux et données de PDF
Réponses
0
Affichages
115
Florent74
F
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
685
Chris Linefield
C
C
  • Question Question
XL 2013 Copie de formules
Réponses
4
Affichages
311
Cattitude
C
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
455
steph_29120
S
A
  • Question Question
XL 2021 Module d’envoi à la Corbeille qui ne fonctionne pas en 64 Bits
2
Réponses
20
Affichages
528
patricktoulon
G
  • Question Question
Microsoft 365 Labels qui se dimensionnent tous seuls.
Réponses
3
Affichages
137
GClaire
G
  • Question Question
XL 2010 Copier cellule avec mise en forme d’une feuille sur l’autre
Réponses
12
Affichages
520
jeanmi
O
  • Question Question
XL 2010 Boucle sur tout le classeur - Mise en page et impression
Réponses
3
Affichages
288
Olivier1978
O
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
188
chinel
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
558
fanfan38
A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
355
wDog66
N
  • Question Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
236
Nonoo
N
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
505
sylvanu
S
  • Question Question
XL 2016 Utiliser un UserForm qui s'actualise en direct
Réponses
5
Affichages
469
seby93
S
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
461
Nel'
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…