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.

[aalex_38]

Excuse moi mais là j'ai rien compris

Je vais manger et je reviens peut-être qu'après un bon sandwitch ...

[aalex_38]

Donc ton problème se situe maintenant au niveau de la plage a selectionner.
Pour les tests, tu peux faire des essais en faisant

Code :

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

Maplage.select

pour voir si tu as bien ce que tu veux, de nombreux exemples à ce sujet existent dans ce forum, ici par exemple.

Si j'ai bien compris dans ton premier post tu disais que tu voulais selectionner
de "C1" à la dernière ligne remplie, jusqu'à la colonne "J" maintenant tu me dis :

sélectionne bien la sone voulu en largeur donc AJ:AY, mais selectione, même le case vide en hauteur

Peux-tu préciser quelle plage exactement tu veux selectionner.

[Didpa]

Cela fait du bien de manger .....

Dans le post 1 j'avais noté "C" a titre d'exemple, mais les vrai colonnes sont AJ:AY

merci

Cela fonctionne si je ne fusionne pas la case, AJ (qui comporte 4 lignes), et que je recopie la formule dans chaque ligne, afin d'avoir une valeur sur chaque ligne.

Pour que cela fonctionne ilfaudrait qu'il considère les formules comme une cellule vide

La formule qui se trouve dans la colonne "AJ" est celle çi : =SI(A2>0;A2;"")

donc la case est bien vide s'il n'y a rien en "A", mais j'ai quand la formule en 'AJ"

merci a toi

[aalex_38]

En effet je ne savais pas que tu avais des formules dans tes colonnes.

A part une boucle sur les cellules de la plage, là je ne sais pas comment faire.

J'y pense et reviens dès que j'ai une réponse.


Edit1 : sais-tu a quelle ligne la selection doit commencer, sur la ligne 1 ?

Edit2 : Et pourquoi ne pas trouver ta derniere ligne vide en partant de ta colonne A ?
Au lieu de

Code :

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

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

faire

Code :

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

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

Edit 3 : Sinon faire une boucle sur la colonne pour trouver la derniere ligne vide

Code :

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

1
2
3
4
5
6
7
8
9
i=1 'ligne
J = 3 'colonne
 
for i = 1 to 65536
  if cells(i,j).value = "" then
    exit for
  end if
 NumeroDerniereLigne = i
next