J'ai un classeur Excel avec une centaine de feuilles contenant
chacunes un ou plusieurs tableaux AVEC DES FORMULES et des phrases au-
dessus et en-dessous des tableaux .
J'aimerais savoir s'il =E9tait possible d'avoir une macro qui enl=E8ve
dans tout le classeur les formules mais laissent les r=E9sultats de ces
formules (un collage sp=E9cial de valeures au m=EAme endroit) et qu'en
plus il y aurai une mise en page qui se ferai automatiquement sur
toutes les feuilles du classeur (sans toucher =E0 la mise en forme) :
- soit en copiant la mise en page de la premi=E8re feuille.
- soit si c'est possible en ayant une mise en page propre =E0 chaque
feuille qui s'adapte en fonction de la longeur et la largeur du
tableau
Je vous remercie par avance pour votre aide qui pourrais me faire
=E9conomiser une bonne journ=E9e de travail fastidieux...
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
francois.forcet
Salut à toi
Pour enlever les formules et conserver les valeurs de tous les feuilles je te propose ce code :
For i = 1 To Sheets.Count Sheets(i).Cells.Copy Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :lse, Transpose:lse Next
Qu'entends tu par mise en page : juste l'ajustement des colonnes et lignes ou tout ce qui concerne la rubrique située à Fichier/Mise en page
Merci de préciser
Salut à toi
Pour enlever les formules et conserver les valeurs de tous les
feuilles je te propose ce code :
For i = 1 To Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Next
Qu'entends tu par mise en page : juste l'ajustement des colonnes et
lignes ou tout ce qui concerne la rubrique située à Fichier/Mise en
page
Pour enlever les formules et conserver les valeurs de tous les feuilles je te propose ce code :
For i = 1 To Sheets.Count Sheets(i).Cells.Copy Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :lse, Transpose:lse Next
Qu'entends tu par mise en page : juste l'ajustement des colonnes et lignes ou tout ce qui concerne la rubrique située à Fichier/Mise en page
Merci de préciser
newoceane2000
Bonjour François,
Merci pour ton aide mais en faisant un copier coller de ton code ça ne marche pas (erreur de compilation, caractère inconnu..).
Pour la mise en page il s'agit d'ajuster les marges et que chaque feuille tienne sur une page.
Merci
On 1 avr, 08:49, wrote:
Salut à toi
Pour enlever les formules et conserver les valeurs de tous les feuilles je te propose ce code :
For i = 1 To Sheets.Count Sheets(i).Cells.Copy Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :lse, Transpose:lse Next
Qu'entends tu par mise en page : juste l'ajustement des colonnes et lignes ou tout ce qui concerne la rubrique située à Fichier/Mise en page
Merci de préciser
Bonjour François,
Merci pour ton aide mais en faisant un copier coller de ton code ça ne
marche pas (erreur de compilation, caractère inconnu..).
Pour la mise en page il s'agit d'ajuster les marges et que chaque
feuille tienne sur une page.
Merci
On 1 avr, 08:49, francois.for...@wanadoo.fr wrote:
Salut à toi
Pour enlever les formules et conserver les valeurs de tous les
feuilles je te propose ce code :
For i = 1 To Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Next
Qu'entends tu par mise en page : juste l'ajustement des colonnes et
lignes ou tout ce qui concerne la rubrique située à Fichier/Mise en
page
Merci pour ton aide mais en faisant un copier coller de ton code ça ne marche pas (erreur de compilation, caractère inconnu..).
Pour la mise en page il s'agit d'ajuster les marges et que chaque feuille tienne sur une page.
Merci
On 1 avr, 08:49, wrote:
Salut à toi
Pour enlever les formules et conserver les valeurs de tous les feuilles je te propose ce code :
For i = 1 To Sheets.Count Sheets(i).Cells.Copy Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :lse, Transpose:lse Next
Qu'entends tu par mise en page : juste l'ajustement des colonnes et lignes ou tout ce qui concerne la rubrique située à Fichier/Mise en page
Merci de préciser
francois.forcet
Rebonjours à toi
As tu bien recopié le code ????
Je pense qu'à la recopie certaines lignes ont été scindées en 2 d'o ù ton souci
Ci-joint un exemple avec une Macro "Traitement"
En plus de la recopie des valeurs j'ai rajouté des lignes de code pour mettre les marges au minimum pour chaque feuille L'inconvénient c'est qu'elle rallonge de manière significative le temps de traitement
Vois si c'est gérable avec le nombre de feuilles à traiter
Je pense qu'à la recopie certaines lignes ont été scindées en 2 d'o ù
ton souci
Ci-joint un exemple avec une Macro "Traitement"
En plus de la recopie des valeurs j'ai rajouté des lignes de code pour
mettre les marges au minimum pour chaque feuille
L'inconvénient c'est qu'elle rallonge de manière significative le
temps de traitement
Vois si c'est gérable avec le nombre de feuilles à traiter
Je pense qu'à la recopie certaines lignes ont été scindées en 2 d'o ù ton souci
Ci-joint un exemple avec une Macro "Traitement"
En plus de la recopie des valeurs j'ai rajouté des lignes de code pour mettre les marges au minimum pour chaque feuille L'inconvénient c'est qu'elle rallonge de manière significative le temps de traitement
Vois si c'est gérable avec le nombre de feuilles à traiter
Un grand merci, c'est exactement ce qui me fallait !!!
On 1 avr, 10:16, wrote:
Rebonjours à toi
As tu bien recopié le code ????
Je pense qu'à la recopie certaines lignes ont été scindées en 2 d' où ton souci
Ci-joint un exemple avec une Macro "Traitement"
En plus de la recopie des valeurs j'ai rajouté des lignes de code pour mettre les marges au minimum pour chaque feuille L'inconvénient c'est qu'elle rallonge de manière significative le temps de traitement
Vois si c'est gérable avec le nombre de feuilles à traiter
Un grand merci, c'est exactement ce qui me fallait !!!
On 1 avr, 10:16, francois.for...@wanadoo.fr wrote:
Rebonjours à toi
As tu bien recopié le code ????
Je pense qu'à la recopie certaines lignes ont été scindées en 2 d' où
ton souci
Ci-joint un exemple avec une Macro "Traitement"
En plus de la recopie des valeurs j'ai rajouté des lignes de code pour
mettre les marges au minimum pour chaque feuille
L'inconvénient c'est qu'elle rallonge de manière significative le
temps de traitement
Vois si c'est gérable avec le nombre de feuilles à traiter
Un grand merci, c'est exactement ce qui me fallait !!!
On 1 avr, 10:16, wrote:
Rebonjours à toi
As tu bien recopié le code ????
Je pense qu'à la recopie certaines lignes ont été scindées en 2 d' où ton souci
Ci-joint un exemple avec une Macro "Traitement"
En plus de la recopie des valeurs j'ai rajouté des lignes de code pour mettre les marges au minimum pour chaque feuille L'inconvénient c'est qu'elle rallonge de manière significative le temps de traitement
Vois si c'est gérable avec le nombre de feuilles à traiter