zone impression

wrndid · 18 Mars 2011

bonjour je voudrais determiner en automatique ma zone d'impression
exemple

a chaque fois que je vois jeudi dans la colone 1
j imprime de la 1 colone jeudi a la colone 34 plus les 4 ligne suivante
merci

Gorfael · 18 Mars 2011

Re : zone impression

Salut wrndid et le forum

Code:

Sub test()
Dim Cel As Range
For Each Cel In Range([A1], Cells(Rows.Count, "A").End(xlUp))
    If Weekday(Cel, 2) = 4 Then
        Range(Cel, Cel.Offset(4, 33)).PrintPreview
    End If
Next Cel
End Sub

J'ai supposé qu'en A tu avais des dates.
Si c'est bon, remplacer printpreview (aperçu) par printout.

Moins tu donnes d'infos, plus on doit extrapoler !
A+

zone impression

wrndid

XLDnaute Occasionnel

Gorfael

XLDnaute Barbatruc

Discussions similaires

zone impression

wrndid

XLDnaute Occasionnel

Gorfael

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency