selection automatique d'une zone d'impression

[Exterminator1er]

je voudrais selectionner automatiquement la zone d'impression d'une feuille contenant du texte.



merci pour vos reponse

 

[Jean-Marie]

Bonjour, Ex...1er

Regarde le fichier joint, je pense qu'il peut être utile.

@+Jean-Marie

PS. Va sur ce lien, pour ne pas être le dernier des Ex...

 

[@+Thierry]

Héhéhé

Bonjour Jean Marie et Ex--1er et le Forum...

Qu'est-ce qu'elle est utile cette charte... Dommage cependant qui si peu ne la consulte avant de faire un post...

Bonne Journée à tous
@+Thierry

 

[Exterminator1er]

bonjour,

je vous remercie pour les réponses à mon sujet mais, cela n'apporte pas la réponse recherchée.

En effet, le probléme est le suivant :

j'utilise une application qui crée un fichier excel via des liens DDE

en suite je veut imprimer le fichier excel

hors quand je fait appercu avant impression il me selectionne toute la feuille comme zone d'impression.

mon problème est que je ne veut que le texte renseigné comme zone d'impression et pas l'ensemble de la feuille

cordialement

willy

 

[Pierre]

Ex,
As-tu essayé d'aller chercher le bouton "imprimer zone en cours". Tu peux y accéder par
Affichage - Barre d'outils - Personnaliser. Sous l'onglet "Commande" sous "Edition" tout en bas tu as "sélectionner cette zone".
Cette commande sélectionne tout ce qui est contenu entre des espaces vides. Peut-être une solution pour toi!

Bonne soirée Bon WE

Pierre.

 

[denjo]

bonjour à tous

Willy voici une macro pour determiner la zone d'impression

Private Sub CmdCoctail_Click()
Worksheets("feuil2").Select
'tu selectionne les colonnes et les lignes que tu as besoin
Range("a8:a1000,c8:c1000,f8:f1000,j8:u1000").Select
Range("a8").Activate
Selection.Copy
Sheets("tempRp").Select
Range("a8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Selection.Clear
End Sub


@+

 

[Exterminator1er]

Salut et merci pour vos réponses.

dsl mais rien ne correspond à ma demande en effet :

1er : je ne sais jamais quelle sont les cellules à selectionner (c'est générer aléatoirement, je sais juste que ca commence a la cellule A1)

2eme : je ne veut pas faire de selection manuelle faut que cela ca automatisé donc pas de definir zone d'impression manuel


je vous remercie pour vos réponses futures

 

[Jean-Marie]

Bonjour, Ex...1er

Dans ma propostion, gère le aléatoire dans la fonction de la définition du nom Zone_d_impression.

=Decaler(A1;;Alea1;Alea2)

Alea1 nombre de lignes de la plage,
Alea2 nombre de colonnes de la plage.

@+Jean-Marie

 

[Exterminator1er]

bonjour,

j'ai bien vu ta solution mais cela veut dire qu'il faut inserré une fonction dans la feuille donc c'est pas trop ce que je recherche.

y a t-il pas moyen de faire le meme principe sous vba ?

cordialement

 

[A_binouze_drinker_among_others]

je ne suis pas sûr de connaître la syntaxe par coeur mais j'essaye
Sub j()
ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address
End Sub
bien sûr la méthode currentregion n'est pas la meilleure et donc pas infaillible, mais il y a d'autres méthodes

 

[A_binouze_drinker_among_others]

je me sers également de plages nommées dynamiques.
je pense que l'on peut modifier la formule de jean-marie légèrement en intégrant ses deux bouts de formule (peut-être que l'une d'elles soit matricielle)

=DECALER(Feuil1!$A$1:$D$1;;;GRANDE.VALEUR((ESTVIDE(Feuil1!$A$1:$D$65535)=FAUX)*(LIGNE(Feuil1!$A$1:$A$65535));1))