[VBA: définition de la zone d'impression] [Résolu]

On peut aussi utiliser la propriété Address de VBA :

Sub ZoneImp()
Dim intColMin As Integer, intColMax As Integer
Dim intLinMin As Integer, intLinMax As Integer

intColMin = 1
intColMax = 12
intLinMin = 2
intLinMax = 25

ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMin, intColMin), Cells(intLinMax, intColMax)).Address

End Sub

salut,

ActiveSheet.PageSetup.PrintArea = "$A$83:$E$100"

en utilisant des variables, tu dois pouvoir facilement modifier la chaîne "$A$83:$E$100"

voici la fonction Adresse() qui renvoie une colonne sous forme de lettre avec comme paramètre un numéro de colonne (5 renverra E, 27 renverra AA, etc...) :

Private Function Adresse(Colonne As Integer) As String
'************************************************
' renvoie la référence de colonne au format $AA *
'************************************************
If Colonne < 257 Then
If Colonne > 26 Then
' le IIf() traite le cas particulier des Z
Adresse = "$" & Chr(64 + (Colonne \ 26) + IIf(Colonne Mod 26 = 0, -1, 0))
Else
Adresse = "$"
End If

' le IIf() traite le cas particulier des Z
Adresse = Adresse & Chr(64 + IIf(Colonne Mod 26 = 0, 26, 0) + (Colonne Mod 26))
Else
Adresse = "Erreur : numéro de colonne > 256"
End If
End Function

Sub ZoneImp()
Dim intColMin As Integer, intColMax As Integer
Dim intLinMin As Integer, intLinMax As Integer

intColMin = 1
intColMax = 12
intLinMin = 2
intLin = 25

ActiveSheet.PageSetup.PrintArea = Adresse(inColMin) & intLinMin & ":" & Adresse(intColMax) & intLinMax
' les $ ne sont pas indispensables

End Sub

j'ai tapé ce code directement ici, sans le tester, mais ça devrait être bon.

ou

Sub zone_impression()
'
' zone d'impression & aperçu

With Range("A:H")
Worksheets("command").Activate
ActiveSheet.PageSetup.PrintArea = Range("A1:H" & .Find("*", .Item(1), , , , xlPrevious).Row).Address
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Slt,

C'est justement ça mon problème!!
J'arrive pas à introduire une variable dans la synthaxe de:
"$A$83:$E$100"

Tu vois comment je peux faire?


P-Yves

Juste pour dire que ton code me sauve pour ainsi dire la vie ou du moins la fin de mon stage

bonjour je voudrais creer un bouton impression
j ai definis que chaque ligne est a imprimer séparement sur pages différentes
le nombre de feuille a imprimer est a definir cela peut etre 5,10,12,20 juste a définir avant l'impression
merci d'avance

Bonjour P.Yves (et les autres),
Je viens d'avoir cette problématique. J'ai trouvé comment faire (bon j'espère que depuis votre message, vous avez trouvé la solution).
Pour tous ceux qui ont ce problème voici les lignes pour définir une zone d'impression comprenant les colonnes de A à J et les lignes de 1 jusqu'à la dernière contenant quelque chose (tout ça sur la feuille nommée "Etiquettes") :

Dans la déclaration des variables j'entre :

Dim IL As Long ' l'indice de la dernière ligne utilisée

Ensuite :

IL = Sheets("Etiquettes").Range("A" & Application.Rows.Count).End(xlUp).Row 'Recherche de la dernière ligne

Sheets("Etiquettes").PageSetup.PrintArea = "A1:J" & IL ' Définition de la zone d'impression avec variable IL

Bonjour,
nous devons faire un programme sur VBA et nous voudrions savoir quel langage VBA placer derrière le bouton "imprimer". Si on a une imprimante ou deux ou plus ? S'il est possible d'avoir un aperçu avant impression et de règler les marges et tout le tralala !