Pbl imression par VBA

[zorro31]

Bonjour,

J'ai petit problème d'impression par VBA. Je récupére des données depuis Access que je récupére dans Excel et je souhaite récupérer l'adresse de la plage de mes données. . Mon problème est le suivant: Je récupére des données jusqu'à la colonne T. Dans cette colonne je peux avoir des champs sans des données ou avec des données. Je sais que je peux me fier qu'à la colonne A car j'aurais toujours des données. Mon objectif est de récupérer l'adresse du dernier champ dans cette colonne A puis de faire un offset pour récupérer l'adresse de la cellule dans la colonne T. Comment faire pour récupérer l'adresse de la dernière cellule en A qui a une donnée?.

J'ai fais ceci mais cela ne marche pas sur cette ligne. Pour l'instant je ne m'occupe pas de l'offset.
For Each cell In Sh1.Range("A11:A65536")
juju = Range("A11", Range("A" & cell.Row).End(xIDown)).Address
Next cell


Sub Testy()

Dim juju As Variant
Dim Sh1 As Worksheet

Set Sh1 = Worksheets("AM_PRINCIPAL102")

For Each cell In Sh1.Range("A11:A65536")
juju = Range("A11", Range("A" & cell.Row).End(xIDown)).Address
Next cell


juju = juju

With Sh1
.PageSetup.PrintArea = Sh.Range("A1:" & juju)
.PageSetup.Orientation = xlLandscape
.PageSetup.PrintTitleRows = 8
.PageSetup.Zoom = 80
'.PrintOut Copies:=1, Collate:=True
End With

End Sub

Merci de votre aide,

Zorro31

 

[michel]

Bonjour Zorro31

peux tu tester la modification ci dessous


Option Explicit

Sub Testy()
Dim Juju As Integer
Dim Sh1 As Worksheet

Set Sh1 = Worksheets("AM_PRINCIPAL102")
Juju = Sh1.Range("A65536", Range("A11").End(xlDown)).Row
Range("a1").Select

With Sh1
.PageSetup.PrintArea = "A1:T" & Juju
.PageSetup.Orientation = xlLandscape
.PageSetup.PrintTitleRows = 8
.PageSetup.Zoom = 80
'.PrintOut Copies:=1, Collate:=True
End With

End Sub



bon apres midi
Michel

 

[zorro31]

Merci Michel pour ta réponse,

Je vais essayer dès que possible ton code.

@+

Zorro31