blocs non sécables à l'impression

Version imprimable

11/05/2010, 11h31
fangio

blocs non sécables à l'impression

Bonjour,
Je suis stagiaire et mon job est de faire de l'automatisation excel avec plein de macro ...
Voilà, je vous plante le décor:
- J'ai ma feuille excel qui fait 700 lignes
- Ma feuille est composée d'une grande zone en-tête et de nombreux blocs d'informations.
- Pour qu'un "bloc" s'affiche, il doit répondre à de nombreuses conditions
- Les autres blocs sont masqués.
- Les blocs font tous une 15aine de lignes

Mon problème est le suivant:
Lors de l'impression je ne veux pas qu'un bloc commence sur une page est finisse sur l'autre, je veux qu'excel descende le bloc entier sur la feuille suivante quitte à laisser une partie blanche sur la feuille précédente.

J'espère que je suis assez clair,
Dans l'attente de votre réponse,
Cordialement,
Fangio
:merci:
12/05/2010, 08h24
Gorfael

Salut fangio et le forum
Clair... mais pas précis

Citation:

Mon problème est le suivant:
Lors de l'impression je ne veux pas qu'un bloc commence sur une page est finisse sur l'autre, je veux qu'excel descende le bloc entier sur la feuille suivante quitte à laisser une partie blanche sur la feuille précédente.

Moi, ça me donne une réponse évidente : un saut de page manuel à la fin de chaque bloc :mrgreen:.

On ne peut utiliser un comptage de lignes, il manque trop d'éléments : les lignes sont-elles toutes de la même hauteur ? le nombre de lignes par page ? Les blocs ont-ils tous le même nombre de lignes ("Quinzaine" n'est pas un chiffre précis : de 14 à 16 rentre dans ce terme) ? Comment détermine-t-on un bloc ?

Une fois les blocs visibles, il suffit de vérifier l'absence de saut de page automatique dans les blocs, sinon, de faire un saut de page manuel avant le bloc, après avoir ajusté le zoom d'impression, si nécessaire, de sorte que le bloc le plus long tienne sur une page.
A+
12/05/2010, 08h38
EmmanuelleC

le probleme, c'est que si tu mets un saut apres chaque bloc, si avant, tu pouvait mettre 3 bloc par page par exemple, tu n'en auras plus qu'un. Augmentant beaucoup le nombre de page

Si tu as une séparation de bloc claire qui peut etre captée en VBA (si chaque bloc est suivit de lignes blanches par exemple, ou si chaque bloc se termine par Total dans une colonne), alors tu peux bidouiler un compteur et inserer un saut de page apres le dernier bloc complet, mais ca va demander de ne pas changer la mise en page (si tu as par exemple 50 lignes par page, que tu fais le vba autour de ca, et puis que tu passes de portrait a pyasage, il faudra adapter en fonction du nouveau nombre de ligne)
12/05/2010, 10h23
fangio

Bonjour,

Pas bête l'idée des saut de pages (je ne connaissais pas :?)!
C'est donc la première proposition (de Gorfael) que j'ai testé malgrès avoir lu la réponse de EmmanuelleC. Et, effectivement elle a raison:ccool:. Excel ce moque de savoir si les lignes avant est après le saut de page inséré manuellement sont masqué ou pas... :( Ce qui pose des problèmes (le nombre de page que cela produit dont parlait manu(j'abrège ton nom, ne m'en veut pas ;) )).

Ma feuille est ainsi contruite, un certain nombre de lignes "en-tête", un groupe de lignes, ensuite tous mes bloc.
Un bloc c'est :
- 2 lignes vide (pour la présentation, il faut aéré :) )
- 4 lignes de présentation du bloc en quelque sorte (avec des cellules fusionnées par endroit)
- 3 lignes correspondant à un premier trimestre (avec des cellules fusionnées par endroit)
- 3 lignes correspondant à un second trimestre (avec des cellules fusionnées par endroit)
- 3 lignes correspondant à un troisième trimestre (avec des cellules fusionnées par endroit)

Ce que je n'ai pas encore évoqué, c'est qu'un petit UserForm permet de cacher les trimestres non désirés à l'affichage par l'utilisateur.

Alors, je voudrais un affichage particulier lorsque:
-tout les blocs qui répondent à mes conditions sont complet
-un trimestre est caché (T1, T2 ou T3)
-deux trimestres sont cachés (T1&2, T1&3 ou T2&3)
-trois trimestres sont cachés (T1&2&3)

Alors j'ai une idée mais por cela:
Et il possible que excel ne prenne en compte que les lignes affichées?

Si oui, il faut, qu'excel voie les bonnes ligne est qu'il insert des sauts de pages toutes le X lignes (ensuite je fait des paramètres d'affichage conditionnels si je suis dans tel ou tel cas)...
Voilà, je requière votre aide! ( Gorfael & ManuC & tout ceux qui sont qui le peuvent):)

Merci d'avance,
Fangio

