Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel PrintArea

PrintArea

8 réponses
Avatar
leo
bonsoir,

Je souhaite faire une boucle sur for each sur mes feuilles, selectionner une
plage venant d'un refedit et faire une mise en page.

comment Faire ?

d'avance merci

Dans une form, j'ai
PlageImpression = RefEdit1.Text



dans le prog, j'ai

For Each x In ActiveWorkbook.Sheets

selectionner la plage d'impression, je ne sais pas faire ?????

faire la mise en page, je sais faire

next x




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
isabelle
bonjour Leo,

pour faire la selection,

Dim plage As Range
Set plage = Application.InputBox(prompt:="Faite votre sélection", Type:=8)

isabelle


bonsoir,

Je souhaite faire une boucle sur for each sur mes feuilles, selectionner une
plage venant d'un refedit et faire une mise en page.

comment Faire ?

d'avance merci

Dans une form, j'ai
PlageImpression = RefEdit1.Text

dans le prog, j'ai

For Each x In ActiveWorkbook.Sheets

selectionner la plage d'impression, je ne sais pas faire ?????

faire la mise en page, je sais faire

next x

--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------


Avatar
michdenis
Bonjour,

Le contrôle RefEdit se trouve dans ton formulaire, et à partir d'un bouton de commande, ton code pourrait ressembler à
ceci :

'----------------------------
Private Sub CommandButton1_Click()

Dim Adr As String
Dim Rg As Range
Adr = Me.RefEdit1.Text
If Adr <> "" Then
Set Rg = Range(Adr)
End If
If WorksheetFunction.CountA(Rg) = 0 Then Exit Sub
With Worksheets(Rg.Parent.Name)
.PageSetup.PrintArea = Rg.Address
.PrintOut
.PageSetup.PrintArea = ""
End With

End Sub
'----------------------------


Salutations!



"leo" a écrit dans le message de news: 41a3bb85$0$21829$
bonsoir,

Je souhaite faire une boucle sur for each sur mes feuilles, selectionner une
plage venant d'un refedit et faire une mise en page.

comment Faire ?

d'avance merci

Dans une form, j'ai
PlageImpression = RefEdit1.Text



dans le prog, j'ai

For Each x In ActiveWorkbook.Sheets

selectionner la plage d'impression, je ne sais pas faire ?????

faire la mise en page, je sais faire

next x




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Avatar
leo
bonsoir,
je me suis mal exprimé et donc je reformule.

Je souhaite faire la chose suivante :

un refedit me donne une plage fixe par exemple A1:Z20

je souhaite
Pour chaque feuille du classeur
définir la zone d'impression A1:Z20
Faire une mise en page ( par exemple : .Orientation = xlLandscape )
Fin pour

Merci pour votre aide,



"michdenis" a écrit dans le message de news:

Bonjour,

Le contrôle RefEdit se trouve dans ton formulaire, et à partir d'un bouton
de commande, ton code pourrait ressembler à

ceci :

'----------------------------
Private Sub CommandButton1_Click()

Dim Adr As String
Dim Rg As Range
Adr = Me.RefEdit1.Text
If Adr <> "" Then
Set Rg = Range(Adr)
End If
If WorksheetFunction.CountA(Rg) = 0 Then Exit Sub
With Worksheets(Rg.Parent.Name)
.PageSetup.PrintArea = Rg.Address
.PrintOut
.PageSetup.PrintArea = ""
End With

End Sub
'----------------------------


Salutations!



"leo" a écrit dans le message de news:
41a3bb85$0$21829$

bonsoir,

Je souhaite faire une boucle sur for each sur mes feuilles, selectionner
une

plage venant d'un refedit et faire une mise en page.

comment Faire ?

d'avance merci

Dans une form, j'ai
PlageImpression = RefEdit1.Text



dans le prog, j'ai

For Each x In ActiveWorkbook.Sheets

selectionner la plage d'impression, je ne sais pas faire ?????

faire la mise en page, je sais faire

next x




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------







Avatar
isabelle
bonjour Leo,

Dim f As Worksheet
For Each f In Worksheet
Sheets(f.Name).Activate
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$A$10"
.Orientation = xlLandscape
End With

isabelle


bonsoir,
je me suis mal exprimé et donc je reformule.

Je souhaite faire la chose suivante :

un refedit me donne une plage fixe par exemple A1:Z20

je souhaite
Pour chaque feuille du classeur
définir la zone d'impression A1:Z20
Faire une mise en page ( par exemple : .Orientation = xlLandscape )
Fin pour

Merci pour votre aide,

"michdenis" a écrit dans le message de news:

Bonjour,

Le contrôle RefEdit se trouve dans ton formulaire, et à partir d'un bouton
de commande, ton code pourrait ressembler à

ceci :

'----------------------------
Private Sub CommandButton1_Click()

Dim Adr As String
Dim Rg As Range
Adr = Me.RefEdit1.Text
If Adr <> "" Then
Set Rg = Range(Adr)
End If
If WorksheetFunction.CountA(Rg) = 0 Then Exit Sub
With Worksheets(Rg.Parent.Name)
.PageSetup.PrintArea = Rg.Address
.PrintOut
.PageSetup.PrintArea = ""
End With

