Copier Coller perte largeur colonnes et hauteur lignes
2 réponses
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick BASTARD
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.
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.
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.
"Patrick BASTARD" a écrit dans le 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.
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: uAFAI2RrHHA.1296@TK2MSFTNGP06.phx.gbl...
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.
"Patrick BASTARD" a écrit dans le 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.