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

mise en forme et copie feuille en vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion yoyosse
  • 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 !

S'inscrire
Y

yoyosse

Guest
Bonjour le forum 😉

J'ai une macro qui copie un certain nombre de feuilles avec un modèle (se nommant TDB).
La formule de copie utilisée est :

Sheets("TDB").Range("A1:AZ100").Copy Destination:=ActiveSheet.Range("A1")

Mon problème est que lors de la copie de ce modèle, il ne conserve pas les mises en formes. Par exemple, les colonnes n'ont pas les mêmes longueurs (en fait j'ai l'impression qu'il créé en premier une nouvelle feuille, puis il insère les éléments figurant dans ma feuille modèle)

Quelqu'un aurait une petite astuce pour y remédier ?

En vous remerkiant bien sincèrement
 
Trier par date Trier par votes
Re : mise en forme et copie feuille en vba

Salut,

Ton code ne copie pas une feuille, mais une plage de cellule a l'intérieur d'une feuille, qu'il copie sur une autre feuille.
Ton code garde les mises en forme de la plage, couleur..., mais pas celles des colonnes. Il te faut rajouter un morceau de code pour redimensionner les colonnes, ou copier directement les colonnes entièrement, ou encore copier carrement la feuille.
Dis nous ce qui te convient le plus.

@+
 
Vote positif 0 Vote négatif
Re : mise en forme et copie feuille en vba

Bonjour Porcinet,

pour moi, l'idéal serait qu'il copie la plage de cellule, et si possible, qu'il conserve les dimensions des colonnes.

Merci pour ton aide
 
Vote positif 0 Vote négatif
Re : mise en forme et copie feuille en vba

re,

Bon je n'arrivais pas a faire ce que je souhaitais, du coup j'ai opté pour la solution de facilité :
Code: 
Sub Macro1()
Dim j As Integer
Application.ScreenUpdating = False
With Sheets("TDB")
    .Range("A1:AZ100").Copy Destination:=ActiveSheet.Range("A1")
    For j = 1 To 256
        Columns(j).ColumnWidth = .Columns(j).ColumnWidth
    Next j
End With
Application.ScreenUpdating = True
End Sub

@+
 
Vote positif 0 Vote négatif
Re : mise en forme et copie feuille en vba

Merci ça marche vraiment impec, pour les colonnes.

Je vais faire mon boulet, mais je veux la même chose pour les lignes 🙂.
J'ai essayé de créer une nouvelle boucle dans la boucle j, mais impossible de faire tourner la macro (c'est bien row pour les lignes ?)

Encore une fois merci pour votre disponibilité.

Cordialement
 
Vote positif 0 Vote négatif
Re : mise en forme et copie feuille en vba

re,

Voici le code modifié :
Code: 
Sub Macro1()
Dim j As Long
Application.ScreenUpdating = False
With Sheets("TDB")
    .Range("A1:AZ100").Copy Destination:=ActiveSheet.Range("A1")
    For j = 1 To 256
        Columns(j).ColumnWidth = .Columns(j).ColumnWidth
    Next j
    For j = 1 To 100
        Rows(j).RowHeight = .Rows(j).RowHeight
    Next j
End With
Application.ScreenUpdating = True
End Sub

@+
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
864
Max
M
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
882
Max
M
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
947
marie3107
M
D
  • Résolu(e)
Microsoft 365 Modification de la mise en forme lors d'une copie
Réponses
9
Affichages
1 K
TooFatBoy
A
  • Question Question
XL 2010 Duplication d’onglets
Réponses
3
Affichages
638
Abnna
A
H
  • Résolu(e)
XL 2016 [Résolu] VBA pour mise en forme conditionnelle
Réponses
2
Affichages
742
Hynnuh
H
L
  • Résolu(e)
Autres création d'un TCD avec mise en forme de données en VBA
Réponses
12
Affichages
1 K
labuse
L
  • Question Question
XL 2021 Collecter des données et les restituer après mise en forme dans un autre onglet
Réponses
8
Affichages
856
JoBar57
Z
  • Question Question
XL 2019 Probleme Rechercher avec copie et offset en VBA
Réponses
1
Affichages
602
vgendron
L
  • Question Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
6 K
LMOAL
L
  • Résolu(e)
XL 2013 VBA copie feuille et colle sans Objet (Shape-Image)
Réponses
5
Affichages
1 K
CGU2022.
K
  • Résolu(e)
XL 2019 Copie de la dernière ligne avec la mise en forme et formules
Réponses
6
Affichages
931
Kev1407
K
A
  • Question Question
XL 2019 vba comment convertir pdf vers excel sans perdre la mise en forme
Réponses
5
Affichages
2 K
kiki29
S
  • Question Question
XL 2013 planning : récupérer le nom de la feuille pour l'inclure dans une formule
Réponses
6
Affichages
1 K
shushen
S
I
  • Question Question
XL 2016 Colorer cellules entre 2 dates et étendre la mise en forme et ajout de texte
Réponses
1
Affichages
660
Irina1009
I
M
  • Question Question
Autres Mise en forme cond, suivant texte et couleur de cellules
Réponses
5
Affichages
1 K
marcenana
M
J
  • Question Question
Microsoft 365 Importer via vba les données et la mise en forme d'une feuille dans un autre classeur
Réponses
9
Affichages
952
sylvanu
G
  • Question Question
XL 2010 Recherche un mot et copie sur une autre feuille VBA
Réponses
9
Affichages
2 K
Wayki
M
  • Question Question
Microsoft 365 VBA - Extraire tous les emails d'une cellule et les coller dans une autre feuille
Réponses
4
Affichages
975
mimich_88
M
  • Question Question
XL 2016 VBA Compilation de données de chaque feuille vers une ligne précise d'une feuille de compilation
Réponses
0
Affichages
765
My<3
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…