XL 2016 Copier une plage spécifique sans formules tout en préservant le format du tableau

Dadi147 · 15 Janvier 2023

Bonjour. Je souhaite copier une plage d'un tableau spécifique d'une feuille à une autre avec le même format, mais sans formules. Lors de la recopie, le tableau est copié sous le tableau précédent par un décalage de ligne. Un vide avec l'ajout de +1 à la date pour copier le tableau dans la cellule de date ci-dessus

Annuler ou supprimer la mise en forme conditionnelle

sylvanu · 16 Janvier 2023

Re,
On change la date toujours en B2, ou sur chaque nouveau tableau ?
En PJ on duplique la feuille, on ajoute le tableau vierge à la fin, et on met à jour la date du dernier tableau.

sylvanu · 16 Janvier 2023

Bonjour Dadi,
Vraiment peu claire votre requête.

Dadi147 à dit:
Je souhaite copier une plage d'un tableau spécifique

Quelle plage, quelle taille ?

Dadi147 à dit:
d'une feuille à une autre avec le même format, mais sans formules.

Ca, ok. Il suffit de supprimer les formules et MFC.

Dadi147 à dit:
Lors de la recopie, le tableau est copié sous le tableau précédent par un décalage de ligne.

S'il est copié sous le tableau précédent, c'est donc sur la même page et non pas sur une nouvelle page ?
Ou alors sur une nouvelle feuille on copie le tableau précédent in extenso puis en dessous une copie de ce dit tableau sans les formules ?

Dadi147 · 16 Janvier 2023

Bonjour. @

sylvanu

veux copier la plage A1 à P46 sur la feuille Sh2 de la même manière sans formules. Dans le champ date B2, un jour est ajouté pour chaque copie

sylvanu · 16 Janvier 2023

Re,
Un essai en PJ avec les macros :

VB:

Sub NouvelleFeuille()
    Application.ScreenUpdating = False
    AfficherModèle
    Sheets("sh2").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.[B2] = Sheets(Sheets.Count - 1).[B2] + 1
    MasquerModèle
End Sub
Sub MasquerModèle()
    Sheets("sh2").Visible = xlVeryHidden
End Sub
Sub AfficherModèle()
    Sheets("sh2").Visible = True
    Sheets("sh2").Select
End Sub

Pour lancer les macros, faire ALT + F8, vous avez :

NouvelleFeuille : Copie la feuille sans formule, sans MFC avec la date +1 en B2
AfficherModèle : Affiche le modèle si vous voulez le modifier
MasquerModèle : Masque le modèle.

Dadi147 · 16 Janvier 2023

Merci C'est ce qu'il faut, mais les copies sont dans la même feuille sh2
Lors de la copie, il est en dessous de l'autre. Et sans formules

sylvanu · 16 Janvier 2023

Désolé, toujours pas compris.
Quand on pose des questions, le minimum est de répondre, voir post #2:

Dadi147 à dit:
Lors de la recopie, le tableau est copié sous le tableau précédent par un décalage de ligne.

S'il est copié sous le tableau précédent, c'est donc sur la même page et non pas sur une nouvelle page ?
Ou alors sur une nouvelle feuille on copie le tableau précédent in extenso puis en dessous une copie de ce dit tableau sans les formules ?

Donc je répète :
Lors de la copie vous voulez la feuille précédente avec en dessous une copie du tableau initial et sans formule, mais en changeant B2 ?
Si c'est ça, répondez au moins à la question.

Dadi147 · 16 Janvier 2023

sylvanu à dit:
Désolé, toujours pas compris.
Quand on pose des questions, le minimum est de répondre, voir post #2:

S'il est copié sous le tableau précédent, c'est donc sur la même page et non pas sur une nouvelle page ?
Ou alors sur une nouvelle feuille on copie le tableau précédent in extenso puis en dessous une copie de ce dit tableau sans les formules ?

Donc je répète :
Lors de la copie vous voulez la feuille précédente avec en dessous une copie du tableau initial et sans formule, mais en changeant B2 ?
Si c'est ça, répondez au moins à la question.

Oui avec changement b2 Copie depuis sh1 à sh2

Dadi147 · 16 Janvier 2023

Dadi147 à dit:
Oui avec changement b2 Copie depuis sh1 à sh2

Cela copie de la même manière que nécessaire, mais malheureusement, il copie également les formules. Et je n'ai aucun moyen de changer la date

VB:

Sub CopyData()
  Dim LastRow As Long
  Dim ws As Worksheet
  Set ws = Sheets("sh1")
  LastRow = Range("b" & Rows.Count).End(3).Row
  Range("a1:P" & LastRow).Copy
  Sheets("Sh2").Select
NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(NextRow, 1).Select
   ActiveSheet.Paste
            
          

End Sub

sylvanu · 16 Janvier 2023

Re,
On change la date toujours en B2, ou sur chaque nouveau tableau ?
En PJ on duplique la feuille, on ajoute le tableau vierge à la fin, et on met à jour la date du dernier tableau.

Dadi147 · 16 Janvier 2023

sylvanu à dit:
Re,
On change la date toujours en B2, ou sur chaque nouveau tableau ?
En PJ on duplique la feuille, on ajoute le tableau vierge à la fin, et on met à jour la date du dernier tableau.

Merci. Vraiment, c'est ce qu'il faut. Toujours génial.

XL 2016 Copier une plage spécifique sans formules tout en préservant le format du tableau

Dadi147

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Dadi147

XLDnaute Occasionnel

sylvanu

veux copier la plage A1 à P46 sur la feuille Sh2 de la même manière sans formules. Dans le champ date B2, un jour est ajouté pour chaque copie

sylvanu

XLDnaute Barbatruc

Pièces jointes

Dadi147

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Dadi147

XLDnaute Occasionnel

Dadi147

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Dadi147

XLDnaute Occasionnel

Discussions similaires

XL 2016 Copier une plage spécifique sans formules tout en préservant le format du tableau

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

sylvanu​

veux copier la plage A1 à P46 sur la feuille Sh2 de la même manière sans formules. Dans le champ date B2, un jour est ajouté pour chaque copie ​

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

sylvanu

veux copier la plage A1 à P46 sur la feuille Sh2 de la même manière sans formules. Dans le champ date B2, un jour est ajouté pour chaque copie