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

Recopie valeurs et mise en page

Créer une discussion

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 !

S'inscrire

azerty67

XLDnaute Occasionnel
🙂 Bonjour à tous,

Voilà, je bute sur un problème.

Je souhaiterai grâce aux macros de copie que j'ai crée sur la feuille "BASE" et sur la feuille1 copier également la mise en page car lors de copie je perd celle-ci et ça ne m'arrange pas du tout 😱

Y a-t'il une solution? j'ai cherché mais je n'ai pas trouvé exactement ce que je voulais. Merci à vous

Fichier allégé mais encore trop volumineux donc voici le lien
Cijoint.fr - Service gratuit de dépôt de fichiers
 
Trier par date Trier par votes
Re : Recopie valeurs et mise en page

Salut,
Voici un code pour créer une copie de "Base"
en remplacant Feuil1 par la copie
ensuite tu peux toujours enlever ce que tu ne souhaite pas
Code: 
Sub MaCopie()
Application.DisplayAlerts = False 'sup la confirmation
On Error Resume Next ' si Feuil1 n'existe pas
Sheets("Feuil1").Delete
Application.DisplayAlerts = True
Sheets("BASE").Copy After:=Sheets(Sheets.Count) 'fait une copie de Base
ActiveSheet.Name = "Feuil1" 'on renomme
End Sub
 
Vote positif 0 Vote négatif
Re : Recopie valeurs et mise en page


Merci youky.
Mais dans la feuille "BASE" je ne recopie que certaines infos vers la feuille "BASE SUIVI" dans laquelle d'autres infos viennent se greffer. Pour la "feuille1" je n'ai besoin que de certaines infos de la feuille "BASE SUIVI"

Ce que je souhaite c'est pouvoir intégrer dans les deux macros de copie, la copie de la mise en page mais je ne sais et ne trouve pas.

J'espère avoir été clair 🙄
Merci encore😉
 
Vote positif 0 Vote négatif
Re : Recopie valeurs et mise en page

re:
Voici qlq lignes de code mais je bn'ai fait que pour les 1ere colonne, il sera facile pour toi de continuer.
Attention à bien mettre le 198 au lieu du 200 pour les 2eme lignes
Par cette méthode on ne copie que la valeur et tu conserves l'ancienne mise en forme

Code: 
Sheets("Feuil1").[A5:B200].Value = _
Sheets("Base").[A3:B198].Value

Sheets("Feuil1").[C5:C200].Value = _
Sheets("BASE").[G3:G198].Value
   
Sheets("Feuil1").[D5:D200].Value = _
Sheets("BASE").[H3:H198].Value
et la suite du code pour les autres colonnes

A+
 
Vote positif 0 Vote négatif
Re : Recopie valeurs et mise en page


Merci je viens rentrer, je vais essayer ce code et te tiens au courant😉
 
Vote positif 0 Vote négatif
Re : Recopie valeurs et mise en page


Donc :

Sheets("Feuil1").[A5:B200].Value = _
Sheets("Base").[A3:B198].Value

Les valeurs de la feuille 1 comprises dans A5 --> B200 prennent les valeurs de la feuille BASE en A5 --> B200 en gardant la mise en page


Sheets("Feuil1").[C5:C200].Value = _
Sheets("BASE").[G3:G198].Value

Les valeurs de la feuille 1 comprises dans C5 --> C200 prennent les valeurs de la feuille BASE en G3 --> G198 en gardant la mise en page


Sheets("Feuil1").[D5:d200].Value = _
Sheets("BASE").[H3:H198].Value

Les valeurs de la feuille 1 comprises dans D5 --> D200 prennent les valeurs de la feuille BASE en H3 --> H198 en gardant la mise en page

Corrige moi si je me trompe et merci je regarde pour l'adapter😉
Ok ça a l'air d'être ok sauf pour ce code correspondant à une date, la mise en page n'est pas la même au niveau de la police (10 au lieu de 8)

Sheets("BASE SUIVI").[K3:K200].Value = _
Sheets("BASE").[K3:K198].Value

Je continue à tester 🙂😉

Par contre pkoi faut-il mettre 198 et pas 200 dans les codes base ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recopie valeurs et mise en page

