condition sur mise en page en VBA

Version imprimable

17/12/2010, 11h14
gillou13

condition sur mise en page en VBA
Bonjour à tous,

le context :
via une application tiers (lotus notes pour ne pas le nommer) je pilote excel pour créer des des tableaux croisé dynamique dans un fichier xls.

j'aimerai modifier 'dynamiquement' via une macro la mise en page de ma feuille nouvellement créé pour que les tableaux ne soit plus sur plusieurs pages (horizontal et vertical).

je connais déjà les fonctions permettant de manipuler la mise ne page.
ex :

Code :
Code:

1 2 3 4 5 6 7 With ActiveSheet.PageSetup .Orientation = xlLandscape .Zoom = 90 End With ... ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
mais je ne trouve pas comment 'tester' la mise en page actuel pour faire les conditions suivante :

si le mise en pages horizontale de la feuille actuel est > 2 feuilles alors
diminuer le zoom.

Si un tableau est coupé sur plusieurs page verticalement alors
insérer un saut de page avant le tableau

Merci d'avance pour votre aide.
17/12/2010, 13h33
Didier Gonard

Bonour,

sous Excel, fait les manips avec l'enregistreur de macros, il en met une tartine, mais donne la trace de tous les mots clefs nécessaires ;)

cordialement,

Didier
17/12/2010, 16h05
gillou13

bonjour Ormonth,

j'ai du mal expliquer mon problème. j'ai déjà utilisé l'éditeur de macro d'excel,
il m'a bien indiqué comment modifier la mise en page de ma feuille.

Mais je n'arrive pas a faire le lien entre le 'contenant' (les pages d'impression) et le contenu (les cellules).

en gros j'aimerai réalisé une fonction de ce type :
function QuelPageVertical(feuil as Sheets, ligne as integer) as integer
qui me renvoi le numéro de la page où sera imprimé la ligne en référence.
(bien sur si c'est possible)

Ce qui me permettra de réaliser ce type d'algo :
si (QuelPageVertical(feuil, 1er ligne de TCD) <> QuelPageVertical(feuil, dernière ligne de TCD) alors
insérer un saut de page avant TCD.

pour le moment j'ai cherché dans les propriétés de "Worksheet.PageSetup" mais je n'ai pas trouvé se qui peu m'aider à réaliser cette fonction.

voila j'espère mettre mieux exprimé.

Bonsoir,

Deux petites pistes, la première décrémente le zoom pour qu'il ne reste que deux pages à imprimer, la seconde t'indique si au dessus ou à gauche de la cellule de référence se trouve un saut de page. A adapter selon tes besoins :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
 
Sub Ajuster()
 
    Dim Fe As Worksheet
    Dim I As Integer
 
    'I est décrémenté pour ajuster
    'le zoom sur deux pages
    I = 100
 
    Set Fe = Worksheets("Feuil1")
 
    'boucle jusqu'à ce qu'il ne reste
    'plus que deux feuilles à imprimer
    Do Until Fe.PageSetup.Pages.Count = 2
 
        'évite d'aller plus bas
        If I < 10 Then Exit Do
 
        Fe.PageSetup.Zoom = I
        I = I - 1
 
    Loop
 
    MsgBox "Le zoom est de " & I & " %"
 
End Sub
 
Sub ChercherSaut()
 
    Dim Fe As Worksheet
    Dim Saut As Integer
    Dim I As Integer
    Dim Cel As Range
 
 
    Set Fe = Worksheets("Feuil1")
 
    'pour le test, le saut se trouvant sur la cellule
    Set Cel = Fe.[A34]
 
    'pour les sauts de pages horizontaux
    Saut = Fe.HPageBreaks.Count
 
    For I = 1 To Saut
 
        If Fe.HPageBreaks(I).Location.Address = Cel.Address Then
 
            'ici ce que tu veux faire...
 
        End If
 
    Next I
 
    'pour les sauts de pages horizontaux
    Saut = Fe.VPageBreaks.Count
 
    For I = 1 To Saut
 
        If Fe.VPageBreaks(I).Location.Address = Cel.Address Then
 
            'ici ce que tu veux faire...
 
        End If
 
    Next I
 
End Sub

Hervé.

20/12/2010, 10h46
gillou13

Merci Theze,

Je crois que je vais pouvoir m'en sortir avec ces infos.