zone d'impression

porcinet82

XLDnaute Barbatruc

• 27 Février 2008

• #2

Re : zone d'impression

salut,

Essais peut etre un truc de ce genre :

Code:

Sub Plage_impression()
Dim i As Long
For i = 5 To Range("D65536").End(xlUp).Row
    If Cells(i, 4).Value = "" Then Exit For
Next i
ActiveSheet.PageSetup.PrintArea = Range("C5:F" & i - 1).Address
End Sub

@+

 

Vote positif 0 Vote négatif

K

kiff77

XLDnaute Junior

• 27 Février 2008

• #3

Re : zone d'impression

salut porcinet,

Merci pour ta réponse ça marche nickel.

Mais comment tu fais pour exclure de ta selection les cases vides avec formules?

A+
kiff

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 27 Février 2008

• #4

Re : zone d'impression

re,

En fait, le code boucle sur les cellules et regarde si la valeur de la cellule est vide ou pas If Cells(i, 4).Value = "" Then
Ainsi, des que la cellule est vide on sort de la boucle Exit For et on définit la plage a imprimer.

@+

 

Vote positif 0 Vote négatif

K

kiff77

XLDnaute Junior

• 27 Février 2008

• #5

Re : zone d'impression

re,

Je comprends à peu près où tu veux en venir 🙂

Encore merci pour ta réponse

A+
Kiff

 

Vote positif 0 Vote négatif