Discussion :

[gaihdriah]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Minick]

Salut,

Comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = Selection.Address

++
Minick

[gaihdriah]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci pour tout

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne continuation

[gaihdriah]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

2ème solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Fvandermeulen]

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

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

End Sub

[DeaD78]

Bonjour,

Le plus simplement possible, tu as :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fvandermeulen]

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