:lahola:
12/05/2010, 12h30
EmmanuelleC
mmm, alors, ca serait pour moi

je compterais combien j'ai de ligne sur ma page (avec un truc du genre)

Code:

derlgn = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row

j'enleverai tout les saut de pages (pour éviter de cumuler ceux fait par la macro précédente et ceux qu'on va faire) (avec un code sur base de ca )

Code:

ActiveSheet.ResetAllPageBreaks

Ensuite, je ferai une boucle (du genre

Code:

for i = nombre to derligne

et a la place de nombre, si le début du document est formaté autrement, tu met le début du premier bloc. S'il n'y a pas de formatage différent)

Je ferait un if ou je vérifie si la ligne est cachée (un code du genre)
Code:

1 2 if Rows(i).Hidden then end if
Si oui, je ne fais rien, sinon, j'incrémente de 1 un compteur (comme ca, on ne compte que les lignes visible)

Je vérifie aussi si je suis au début d'un bloc avec un if (pour ca je vérifie)

Code:

if (cells(i -2,x) = cells(i-1 ,x)) and (cells(i-1 ,x) ="") then

Si c'est le cas, je met i dans une variable (pour savoir ou a commencé le dernier bloc)

Et ensuite, je referais un if pour tester si mon compteur est égal a un certain nombre (ton nombre de ligne max par page) et si c'est le ca, j'insere un page break au dessus de la ligne qu'on a stocké dans la variable comme étant le début du dernier bloc

Code:

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(variable)

voila, essaye avec ca et s'il y a un probleme, dis nous ou ca bloque
18/05/2010, 11h57
fangio

Bonjour,
Je dois avouer que j'ai décroché au moment où tu regarde si tu es au début du bloc (ou pas). :?
Peux-tu développer à partir de là?
Merciii
18/05/2010, 13h20
EmmanuelleC

Donc tu as un compteur qui parcours chaque ligne, les unes apres les autres
A chaque nouvelle ligne, je vérifie deux choses
1) si la ligne est cachée
2) si je suis au début d'un bloc

Pour vérifier si je suis au début d'un bloc, je regarde si la cellule au dessus (i-1) et la cellule encore au dessus (i-2) sont vides (cells(i-1,1) = cells(i-2,1) ="") vu que tu nous a dis qu'un bloc est séparé d'un autre bloc par deux lignes vides

si je suis au début d'un bloc, je note dans une variable le début pour que quand j'arrive a la fin de ma page, je puisse mettre le saut juste avant le dernier bloc entamé

imaginons que la page se finisse a la ligne 20 et que le dernier bloc commencent a la ligne 16.
Je regarde pour la ligne 14, je ne suis pas au bout de la page et la ligne 12 et 13 ne sont pas vides, je passe au
suivant.
Je regarde pour la ligne 15, je ne suis pas au bout de la page et la ligne 13 et 14 ne sont pas vides, je passe au suivant.
Je regarde pour la ligne 16, je ne suis pas au bout de la page et la ligne 14 et 15 sont vides, tadaaaam. Je retiens dans une variable que le dernier bloc commence en 16
Je regarde pour la ligne 17, je ne suis pas au bout de la page et la ligne 15 et 16 ne sont pas vides, je passe au suivant.
Je regarde pour la ligne 18, je ne suis pas au bout de la page et la ligne 16 et 17 ne sont pas vides, je passe au suivant.
Je regarde pour la ligne 19, je ne suis pas au bout de la page et la ligne 17 et 18 ne sont pas vides, je passe au suivant.
Je regarde pour la ligne 20, je suis au bout de la page tadaaaam et la ligne 18 et 19 ne sont pas vides. J'insere un saut de page au dessus de la ligne que j'ai stocké dans ma variable (16 dans ce cas ci)

Bonjour,

J'ai eu cette problématique sur un vieux projet où le nombres de modules (groupes de lignes encadrés, dans le projet ; rien à voir avec la définition vba) était variable.
Par construction, ils étaient séparés par une ligne vierge.

Pour l'impression, j'employais le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Impress() Dim Hop As Range 'emplacement des sauts de page auto '.../... Sheets(2).Activate ActiveWindow.View = xlPageBreakPreview ' Il est impératif que ce mode soit activé pour le contrôle des sauts I = Sheets(2).HPageBreaks.Count For J = 1 To I K = 0 'Localise les sauts de pages auto, si ne se situe pas à une ligne vierge, K se décale et insère un forcé ' au bon endroit Set Hop = Sheets(2).HPageBreaks(J).Location.Offset(0, 1) While Hop.Offset(-K, 0) <> "" K = K + 1 Wend Sheets(2).HPageBreaks.Add Before:=Hop.Offset(-K, 0) ' ajout Next J ActiveWindow.View = xlNormalView 'rétablit le mode normal Worksheets(2).PageSetup.LeftHeader = Range("Immeuble") End Sub
je pense que l'approche est... proche.

cordialement,

Didier