Tu ne dis même pas si la macro conviens ou non ! ! !
Comme tu cherches encore de l'aide explique ce qui ne va pas.....
J'ai raccourci la macro dans le but de te satisfaire.
Maintenant bye bye

Code: 
Sub export_jlk()
' export_jlk
With Sheets("Feuil1")
.[A5:B200].Value = Sheets("Base").[A3:B198].Value
.[C5:C200].Value = Sheets("BASE").[G3:G198].Value
.[D5:D200].Value = Sheets("BASE").[H3:H198].Value
.[E5:E200].Value = Sheets("BASE").[J3:J198].Value
.[H5:H200].Value = Sheets("BASE").[Q3:Q198].Value
.[G5:G200].Value = Sheets("BASE SUIVI").[M3:M198].Value
.[I5:K200].Value = Sheets("BASE SUIVI").[O3:Q198].Value
End With
End Sub

PS:
Pour les heures ton format est bien en 10 au départ donc mets les en 8
La macro ne modifie en rien la taille.
Il serait bon de rassembler toutes tes macros dans le même module.(A voir)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recopie valeurs et mise en page


😕Je ne voulais pas te froisser loin de moi cette idée et tes idées sont très bonne, désolé de ne pas avoir répondu plus vite.
Si je ne t'ai pas dis si la macro me plaisait c'est seulement que je suis parti entretemps. Et si je demande une idée c'est seulement pour apprendre avec d'autres astuces aussi bonnes que les tiennes.

Je ne comprend pas pkoi tu te méprends à ce point, je sais que bcp de monde s'investit pour aider les autres et je leur tire mon chapeau ainsi qu'à toi. Seulement il faut par moment ne pas se méprendre sur des personnes 🙂

Je te souhaite une bonne soirée et à bientôt j'espère
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

R
  • Question Question
XL 2019 Ajouter des colonnes dans plusieurs feuilles avec les données en dynamique (Mise en page et données)
2
Réponses
24
Affichages
2 K
ryfalcon
R
  • Question Question
XL 2016 Copier le tableau à la suite en gardant la mise en page et en modifiant la date
Réponses
7
Affichages
869
dindin
I
  • Question Question
XL 2019 Envoyer image et mise en forme conditionnelle dans un mail
Réponses
1
Affichages
1 K
patricktoulon
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
  • Question Question
Macro - Recopie de cellule jusqu'à la prochaine vide (sans incrémenter et en gardant mise en forme)
Réponses
5
Affichages
3 K
Marjo2
  • Question Question
Mise en page
Réponses
9
Affichages
832
Si...
S
S
  • Question Question
XL 2013 Problematique zone impression et mise en page
Réponses
2
Affichages
880
Sophie123
S
D
  • Question Question
Excel charge CAPA
Réponses
9
Affichages
4 K
Cotriana
C
F
  • Question Question
Mise en forme conditionnelle et Tableau Croisé Dynamique...
Réponses
2
Affichages
1 K
fabian123
F
P
  • Question Question
Probleme mise en forme apres copie de classeur pour impression
Réponses
0
Affichages
786
PEX
P
  • Question Question
Mise en page TCD
Réponses
3
Affichages
1 K
Gen Rose
E
  • Question Question
Filtre et mise en forme d'un graphique
Réponses
5
Affichages
1 K
EddyValier
E
S
  • Question Question
Mise en forme conditionelle et priorité
Réponses
4
Affichages
2 K
Stan7859
S
G
  • Question Question
Recopie automatique de la mise en forme d'une cellule (couleur de fond)
Réponses
5
Affichages
2 K
didus
J
  • Question Question
mise en page tableau
Réponses
3
Affichages
2 K
jeannot68
J
  • Question Question
problème de mise en page
Réponses
2
Affichages
962
grisan29
R
  • Question Question
Manipulation et mise en page données VBA
Réponses
2
Affichages
7 K
Rhiannon51
R
T
  • Question Question
[RESOLU] Mise en page d'un tableau dans word à partir d'une macro excel
Réponses
2
Affichages
9 K
Togomy
T
J
  • Question Question
Mise en page d'un suivi d'heure à l'aide d'une macro
Réponses
0
Affichages
768
jakie
J
D
  • Question Question
création de feuilles avec des cellules remplies et protégées ?
Réponses
0
Affichages
717
Duster 40
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…