End Sub
'----------------------------


Salutations!



"leo" a écrit dans le message de news:
41a3bb85$0$21829$

bonsoir,

Je souhaite faire une boucle sur for each sur mes feuilles, selectionner
une

plage venant d'un refedit et faire une mise en page.

comment Faire ?

d'avance merci

Dans une form, j'ai
PlageImpression = RefEdit1.Text



dans le prog, j'ai

For Each x In ActiveWorkbook.Sheets

selectionner la plage d'impression, je ne sais pas faire ?????

faire la mise en page, je sais faire

next x




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------









Avatar
leo
Merci beaucoup, c'est exactement ce que je cherchais

A+


"isabelle" a écrit dans le message de news:

bonjour Leo,

Dim f As Worksheet
For Each f In Worksheet
Sheets(f.Name).Activate
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$A$10"
.Orientation = xlLandscape
End With

isabelle


bonsoir,
je me suis mal exprimé et donc je reformule.

Je souhaite faire la chose suivante :

un refedit me donne une plage fixe par exemple A1:Z20

je souhaite
Pour chaque feuille du classeur
définir la zone d'impression A1:Z20
Faire une mise en page ( par exemple : .Orientation = xlLandscape )
Fin pour

Merci pour votre aide,

"michdenis" a écrit dans le message de news:

Bonjour,

Le contrôle RefEdit se trouve dans ton formulaire, et à partir d'un
bouton



de commande, ton code pourrait ressembler à
ceci :

'----------------------------
Private Sub CommandButton1_Click()

Dim Adr As String
Dim Rg As Range
Adr = Me.RefEdit1.Text
If Adr <> "" Then
Set Rg = Range(Adr)
End If
If WorksheetFunction.CountA(Rg) = 0 Then Exit Sub
With Worksheets(Rg.Parent.Name)
.PageSetup.PrintArea = Rg.Address
.PrintOut
.PageSetup.PrintArea = ""
End With

End Sub
'----------------------------


Salutations!



"leo" a écrit dans le message de news:
41a3bb85$0$21829$

bonsoir,

Je souhaite faire une boucle sur for each sur mes feuilles,
selectionner



une
plage venant d'un refedit et faire une mise en page.

comment Faire ?

d'avance merci

Dans une form, j'ai
PlageImpression = RefEdit1.Text



dans le prog, j'ai

For Each x In ActiveWorkbook.Sheets

selectionner la plage d'impression, je ne sais pas faire ?????

faire la mise en page, je sais faire

next x




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------











Avatar
jps
tu as du mérite, léo, d'avoir fait marcher la proc de mon démon qui se paie
le luxe de ne pas mettre de "s" à Worksheets et oublie le Next du For
Each....
inadmissibeul....allez ouste, qu'elle passe du statut de geôlière à celui de
geôliée, la mère isabelle...
jps

"leo" a écrit dans le message de
news:41a516e2$0$9063$
Merci beaucoup, c'est exactement ce que je cherchais

A+


"isabelle" a écrit dans le message de news:

bonjour Leo,

Dim f As Worksheet
For Each f In Worksheet
Sheets(f.Name).Activate
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$A$10"
.Orientation = xlLandscape
End With

isabelle


bonsoir,
je me suis mal exprimé et donc je reformule.

Je souhaite faire la chose suivante :

un refedit me donne une plage fixe par exemple A1:Z20

je souhaite
Pour chaque feuille du classeur
définir la zone d'impression A1:Z20
Faire une mise en page ( par exemple : .Orientation xlLandscape )
Fin pour

Merci pour votre aide,

"michdenis" a écrit dans le message de news:

Bonjour,

Le contrôle RefEdit se trouve dans ton formulaire, et à partir d'un
bouton



de commande, ton code pourrait ressembler à
ceci :

'----------------------------
Private Sub CommandButton1_Click()

Dim Adr As String
Dim Rg As Range
Adr = Me.RefEdit1.Text
If Adr <> "" Then
Set Rg = Range(Adr)
End If
If WorksheetFunction.CountA(Rg) = 0 Then Exit Sub
With Worksheets(Rg.Parent.Name)
.PageSetup.PrintArea = Rg.Address
.PrintOut
.PageSetup.PrintArea = ""
End With

End Sub
'----------------------------


Salutations!



"leo" a écrit dans le message de news:
41a3bb85$0$21829$

bonsoir,

Je souhaite faire une boucle sur for each sur mes feuilles,
selectionner



une
plage venant d'un refedit et faire une mise en page.

comment Faire ?

d'avance merci

Dans une form, j'ai
PlageImpression = RefEdit1.Text



dans le prog, j'ai

For Each x In ActiveWorkbook.Sheets

selectionner la plage d'impression, je ne sais pas faire ?????

faire la mise en page, je sais faire

next x




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------















Avatar
isabelle
oup's tu as tout à fait raison jean paul je suis incorrigible, oui chef je file right now en geôle en espérant que
Pierre et Starwing y ont laissé quelque bon cru pour me consoler.
isabelle


