zone impression

[wrndid]

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]

Re : zone impression

Salut wrndid et le forum

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+