zone d'impression

[kiff77]

Bonjour à tous,

J'ai un problème pour définir la zone d'impression par VBA d'un tableau. Le problème c'est que mes cellules vides sont remplies par des formules et Excel ne les identifie pas comme cellules vides.
J'ai utilisé le code VBA présent dans l'aide VBA et la fonction DECALER.

Je vous joins mon fichier à titre d'exemple.

Merci
A+
Kiff

 

[porcinet82]

Re : zone d'impression

salut,

Essais peut etre un truc de ce genre :

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

@+

 

[kiff77]

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

 

[porcinet82]

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.

@+

 

[kiff77]

Re : zone d'impression

re,

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

Encore merci pour ta réponse

A+
Kiff