tu as du mérite, léo, d'avoir fait marcher la proc de mon démon qui se paie
le luxe de ne pas mettre de "s" à Worksheets et oublie le Next du For
Each....
inadmissibeul....allez ouste, qu'elle passe du statut de geôlière à celui de
geôliée, la mère isabelle...
jps

"leo" a écrit dans le message de
news:41a516e2$0$9063$
Merci beaucoup, c'est exactement ce que je cherchais

A+


"isabelle" a écrit dans le message de news:

bonjour Leo,

Dim f As Worksheet
For Each f In Worksheet
Sheets(f.Name).Activate
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$A$10"
.Orientation = xlLandscape
End With

isabelle


bonsoir,
je me suis mal exprimé et donc je reformule.

Je souhaite faire la chose suivante :

un refedit me donne une plage fixe par exemple A1:Z20

je souhaite
Pour chaque feuille du classeur
définir la zone d'impression A1:Z20
Faire une mise en page ( par exemple : .Orientation > xlLandscape )
Fin pour

Merci pour votre aide,

"michdenis" a écrit dans le message de news:

Bonjour,

Le contrôle RefEdit se trouve dans ton formulaire, et à partir d'un
bouton



de commande, ton code pourrait ressembler à
ceci :

'----------------------------
Private Sub CommandButton1_Click()

Dim Adr As String
Dim Rg As Range
Adr = Me.RefEdit1.Text
If Adr <> "" Then
Set Rg = Range(Adr)
End If
If WorksheetFunction.CountA(Rg) = 0 Then Exit Sub
With Worksheets(Rg.Parent.Name)
.PageSetup.PrintArea = Rg.Address
.PrintOut
.PageSetup.PrintArea = ""
End With

End Sub
'----------------------------


Salutations!



"leo" a écrit dans le message de news:
41a3bb85$0$21829$

bonsoir,

Je souhaite faire une boucle sur for each sur mes feuilles,
selectionner



une
plage venant d'un refedit et faire une mise en page.

comment Faire ?

d'avance merci

Dans une form, j'ai
PlageImpression = RefEdit1.Text



dans le prog, j'ai

For Each x In ActiveWorkbook.Sheets

selectionner la plage d'impression, je ne sais pas faire ?????

faire la mise en page, je sais faire

next x




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------

















Avatar
jps
:-)))))))
fais surtout attention à twinley là-bas, mon ange : à 240 m sous terre, il
est intenable...tu me diras : normal, en VBA, il est au taupe niveau...
jps

"isabelle" a écrit dans le message de
news:
oup's tu as tout à fait raison jean paul je suis incorrigible, oui chef je
file right now en geôle en espérant que

Pierre et Starwing y ont laissé quelque bon cru pour me consoler.
isabelle


tu as du mérite, léo, d'avoir fait marcher la proc de mon démon qui se
paie


le luxe de ne pas mettre de "s" à Worksheets et oublie le Next du For
Each....
inadmissibeul....allez ouste, qu'elle passe du statut de geôlière à
celui de


geôliée, la mère isabelle...
jps

"leo" a écrit dans le message de
news:41a516e2$0$9063$
Merci beaucoup, c'est exactement ce que je cherchais

A+


"isabelle" a écrit dans le message de
news:




bonjour Leo,

Dim f As Worksheet
For Each f In Worksheet
Sheets(f.Name).Activate
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$A$10"
.Orientation = xlLandscape
End With

isabelle


bonsoir,
je me suis mal exprimé et donc je reformule.

Je souhaite faire la chose suivante :

un refedit me donne une plage fixe par exemple A1:Z20

je souhaite
Pour chaque feuille du classeur
définir la zone d'impression A1:Z20
Faire une mise en page ( par exemple : .Orientation > > xlLandscape )
Fin pour

Merci pour votre aide,

"michdenis" a écrit dans le message de
news:






Bonjour,

Le contrôle RefEdit se trouve dans ton formulaire, et à partir
d'un






bouton
de commande, ton code pourrait ressembler à
ceci :

'----------------------------
Private Sub CommandButton1_Click()

Dim Adr As String
Dim Rg As Range
Adr = Me.RefEdit1.Text
If Adr <> "" Then
Set Rg = Range(Adr)
End If
If WorksheetFunction.CountA(Rg) = 0 Then Exit Sub
With Worksheets(Rg.Parent.Name)
.PageSetup.PrintArea = Rg.Address
.PrintOut
.PageSetup.PrintArea = ""
End With

End Sub
'----------------------------


Salutations!



"leo" a écrit dans le message de
news:






41a3bb85$0$21829$
bonsoir,

Je souhaite faire une boucle sur for each sur mes feuilles,
selectionner



une
plage venant d'un refedit et faire une mise en page.

comment Faire ?

d'avance merci

Dans une form, j'ai
PlageImpression = RefEdit1.Text



dans le prog, j'ai

For Each x In ActiveWorkbook.Sheets

selectionner la plage d'impression, je ne sais pas faire
?????







faire la mise en page, je sais faire

next x




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------