Z
zorro31
Guest
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
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