PrintArea en VBA depuis ActiveCell

[deudecos]

Bonjour a toutes et a tous.

La recherche n'ayant pas aboutie, je me permet de poser la question...

J'ai une feuille nommee "Base", sur laquelle j'ai 31 tableaux identiques, Chaque mois quelques un de ces tableaux sont effectivement remplis, et je voudrais les imprimer, seulement les remplis bien entendu.
Pour ce qui est de rechercher le tableau rempli, aucun probleme, pour le selectionner non plus, mais quand il s'agit de delimiter ses contours avec la fonction "PrintArea"... la je cale...
A savoir que je me sers du code suivant pour la selection...

Dim L, i As Integer
L = Sheets("Base").Range("G65536").End(xlUp).Row
For i = 1 To L
If Sheets("Base").Range("G" & i) = "Data" _
Or Sheets("Base").Range("G" & i) = "Zi" _
Or Sheets("Base").Range("G" & i) = "Simbol cont corespondent" _
Or Sheets("Base").Range("G" & i) = "" Then GoTo C:

Sheets("Base").Select
Range("G" & i).Select
If ActiveCell.Offset(4, -3) = "" Then GoTo C
Range(ActiveCell.Offset(-3, -6), ActiveCell.Offset(40, 2)).Select
ActiveSheet.PageSetup.PrintArea = ????

Exit Sub
C:

Next

Si jamais quelqu'un sait... je suis preneur !

Merci et bonne journee

Olivier

 

[PascalXLD]

Re : PrintArea en VBA depuis ActiveCell

Bonjour

Si tu veux imprimer la partie selectionnée peut-être juste

ActiveSheet.PageSetup.PrintArea = Selection.Address

PS : Sinon c'est la forme vous 2 en Roumanie ??

 

[deudecos]

Re : PrintArea en VBA depuis ActiveCell

Salut Pascal

Je pense qu'il va falloir que je trouve une pharmacie pour m'acheter un nouveau cerveau...
J'ai essaye avec Selected.Address, mais je n'ai jamais pense a Selection.Address ! C'est fort non ? En tout cas,merci du coup de main.

Sinon, moi ca va en Roumanie, par contre Annie est repartie au Quebec et je n'ai pas eu la force de la suivre, mais aux dernieres nouvelles ca va elle aussi.

Bonne journee

Olivier

 

[johnwoo]

Re : PrintArea en VBA depuis ActiveCell

Génial! Merci pour la réponse 🙂