Discussion :

[Didpa]

Bonjour

Je voulais savoir si en VBA il etait possible, de definir une zone dimpression, qui se définit automatiquement selon des critères simples ??

Exemple :

Zone a imprimer C1:J30
Si ligne de C1 à C8 >0 Zone d'impression C1:J8

Colonne e reference "C"

Voilà, j'espère avoir été clair

Code :

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

1
2
3
4
Private sub imprime
Sheets("Planning").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End sub

Cordialement

[aalex_38]

Bonjour,

Vu avec l'enregistreur de macro :

Code :

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

ActiveSheet.PageSetup.PrintArea = "$C$1:$J$8"

Voila, j'espère que ça répond à ta question

Si tu veux trouver la première ligne dans une plage, il y a pleins d'exemples sur le forum.

[Godzestla]

Zone a imprimer C1:J30
Si ligne de C1 à C8 >0 Zone d'impression C1:J8

Colonne e reference "C"

Voilà, j'espère avoir été clair

Personnellement, je n'ai rien compris.

[Didpa]

Ce que je voulais dire c'est que la zone sera variable elle ne sera pas toujours compris dans la zone C1:J8

Au maximum elle sera dans cette zone çi :C1:J30
mais en attendant, je peux avoir qu'une seule ligne a imprimer la première fois, ensuite 5, puis 10 cela reste variable, maxi 30 lignes, mais si je dois imprimer les 30 lignes a chaque fois cela se fait sur 5 feuilles, c'est pour cela que j'aimerais que la zone d'impression se définisse toute seule, selon que la colonne de référence "C" soit remplie ou non, si il y a quelque chose dans la colonne "C" je selectionne toutes la lignes et ainsi de suite, si vide alors fin de la zone d'impression.

J'espère avoir été clair dans mes explications.

merci encore

[aalex_38]

D'après ce que je comprend :
Définir la zone d'impression de la premiere ligne C à la derniere remplie, jusqu'a la colonne J

Code :

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

1
2
3
4
5
6
7
8
Sub Macro2()
 
Dim maplage As Range
Set maplage = Range("C1" & ":" & "J" & Range("C65536").End(xlUp).Row)
 
ActiveSheet.PageSetup.PrintArea = Malage
 
End Sub

[Didpa]

Bon voilà, ce que cela donne avec ton code, mais cela ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Imprimer_Click()
Dim maplage As Range
Set maplage = Range("AJ1" & ":" & "AY" & Range("AJ65536").End(xlUp).Row)
 
ActiveSheet.PageSetup.PrintArea = Malage
Sheets("Elec").Select
Nouvelle_Piece.Hide
    ActiveWindow.SelectedSheets.PrintPreview 'pour voir si cela definis bien la zone
Nouvelle_Piece.Show
End Sub

[aalex_38]

désolé faute de frappe

Essai avec ça :

Code :

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

ActiveSheet.PageSetup.PrintArea = Maplage.Address

[Didpa]

Bien mieux, donc cela sélectionne bien la sone voulu en largeur donc AJ:AY, mais selectione, même le case vide en hauteur, soit 117 lignes ce qui est la grandeur maximum de mon tableau.

Est ce que le fait qu'il y est une formule dans la cellule "AJ", qui fait que cela ne fonctionne pas, certainement, alors si oui comment détourner le problème.

Sinon j'ai supprimer les formules des cellules AJ afin de voir le comportement de la formule, cela fonctionnerait, mais voilà c'est que AJ est une fusion de 4 ligne a chaque fois, et avec la formule en zone d'impression il ne definis qu'une seule ligne sur les 4 (la première), voilà

donc si tu as 2, 3 idées je suis preneur
et encore merci.