zone d'impression identique sur plusieurs onglets d'un fichier
9 réponses
amt
Bonsoir à tous
j'ai l'impression que mon problème est déjà décrit dans le sujet du mail
mais je préfère l'expliciter:
J'ai un fichier avec une cinquantaine d'onglets, chaque onglet a le meme
format de présentation mais a , bien entendu, des données différentes.
Je voudrais créer une zone d'impression identique sur tous ces onglets
(par exemple A1:J53). Comment le faire sans se palucher chaque onglet?
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
isabelle
bonjour amt,
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Bonsoir à tous
j'ai l'impression que mon problème est déjà décrit dans le sujet du mail mais je préfère l'expliciter:
J'ai un fichier avec une cinquantaine d'onglets, chaque onglet a le meme format de présentation mais a , bien entendu, des données différentes. Je voudrais créer une zone d'impression identique sur tous ces onglets (par exemple A1:J53). Comment le faire sans se palucher chaque onglet?
Merci de votre aide
bonjour amt,
Sub Macro1()
For Each f In Worksheets
Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53"
Next
End Sub
isabelle
Bonsoir à tous
j'ai l'impression que mon problème est déjà décrit dans le sujet du mail
mais je préfère l'expliciter:
J'ai un fichier avec une cinquantaine d'onglets, chaque onglet a le meme
format de présentation mais a , bien entendu, des données différentes.
Je voudrais créer une zone d'impression identique sur tous ces onglets
(par exemple A1:J53). Comment le faire sans se palucher chaque onglet?
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Bonsoir à tous
j'ai l'impression que mon problème est déjà décrit dans le sujet du mail mais je préfère l'expliciter:
J'ai un fichier avec une cinquantaine d'onglets, chaque onglet a le meme format de présentation mais a , bien entendu, des données différentes. Je voudrais créer une zone d'impression identique sur tous ces onglets (par exemple A1:J53). Comment le faire sans se palucher chaque onglet?
Merci de votre aide
Martin
Salut amt
Public Sub zone() For i = 1 To Sheets.Count Sheets(i).PageSetup.PrintArea = "$A$1:$J$53" Next i End Sub
Est-ce que ça fonctionne
Salut
Martin
"amt" a écrit dans le message de news: 422c9c98$0$3134$
Bonsoir à tous
j'ai l'impression que mon problème est déjà décrit dans le sujet du mail mais je préfère l'expliciter:
J'ai un fichier avec une cinquantaine d'onglets, chaque onglet a le meme format de présentation mais a , bien entendu, des données différentes. Je voudrais créer une zone d'impression identique sur tous ces onglets (par exemple A1:J53). Comment le faire sans se palucher chaque onglet?
Merci de votre aide
Salut amt
Public Sub zone()
For i = 1 To Sheets.Count
Sheets(i).PageSetup.PrintArea = "$A$1:$J$53"
Next i
End Sub
Est-ce que ça fonctionne
Salut
Martin
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:
422c9c98$0$3134$8fcfb975@news.wanadoo.fr...
Bonsoir à tous
j'ai l'impression que mon problème est déjà décrit dans le sujet du mail
mais je préfère l'expliciter:
J'ai un fichier avec une cinquantaine d'onglets, chaque onglet a le meme
format de présentation mais a , bien entendu, des données différentes.
Je voudrais créer une zone d'impression identique sur tous ces onglets
(par exemple A1:J53). Comment le faire sans se palucher chaque onglet?
Public Sub zone() For i = 1 To Sheets.Count Sheets(i).PageSetup.PrintArea = "$A$1:$J$53" Next i End Sub
Est-ce que ça fonctionne
Salut
Martin
"amt" a écrit dans le message de news: 422c9c98$0$3134$
Bonsoir à tous
j'ai l'impression que mon problème est déjà décrit dans le sujet du mail mais je préfère l'expliciter:
J'ai un fichier avec une cinquantaine d'onglets, chaque onglet a le meme format de présentation mais a , bien entendu, des données différentes. Je voudrais créer une zone d'impression identique sur tous ces onglets (par exemple A1:J53). Comment le faire sans se palucher chaque onglet?
Merci de votre aide
amt
bonjour amt,
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Merci Isabelle la macro fonctionne parfaitement mais je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
bonjour amt,
Sub Macro1()
For Each f In Worksheets
Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53"
Next
End Sub
isabelle
Merci Isabelle
la macro fonctionne parfaitement
mais je voudrais avoir les sauts de page qui font que la présentation
est top
par exemple A1:E53 page 1
F1:H53 page 2
I1:J53 page 3
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Merci Isabelle la macro fonctionne parfaitement mais je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
amt
Salut amt
Public Sub zone() For i = 1 To Sheets.Count Sheets(i).PageSetup.PrintArea = "$A$1:$J$53" Next i End Sub
Est-ce que ça fonctionne
Salut
Martin
"amt" a écrit dans le message de news: 422c9c98$0$3134$
Merci Martin
la macro fonctionne parfaitement mais comme j'ai répondu à Isabelle, je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
Salut amt
Public Sub zone()
For i = 1 To Sheets.Count
Sheets(i).PageSetup.PrintArea = "$A$1:$J$53"
Next i
End Sub
Est-ce que ça fonctionne
Salut
Martin
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:
422c9c98$0$3134$8fcfb975@news.wanadoo.fr...
Merci Martin
la macro fonctionne parfaitement
mais comme j'ai répondu à Isabelle, je voudrais avoir les sauts de page
qui font que la présentation est top
par exemple A1:E53 page 1
F1:H53 page 2
I1:J53 page 3
Public Sub zone() For i = 1 To Sheets.Count Sheets(i).PageSetup.PrintArea = "$A$1:$J$53" Next i End Sub
Est-ce que ça fonctionne
Salut
Martin
"amt" a écrit dans le message de news: 422c9c98$0$3134$
Merci Martin
la macro fonctionne parfaitement mais comme j'ai répondu à Isabelle, je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
isabelle
pour les sauts de page en colonne, ajoute ces commandes,
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Merci Isabelle la macro fonctionne parfaitement mais je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
pour les sauts de page en colonne, ajoute ces commandes,
Sub Macro1()
For Each f In Worksheets
Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53"
Next
End Sub
isabelle
Merci Isabelle
la macro fonctionne parfaitement
mais je voudrais avoir les sauts de page qui font que la présentation
est top
par exemple A1:E53 page 1
F1:H53 page 2
I1:J53 page 3
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Merci Isabelle la macro fonctionne parfaitement mais je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
isabelle
il faut remplacer : ActiveWindow.SelectedSheets par Sheets(f.Name)
isabelle
pour les sauts de page en colonne, ajoute ces commandes,
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Merci Isabelle la macro fonctionne parfaitement mais je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
il faut remplacer :
ActiveWindow.SelectedSheets
par
Sheets(f.Name)
isabelle
pour les sauts de page en colonne, ajoute ces commandes,
Sub Macro1()
For Each f In Worksheets
Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53"
Next
End Sub
isabelle
Merci Isabelle
la macro fonctionne parfaitement
mais je voudrais avoir les sauts de page qui font que la présentation
est top
par exemple A1:E53 page 1
F1:H53 page 2
I1:J53 page 3
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Merci Isabelle la macro fonctionne parfaitement mais je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
amt
il faut remplacer : ActiveWindow.SelectedSheets par Sheets(f.Name)
isabelle
pour les sauts de page en colonne, ajoute ces commandes,
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Merci Isabelle la macro fonctionne parfaitement mais je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
Isabelle
il y a bien des sauts de page mais ils ne sont pas au bon endroit! je suis perplexe amt
il faut remplacer :
ActiveWindow.SelectedSheets
par
Sheets(f.Name)
isabelle
pour les sauts de page en colonne, ajoute ces commandes,
Sub Macro1()
For Each f In Worksheets
Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53"
Next
End Sub
isabelle
Merci Isabelle
la macro fonctionne parfaitement
mais je voudrais avoir les sauts de page qui font que la présentation
est top
par exemple A1:E53 page 1
F1:H53 page 2
I1:J53 page 3
amt
Isabelle
il y a bien des sauts de page mais ils ne sont pas au bon endroit!
je suis perplexe
amt
Sub Macro1() For Each f In Worksheets Sheets(f.Name).PageSetup.PrintArea = "$A$1:$J$53" Next End Sub
isabelle
Merci Isabelle la macro fonctionne parfaitement mais je voudrais avoir les sauts de page qui font que la présentation est top par exemple A1:E53 page 1 F1:H53 page 2 I1:J53 page 3
amt
Isabelle
il y a bien des sauts de page mais ils ne sont pas au bon endroit! je suis perplexe amt
isabelle
il y a bien des sauts de page mais ils ne sont pas au bon endroit! je suis perplexe
il ne faut pas :-), le saut de page sera mit avant la colonne ou la ligne spécifiée, je n'ai donné qu'un exemple, à toi de déterminer ou il doivent être mit.
il y a bien des sauts de page mais ils ne sont pas au bon endroit!
je suis perplexe
il ne faut pas :-), le saut de page sera mit avant la colonne ou la
ligne spécifiée, je n'ai donné qu'un exemple, à toi de déterminer ou il
doivent être mit.
il y a bien des sauts de page mais ils ne sont pas au bon endroit! je suis perplexe
il ne faut pas :-), le saut de page sera mit avant la colonne ou la ligne spécifiée, je n'ai donné qu'un exemple, à toi de déterminer ou il doivent être mit.
amt
il y a bien des sauts de page mais ils ne sont pas au bon endroit! je suis perplexe
il ne faut pas :-), le saut de page sera mit avant la colonne ou la ligne spécifiée, je n'ai donné qu'un exemple, à toi de déterminer ou il doivent être mit. Isabelle
j'ai créé une macro2 avec les lignes concernant les sauts de page et là ca marche. En fait j'avais rajouté les lignes d'instruction dans macro 1 Merci pour tout amt
il y a bien des sauts de page mais ils ne sont pas au bon endroit!
je suis perplexe
il ne faut pas :-), le saut de page sera mit avant la colonne ou la
ligne spécifiée, je n'ai donné qu'un exemple, à toi de déterminer ou il
doivent être mit.
Isabelle
j'ai créé une macro2 avec les lignes concernant les sauts de page et là
ca marche.
En fait j'avais rajouté les lignes d'instruction dans macro 1
Merci pour tout
amt
il y a bien des sauts de page mais ils ne sont pas au bon endroit! je suis perplexe
il ne faut pas :-), le saut de page sera mit avant la colonne ou la ligne spécifiée, je n'ai donné qu'un exemple, à toi de déterminer ou il doivent être mit. Isabelle
j'ai créé une macro2 avec les lignes concernant les sauts de page et là ca marche. En fait j'avais rajouté les lignes d'instruction dans macro 1 Merci pour tout amt
