OVH Cloud OVH Cloud

macro pour imprimer une zone variable SVP

6 réponses
Avatar
didier
Bonjour à tous(tes), je veux imprimer un tableau qui est créé
automatiquement par une macro.

Celui-ci est donc variable, pour faire la sélection de la zone à imprimer j'
enregistre une macro comme ceci :

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.PageSetup.PrintArea = "$A$221:$H$275"

Seulement voilà quand je délimite la zone à imprimer j'ai une valeur bien
spécifique, ici "$A$221:$H$275", moi je voudrai que ce soit la nouvelle zone
qui soit imprimée à chaque fois et non une valeur spécifique.

Comme par exemple : ActiveSheet.PageSetup.PrintArea = Selection

Bien évidemment ça ne fonctionne pas, ce code n'est pas valable.

Pourriez-vous m'aider SVP, merci d'avance

Didier

6 réponses

Avatar
Bourby
bonjour,

si tu regardes dans l'aide de VBA,
tu verras que la propriété PrintArea est définie
par une chaîne de caractères, pas par une plage.

Donc tu baptises ta plage, p.ex. "maPlage",
et tu lui indiques:
ActiveSheet.PageSetup.PrintArea = "maPlage"

Cordialement.

Bourby

"didier" a écrit dans le message news:
3fa28848$0$258$
Bonjour à tous(tes), je veux imprimer un tableau qui est créé
automatiquement par une macro.

Celui-ci est donc variable, pour faire la sélection de la zone à imprimer
j'

enregistre une macro comme ceci :

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.PageSetup.PrintArea = "$A$221:$H$275"

Seulement voilà quand je délimite la zone à imprimer j'ai une valeur bien
spécifique, ici "$A$221:$H$275", moi je voudrai que ce soit la nouvelle
zone

qui soit imprimée à chaque fois et non une valeur spécifique.

Comme par exemple : ActiveSheet.PageSetup.PrintArea = Selection

Bien évidemment ça ne fonctionne pas, ce code n'est pas valable.

Pourriez-vous m'aider SVP, merci d'avance

Didier




Avatar
didier
Merci bourby, mais j'ai eu une réponse d'un autre forum qui me convient
parfaitement, elle est ci-dessous, on ne sais jamais ça peut servir à
d'autres.

Sub Macro1()

'imprime une zone sélectionnée par une macro donc si la zone change
l'impression aussi

