Zone d'impression différente selon valeur TB

[glm]

Bonjour au forum,
Je cherche à l'aide de la valeur d'un textbox
définir une zone d'impression
j'ai essayé une boucle mais niet...
Voici un exemple
Merci pour vos idées
Merci au forum
A+
Bon WE [file name=exemple_20060218134654.zip size=34411]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060218134654.zip[/file]

 

[Jacques87]

Bonjour

Pour imprimer une zone sélectionnée le code est le suivant
Range('A1767:H1771').Select
Selection.Print Copies:=1, Preview:=True, Collate:=True
cela peut-il te servir ?

Bon WE

 

[glm]

Bonjour jacques87,
Merci mais pas pour l'instant
Voici mon code
l = 8
Set plage1 = Range('A7:R20')
For x = 1 To 52
If TB_semaine.Value = Range('A' & l) Then
Worksheets('horaires').Range('A1').Value = SB_semaine
Worksheets('horaires').PageSetup.PrintArea = plage1
End If
l = l + 35
Set plage1 = plage1.Offset(35, 0) 'décalage de 35 lignes
Next x
Je compare la valeur du TextBox à celle d'une cellule, le répeter 52 fois(tjrs un décalage de 35 lignes) car il y a 52 plages différentes(tjrs décaler de 35 lignes)
C'est pour cela que cela m'embête de taper toutes ces lignes.
J'espère que j'ai été clair
Autrement voir exemple fourni
Merci
A+

 

[glm]

Rebonjour,
Voici le code
Worksheets('horaires').Activate
i = 7
j = 20
l = 8
For x = 1 To 52
If SB_semaine.Value = Cells(l, 1) Then
Worksheets('horaires').PageSetup.PrintArea = '$A$' & i & ':$R$' & j
Worksheets('horaires').PrintOut
Exit Sub
End If
l = l + 35
i = i + 35
j = j + 35
Next x
Merci
Bon WE
A+