création d'une zone d'impression à dimention variable

bonjour à tous,

le titre est un peu pompeu mais pas grave!

voila, j'ai un tableau, et j'aimerai qu'une macro me selectionne automatiquement le tableau (qui va comporter 19 lignes aujourd'hui, et 15 demain), puis qu'elle me le désigne en tant que zone d'impression.

Code:

---

1 2 3

Range("A2").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.PageSetup.PrintArea = "selection"

---

mais malheureusement, il ne reconnait pas le "selection"

si quelqu'un a une solution...

merci d'avance

Salut,

Comme ca:

Code:

---

ActiveSheet.PageSetup.PrintArea = Selection.Address

---

++
Minick

Salut,
Tu parles de tableau mais tu ne te réfère qu'à la colonne A.
Voici une manière qui te permettra d'adapter en fonction du nombre de colonnes, remplace C par ce dont tu as besoin.

Code:

---

1 2 3 4 5 6

Sub DefPrintArea() MyEnd = Cells(2, 1).End(xlDown).Row ActiveSheet.PageSetup.PrintArea = "A2:C" & MyEnd End Sub

---

Bonjour,

Le plus simplement possible, tu as :

Code:

---

1 2 3 4 5

Sub Test()   ActiveSheet.PageSetup.PrintArea = ("A2:D" & Range("A65536").End(xlUp).Row)   End Sub

---

Ici nous disons que la tableau va de la colonne A à la colonne D (ça c'est fixe) et il va de la ligne 2 (toujours fixe, la première) jusqu'à la dernière ligne remplie de la ligne A (la fin de ton tableau donc).

EDIT : ben dis donc Fvandermeulen, on s'est croisé pour poster exactement la même chose :roll:

Salut DeaD78,
T'as une ligne de moins quand même :(

merci beaucoup pour ta réponse. en fait il ne me manquais que le ".adress" XD.

par contre, j'ai entendu parler d'une optimisation du coe pour accelerrer son exécution. je vais faire des recherches, car l'exécution de cette ligne

Code:

---

ActiveSheet.PageSetup.PrintArea = Selection.Address

---

est un peu longue.

sinon ca marche du feu de dieu.


EDIT: pour les deux autres réponse, désolé mais je ne l'ai ai pas essayé car la premiere fonctionne parfaitement.
en réponse à Fvandermulen, tu as raison, j'ai fait une erreur en tapant le code sur le forum mais il s'agissait bien de ca:

Code:

---

1 2 3

Range("A1:H1").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.PageSetup.PrintArea = "selection"

---

merci pour tout

Re,
Tu parles d'optimalisation, dans ce cas la proposition de Dead78 est la meilleur, il fait la même chose en une seule ligne.
L'optimalisation s'obtient, dans ton cas, en évitant les sélections.
Donc si je reprends son code avec les bonnes colonnes:

Code:

---

ActiveSheet.PageSetup.PrintArea = ("A1:H" & Range("A65536").End(xlUp).Row)

---

Bonne continuation

re,

je viens de faire le test des deux formules.

la premiere est plus longue a exécuter mais elle fonctionne. alors que même si la deuxième va bcp plus vite, elle ne fonctionne pas. la totalité de mon tableau n'a pas été selectionné.


1er solution

Code:

---

1 2 3

Range("A1:H1").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.PageSetup.PrintArea = "selection.address"

---

2ème solution

Code:

---

ActiveSheet.PageSetup.PrintArea = ("A1:H" & Range("A65536").End(xlUp).Row)

---

...

en fait, apres test, aucune des deux formules ne fonctionne. j'ai ajouté des lignes, et la selection ne se fait pas. moi pas comprendre. pourtant le code semble vraiment logique...

Etrange pour la solution2, je viens de tester pour être certain et ça fonctionne très bien.

oui ca fonctionne, bien sur que ca fonctionne,. mais si le lendemain, le meme tableau comporte 3 ligne en plus, il ne les prendra pas en compte...

sachant que ces trois ligne supplémentaires ne sont pas ajouté comme ca au tableau. elles veinnent d'un autre fichier a aprtir duquel sont importé les données

Si, si il en tiendra compte, en fait on cherche le numéro de ligne de la dernière celulle remplie grâce à:

Code:

---

Range("A65536").End(xlUp).Row

---

Le .row donne le numéro de ligne
Le Range("A65536").end(xlUp) remonte de la dernière celulle de la colonne A jusqu'à une celulle remplie, c'est le même principe que ton Selection.End(xldown)

D'ailleurs, on pourrait écrire:

Code:

---

ActiveSheet.PageSetup.PrintArea = ("A1:H" & Range("A1").End(xldown).Row)

---

A+

oui ca fonctionne. tu as bien raison. je ne comprend pas pourquoi cela n'avait pas fonctionné la premiere fois...

bref, merci beaucoup pour votre aide. ta ligne est simple conscise, et précise. elle me plait bcp.

++