Copier Coller perte largeur colonnes et hauteur lignes

Le
Pierre TISSENDIER
Bonsoir ou bonjour,
J'ai beau chercher sur le forum je n'arrive pas à trouver la réponse.
Voici mon problème sous VBA je recopie une sélection vers une nouvelle
feuille (wsNew)

ThisWorkbook.Worksheets(1).UsedRange.Copy
Set wsNew = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
With wsNew
.Name = "S" & Format(Worksheets(1).[A9], "ww") 'donne le nom de
la semaine
.[A1].PasteSpecial xlPasteValues, , True 'Colle les valeurs
.[A1].PasteSpecial xlPasteFormats 'Colle les formats de cellules
End With

Pb : Je perds les hauteurs de ligne et les largeurs colonnes de la feuille
1, les lignes ou colonnes masquées dans la feuille 1 sont aussi affichées,
les mise en pages sont également a refaire pour la nouvelle feuille.
Si quelqu'un avait une astuce ce serai sympa, sinon si c'est trop difficile
tant pis.
Merci pour votre aide.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Patrick BASTARD
Le #4917501
Bonjour, *Pierre TISSENDIER*


Voir : xlPasteColumnWidths
Non testé

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir ou bonjour,
J'ai beau chercher sur le forum je n'arrive pas à trouver la réponse.
Voici mon problème sous VBA je recopie une sélection vers une nouvelle
feuille (wsNew)

ThisWorkbook.Worksheets(1).UsedRange.Copy
Set wsNew = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
With wsNew
.Name = "S" & Format(Worksheets(1).[A9], "ww") 'donne le
nom de la semaine
.[A1].PasteSpecial xlPasteValues, , True 'Colle les valeurs
.[A1].PasteSpecial xlPasteFormats 'Colle les formats de
cellules End With

Pb : Je perds les hauteurs de ligne et les largeurs colonnes de la
feuille 1, les lignes ou colonnes masquées dans la feuille 1 sont
aussi affichées, les mise en pages sont également a refaire pour la
nouvelle feuille. Si quelqu'un avait une astuce ce serai sympa, sinon si
c'est trop
difficile tant pis.
Merci pour votre aide.


Pierre TISSENDIER
Le #4915891
comme ça , ça marche

ThisWorkbook.Worksheets("Calcul").Cells.Select
Selection.Copy

Set wsNew = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))

With wsNew

.Name = "S" & Format(Worksheets("Calcul").[A8], "ww")

.[A1].PasteSpecial xlPasteValues

.[A1].PasteSpecial xlPasteFormats

End With

merci à tous

"Patrick BASTARD" message de news:
Bonjour, *Pierre TISSENDIER*


Voir : xlPasteColumnWidths
Non testé

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir ou bonjour,
J'ai beau chercher sur le forum je n'arrive pas à trouver la réponse.
Voici mon problème sous VBA je recopie une sélection vers une nouvelle
feuille (wsNew)

ThisWorkbook.Worksheets(1).UsedRange.Copy
Set wsNew = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
With wsNew
.Name = "S" & Format(Worksheets(1).[A9], "ww") 'donne le
nom de la semaine
.[A1].PasteSpecial xlPasteValues, , True 'Colle les valeurs
.[A1].PasteSpecial xlPasteFormats 'Colle les formats de
cellules End With

Pb : Je perds les hauteurs de ligne et les largeurs colonnes de la
feuille 1, les lignes ou colonnes masquées dans la feuille 1 sont
aussi affichées, les mise en pages sont également a refaire pour la
nouvelle feuille. Si quelqu'un avait une astuce ce serai sympa, sinon si
c'est trop
difficile tant pis.
Merci pour votre aide.






Publicité
Poster une réponse
Anonyme