Range("B2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.Selection.PrintPreview
End Sub

Merci encore
Didier

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

bonjour,

si tu regardes dans l'aide de VBA,
tu verras que la propriété PrintArea est définie
par une chaîne de caractères, pas par une plage.

Donc tu baptises ta plage, p.ex. "maPlage",
et tu lui indiques:
ActiveSheet.PageSetup.PrintArea = "maPlage"

Cordialement.

Bourby

"didier" a écrit dans le message news:
3fa28848$0$258$
Bonjour à tous(tes), je veux imprimer un tableau qui est créé
automatiquement par une macro.

Celui-ci est donc variable, pour faire la sélection de la zone à
imprimer


j'
enregistre une macro comme ceci :

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.PageSetup.PrintArea = "$A$221:$H$275"

Seulement voilà quand je délimite la zone à imprimer j'ai une valeur
bien


spécifique, ici "$A$221:$H$275", moi je voudrai que ce soit la nouvelle
zone

qui soit imprimée à chaque fois et non une valeur spécifique.

Comme par exemple : ActiveSheet.PageSetup.PrintArea = Selection

Bien évidemment ça ne fonctionne pas, ce code n'est pas valable.

Pourriez-vous m'aider SVP, merci d'avance

Didier








Avatar
didiersee
Bonjour Bourby, voici ma macro mais ça ne fonctionne pas.

Range("A221:H224").Select
Range(Selection, Selection.End(xlDown)).Select
Selection = "maplage"
ActiveSheet.PageSetup.PrintArea = "maplage"

Peux-tu m'aider SVP.
Merci d'avance Bourby
Didiersee


"didier" wrote in message news:<3fa2b324$0$246$...
Merci bourby, mais j'ai eu une réponse d'un autre forum qui me convient
parfaitement, elle est ci-dessous, on ne sais jamais ça peut servir à
d'autres.

Sub Macro1()

'imprime une zone sélectionnée par une macro donc si la zone change
l'impression aussi

Range("B2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.Selection.PrintPreview
End Sub

Merci encore
Didier

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

bonjour,

si tu regardes dans l'aide de VBA,
tu verras que la propriété PrintArea est définie
par une chaîne de caractères, pas par une plage.

Donc tu baptises ta plage, p.ex. "maPlage",
et tu lui indiques:
ActiveSheet.PageSetup.PrintArea = "maPlage"

Cordialement.

Bourby

"didier" a écrit dans le message news:
3fa28848$0$258$
Bonjour à tous(tes), je veux imprimer un tableau qui est créé
automatiquement par une macro.

Celui-ci est donc variable, pour faire la sélection de la zone à
imprimer


j'
enregistre une macro comme ceci :

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.PageSetup.PrintArea = "$A$221:$H$275"

Seulement voilà quand je délimite la zone à imprimer j'ai une valeur
bien


spécifique, ici "$A$221:$H$275", moi je voudrai que ce soit la nouvelle
zone


qui soit imprimée à chaque fois et non une valeur spécifique.

Comme par exemple : ActiveSheet.PageSetup.PrintArea = Selection

Bien évidemment ça ne fonctionne pas, ce code n'est pas valable.

Pourriez-vous m'aider SVP, merci d'avance

Didier










Avatar
Papyty
Salut @ Tous, didiersee a écrit:
Bonjour Bourby, voici ma macro mais ça ne fonctionne pas.

Range("A221:H224").Select
Range(Selection, Selection.End(xlDown)).Select
Selection = "maplage"
ActiveSheet.PageSetup.PrintArea = "maplage"

Peux-tu m'aider SVP.
Merci d'avance Bourby
Didiersee

"didier" wrote in message news:<3fa2b324$0$246$...
Merci bourby, mais j'ai eu une réponse d'un autre forum qui me convient
parfaitement, elle est ci-dessous, on ne sais jamais ça peut servir à
d'autres.

Sub Macro1()

'imprime une zone sélectionnée par une macro donc si la zone change
l'impression aussi

Range("B2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.Selection.PrintPreview
End Sub

Merci encore
Didier

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

bonjour,

si tu regardes dans l'aide de VBA,
tu verras que la propriété PrintArea est définie
par une chaîne de caractères, pas par une plage.

Donc tu baptises ta plage, p.ex. "maPlage",
et tu lui indiques:
ActiveSheet.PageSetup.PrintArea = "maPlage"

Cordialement.

Bourby

"didier" a écrit dans le message news:
3fa28848$0$258$
Bonjour à tous(tes), je veux imprimer un tableau qui est créé
automatiquement par une macro.

Celui-ci est donc variable, pour faire la sélection de la zone à
imprimer


j'
enregistre une macro comme ceci :

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.PageSetup.PrintArea = "$A$221:$H$275"

Seulement voilà quand je délimite la zone à imprimer j'ai une valeur
bien


spécifique, ici "$A$221:$H$275", moi je voudrai que ce soit la nouvelle
zone


qui soit imprimée à chaque fois et non une valeur spécifique.

Comme par exemple : ActiveSheet.PageSetup.PrintArea = Selection

Bien évidemment ça ne fonctionne pas, ce code n'est pas valable.

Pourriez-vous m'aider SVP, merci d'avance

Didier









Avec peut etre
Selection.Name = "maplage"
--
@+
Thierry




Avatar
didier
Parfait Papyty, ça marche, un grand merci
Didiersee
"Papyty" a écrit dans le message de news:
1tpqhjw2gjzic.v1opgkd7702f$
Salut @ Tous, didiersee a écrit:
Bonjour Bourby, voici ma macro mais ça ne fonctionne pas.

Range("A221:H224").Select
Range(Selection, Selection.End(xlDown)).Select
Selection = "maplage"
ActiveSheet.PageSetup.PrintArea = "maplage"

Peux-tu m'aider SVP.
Merci d'avance Bourby
Didiersee

"didier" wrote in message
news:<3fa2b324$0$246$...


Merci bourby, mais j'ai eu une réponse d'un autre forum qui me convient
parfaitement, elle est ci-dessous, on ne sais jamais ça peut servir à
d'autres.

Sub Macro1()

'imprime une zone sélectionnée par une macro donc si la zone change
l'impression aussi

Range("B2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.Selection.PrintPreview
End Sub

Merci encore
Didier

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

bonjour,

si tu regardes dans l'aide de VBA,
tu verras que la propriété PrintArea est définie
par une chaîne de caractères, pas par une plage.

Donc tu baptises ta plage, p.ex. "maPlage",
et tu lui indiques:
ActiveSheet.PageSetup.PrintArea = "maPlage"

Cordialement.

Bourby

"didier" a écrit dans le message news:
3fa28848$0$258$
Bonjour à tous(tes), je veux imprimer un tableau qui est créé
automatiquement par une macro.

Celui-ci est donc variable, pour faire la sélection de la zone à
imprimer


j'
enregistre une macro comme ceci :

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.PageSetup.PrintArea = "$A$221:$H$275"

Seulement voilà quand je délimite la zone à imprimer j'ai une
valeur





bien
spécifique, ici "$A$221:$H$275", moi je voudrai que ce soit la
nouvelle





zone
qui soit imprimée à chaque fois et non une valeur spécifique.

Comme par exemple : ActiveSheet.PageSetup.PrintArea = Selection

Bien évidemment ça ne fonctionne pas, ce code n'est pas valable.

Pourriez-vous m'aider SVP, merci d'avance

Didier









Avec peut etre
Selection.Name = "maplage"
--
@+
Thierry






Avatar
Papyty
Salut @ Tous, didier a écrit:
Parfait Papyty, ça marche, un grand merci
Didiersee


c'est avec plaisir

--
@+
Thierry