definir une zone d'impression

[cfn3cfn]

Bonjour à tous,
Comment pouvoir définir une zone d'impression de la première cellule à la dernière qui contiennent quelque chose? par un code.
Pour ce type de code je sais faire

Code: Tout sélectionner

ActiveWindow.SmallScroll Down:=-14
    Range("A1:H93").Select
    Range("H1").Activate
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$93"

Mais par "MsgBox" avec saisie de la première cellule à la dernière.
Là je vous donne comme exemple la "A1:H93"
mais j'ai de la "A1:h30 ou150 etc je ne sais pas faire.
Merci d'avance de votre aide
Amicalement
Noel

[vba-new]

Bonjour Noel,

Essaie avec ça :

Code: Tout sélectionner

Sub Selection_Zone()
    Dim plage As Range
    'Tu peux utiliser la méthode Application.InputBox pour saisir des données
   'L'argument "Type" de cette méthode est ici égale à 8
   'Cela signifie que le type de données saisi dans l'inputbox sera une plage de cellules
   Set plage = Application.InputBox(Prompt:="Sélectionner la zone d'impression", Type:=8)
    ActiveSheet.PageSetup.PrintArea = plage.Address
End Sub

[cfn3cfn]

Bonjour vba-new,
Merci pour ce code qui me semble très intéressant.
Bien sure il fonctionne très bien.
Mais je voudrai savoir si on a la possibilité d'une sélection automatique de "A1" à la dernière ligne d'où se trouve une cellule rempli de données.
Merci de ton aide
Amicalement
Noel

[Nad]

Bonjour Noel

S'il s'agit toujours de la plage A1:Hx - En considérant que la colonne A détermine la dernière ligne remplie ( soit Range("A65536")... à modifier s'il s'agit d'une autre colonne)

Code: Tout sélectionner

Sub Imprime()
Dim derlg As Integer
derlg = Range("A65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & derlg
End Sub

Si le nombre de colonne peut évoluer également

Code: Tout sélectionner

Sub Imprime()
Dim plage As Range
plage = Range("A1").CurrentRegion.Address
ActiveSheet.PageSetup.PrintArea = plage
End Sub

Amicalement
Nad

[cfn3cfn]

Re,
Bonjour NAD,
Merci pour tous cela fonction avec tout et aussi celui de vba-new
@+
Amicalement
Noel