Figer et conserver des tableaux tous les jours

[mcj1997]

Bonjour,

Je suis des résultats tous les jours dans un tableau (format case A1 à M29) alimenté par des formules.
J'aimerai au lieu d'imprimer tous les jours, copier le tableau en dessous qu'avec les valeurs et ainsi j'aurai l'historique dans cet ordre : mon tableau dynamique, en dessous celui de la veille figé, en dessous l'avant veille et ainsi de suite.

Pour optimiser il faudrait qu'une commande le fasse automatiquement sur trois feuilles ("voiture" ; "moto" ; pièces") qui ont le meme format de tableau.

Merci d'avance,

Cordialement,

 

[david84]

Re : Figer et conserver des tableaux tous les jours

Bonjour,
tu peux te servir de l'enregistreur de macro pour enregistrer ta procédure de copier-coller en ne collant que le format et les valeurs.
Tu obtiendra ainsi le code brut. Tu n'auras plus qu'à la placer sur un fichier exemple pour le poster sur le forum afin de voir comment rendre ce code opérationnel.
A+

 

[mcj1997]

Re : Figer et conserver des tableaux tous les jours

Bonjour,
tu peux te servir de l'enregistreur de macro pour enregistrer ta procédure de copier-coller en ne collant que le format et les valeurs.
Tu obtiendra ainsi le code brut. Tu n'auras plus qu'à la placer sur un fichier exemple pour le poster sur le forum afin de voir comment rendre ce code opérationnel.
A+

J'ai fait l'enregistrement d'une macro en faisant copier - coller mais cela ne donne rien,

merci d'avance

 

[Compte Supprimé 979]

Re : Figer et conserver des tableaux tous les jours

Bonjour mcj1997,

J'ai fait l'enregistrement d'une macro en faisant copier - coller mais cela ne donne rien

Comment ça cela ne donne rien !?
Tu as bien un code dans ton éditeur VBA (ALT+F11) dans un module ?

Il suffit de nous donner ce code, ou mieux de nous mettre ton fichier sur le forum 😉

A+

 

[Compte Supprimé 979]

Re : Figer et conserver des tableaux tous les jours

Re,

Le code

Sub CopieTableau()
'
' Le précédent juste en dessous
  With ActiveSheet
    .Range("A1:M30").Copy
    .Range("A31").Insert Shift:=xlDown
  End With
End Sub

A+

 

[mcj1997]

Re : Figer et conserver des tableaux tous les jours

ok cela fonctionne mais je ne veux copier que les valeurs, format, entête, couleur de case mais pas les formules.

 

[Compte Supprimé 979]

Re : Figer et conserver des tableaux tous les jours

Bonjour

Et l'enregistreur de macro ... avec tu auras la solution

A+