Numéro de pages variables

Version imprimable

Suite à la discussion sur limpression des cellules, En fait à présent je voudrais ajouter des numéros de pages.
Pour cela j'ai ecris ce code:

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
Sub Imprimer_BeforeDoubleClick()
'Pour imprimer les feuilles de l'annexe
 
    derlig = Range("C65536").End(xlUp).Row
 
    If 8 < derlig < 38 Then
    Sheets("Canevas").Cells(4, 14) = "1/2"
    Sheets("Annexe").Cells(9, 6) = "2/2"
End If
    If 37 < derlig < 67 Then
    Sheets("Canevas").Cells(4, 14) = "1/3"
    Sheets("Annexe").Cells(9, 6) = "2/3"
    Sheets("Annexe").Cells(38, 6) = "3/3"
End If
 
    If 66 < derlig < 96 Then
    Sheets("Canevas").Cells(4, 14) = "1/4"
    Sheets("Annexe").Cells(9, 6) = "2/4"
    Sheets("Annexe").Cells(38, 6) = "3/4"
    Sheets("Annexe").Cells(67, 6) = "4/4"
End If
 
    If 95 < derlig < 125 Then
    Sheets("Canevas").Cells(4, 14) = "1/5"
    Sheets("Annexe").Cells(9, 6) = "2/5"
    Sheets("Annexe").Cells(38, 6) = "3/5"
    Sheets("Annexe").Cells(67, 6) = "4/5"
    Sheets("Annexe").Cells(96, 6) = "5/5"
End If
 
    ActiveSheet.PageSetup.PrintArea = "$A$9:$G$" & derlig
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveSheet.PrintOut
 
End Sub

Cependant la meme si la derniere ligne est entre 9 et 38 alors ça m'ecrit 1/5; 2/5; 3/5... et ce sous forme de date!!

J'ai reussi à indiquer les pages sous format texte mais j'ai toujours le meme pb pour ce ki concerne le reste..

31/07/2008, 15h17
fring

Bonjour,

Et pourquoi ne pas indiquer le numéro de page dans l'entête ou le pied de page ?
31/07/2008, 15h20
marinef

Pages

Car je veux mettre le format 1/2 par exemple et non juste 1
31/07/2008, 15h37
ilcocodrillo

Comme le suggère fring,

Citation:

Et pourquoi ne pas indiquer le numéro de page dans l'entête ou le pied de page ?

puisque :

Citation:

je veux mettre le format 1/2 par exemple et non juste 1

et que c'est tout à fait faisable dans les entête pied de page... c'est même précablé je crois.
31/07/2008, 15h38
marinef

ben je n'y arrive pas...

et en plus en utilisant les pied de page on ne peux pas comprendre des feuilles qui ne font pas partie de l'activesheet utilisé.

En fait ça fait comme une boucle, ça ecrit d'abord 1/2 et 2/2, puis 1/3 et 2/3 et 3/3 puis 1/4......

qqun pourrait il m'aider???

pages

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Sub Pages()
 
i = 8
Do
  i = i + 1
    derlig = Cells(i, 3)
Loop Until derlig = ""
 
    If 8 < derlig < 38 Then
    Sheets("Canevas").Cells(4, 14) = "1/2"
    Sheets("Annexe").Cells(9, 6) = "2/2"
    Else
 
    If 37 < derlig < 67 Then
    Sheets("Canevas").Cells(4, 14) = "1/3"
    Sheets("Annexe").Cells(9, 6) = "2/3"
    Sheets("Annexe").Cells(38, 6) = "3/3"
    Else
 
    If 66 < derlig < 96 Then
    Sheets("Canevas").Cells(4, 14) = "1/4"
    Sheets("Annexe").Cells(9, 6) = "2/4"
    Sheets("Annexe").Cells(38, 6) = "3/4"
    Sheets("Annexe").Cells(67, 6) = "4/4"
    Else
 
    If 95 < derlig < 125 Then
    Sheets("Canevas").Cells(4, 14) = "1/5"
    Sheets("Annexe").Cells(9, 6) = "2/5"
    Sheets("Annexe").Cells(38, 6) = "3/5"
    Sheets("Annexe").Cells(67, 6) = "4/5"
    Sheets("Annexe").Cells(96, 6) = "5/5"
    Else
 
    If 124 < derlig < 154 Then
    Sheets("Canevas").Cells(4, 14) = "1/6"
    Sheets("Annexe").Cells(9, 6) = "2/6"
    Sheets("Annexe").Cells(38, 6) = "3/6"
    Sheets("Annexe").Cells(67, 6) = "4/6"
    Sheets("Annexe").Cells(96, 6) = "5/6"
    Sheets("Annexe").Cells(125, 6) = "6/6"
    Else
 
    If 153 < derlig < 183 Then
    Sheets("Canevas").Cells(4, 14) = "1/7"
    Sheets("Annexe").Cells(9, 6) = "2/7"
    Sheets("Annexe").Cells(38, 6) = "3/7"
    Sheets("Annexe").Cells(67, 6) = "4/7"
    Sheets("Annexe").Cells(96, 6) = "5/7"
    Sheets("Annexe").Cells(125, 6) = "6/7"
    Sheets("Annexe").Cells(154, 6) = "7/7"
    Else
 
    If 182 < derlig < 212 Then
    Sheets("Canevas").Cells(4, 14) = "1/8"
    Sheets("Annexe").Cells(9, 6) = "2/8"
    Sheets("Annexe").Cells(38, 6) = "3/8"
    Sheets("Annexe").Cells(67, 6) = "4/8"
    Sheets("Annexe").Cells(96, 6) = "5/8"
    Sheets("Annexe").Cells(125, 6) = "6/8"
    Sheets("Annexe").Cells(154, 6) = "7/8"
    Sheets("Annexe").Cells(183, 6) = "8/8"
    Else
 
    If 211 < derlig < 241 Then
    Sheets("Canevas").Cells(4, 14) = "1/9"
    Sheets("Annexe").Cells(9, 6) = "2/9"
    Sheets("Annexe").Cells(38, 6) = "3/9"
    Sheets("Annexe").Cells(67, 6) = "4/9"
    Sheets("Annexe").Cells(96, 6) = "5/9"
    Sheets("Annexe").Cells(125, 6) = "6/9"
    Sheets("Annexe").Cells(154, 6) = "7/9"
    Sheets("Annexe").Cells(183, 6) = "8/9"
    Sheets("Annexe").Cells(212, 6) = "9/9"
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
 
End Sub

Si j'ecris ça ça s'arrete à 2/2...

J'ai obtenu ceci en enregistrant une macro. Tu l'adaptes à 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
Sub MiseEnPageAvantImpression()
'
' Macro enregistrée et modifiée le 2008-07-31 par zaza
'
 
'
    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    Sheets("Feuil1").Activate
    With ActiveSheet.PageSetup
        .RightFooter = "&P / &N"
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Hello zaza, marinef a demandé de placer deux plages de données numérotées par feuille imprimée. Ton code fait ça ? ;)

@marinef
Déjà, si tu simplifiais tout ça...

Pour Derlig, je n'ai pas compris mais toujours est-il que pour le reste, tu peux faire ça

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
    Select Case Derlig
        Case 9 To 37
           Sheets("Canevas").Cells(4, 14) = "1/2"
           Sheets("Annexe").Cells(9, 6) = "2/2"
        Case 38 To 66
           Sheets("Canevas").Cells(4, 14) = "1/3"
           Sheets("Annexe").Cells(9, 6) = "2/3"
           Sheets("Annexe").Cells(38, 6) = "3/3"
        Case 67 To 95
           Sheets("Canevas").Cells(4, 14) = "1/4"
           Sheets("Annexe").Cells(9, 6) = "2/4"
           Sheets("Annexe").Cells(38, 6) = "3/4"
           Sheets("Annexe").Cells(67, 6) = "4/4"
        Case 96 To 124
           Sheets("Canevas").Cells(4, 14) = "1/5"
           Sheets("Annexe").Cells(9, 6) = "2/5"
           Sheets("Annexe").Cells(38, 6) = "3/5"
           Sheets("Annexe").Cells(67, 6) = "4/5"
           Sheets("Annexe").Cells(96, 6) = "5/5"
        Case 125 To 153
           Sheets("Canevas").Cells(4, 14) = "1/6"
           Sheets("Annexe").Cells(9, 6) = "2/6"
           Sheets("Annexe").Cells(38, 6) = "3/6"
           Sheets("Annexe").Cells(67, 6) = "4/6"
           Sheets("Annexe").Cells(96, 6) = "5/6"
           Sheets("Annexe").Cells(125, 6) = "6/6"
        Case 154 To 182
           Sheets("Canevas").Cells(4, 14) = "1/7"
           Sheets("Annexe").Cells(9, 6) = "2/7"
           Sheets("Annexe").Cells(38, 6) = "3/7"
           Sheets("Annexe").Cells(67, 6) = "4/7"
           Sheets("Annexe").Cells(96, 6) = "5/7"
           Sheets("Annexe").Cells(125, 6) = "6/7"
           Sheets("Annexe").Cells(154, 6) = "7/7"
        Case 183 To 211
           Sheets("Canevas").Cells(4, 14) = "1/8"
           Sheets("Annexe").Cells(9, 6) = "2/8"
           Sheets("Annexe").Cells(38, 6) = "3/8"
           Sheets("Annexe").Cells(67, 6) = "4/8"
           Sheets("Annexe").Cells(96, 6) = "5/8"
           Sheets("Annexe").Cells(125, 6) = "6/8"
           Sheets("Annexe").Cells(154, 6) = "7/8"
           Sheets("Annexe").Cells(183, 6) = "8/8"
        Case 212 To 240
           Sheets("Canevas").Cells(4, 14) = "1/9"
           Sheets("Annexe").Cells(9, 6) = "2/9"
           Sheets("Annexe").Cells(38, 6) = "3/9"
           Sheets("Annexe").Cells(67, 6) = "4/9"
           Sheets("Annexe").Cells(96, 6) = "5/9"
           Sheets("Annexe").Cells(125, 6) = "6/9"
           Sheets("Annexe").Cells(154, 6) = "7/9"
           Sheets("Annexe").Cells(183, 6) = "8/9"
           Sheets("Annexe").Cells(212, 6) = "9/9"
        Case else
           Msgbox DerLig & " : Nombre de lignes imprévu !"
    End Select

31/07/2008, 17h03
fring

Citation:

Envoyé par marinef

et en plus en utilisant les pied de page on ne peux pas comprendre des feuilles qui ne font pas partie de l'activesheet utilisé.

bin si...

je ne comprend pas pourquoi la fabrication de cette usine à gaz alors qu'il suffit de mettre &[Page]/&[Pages] dans l'entête ou le pied de page et la numérotation se fera automatiquement que tu aies 2, 17, 29 ou 145 feuilles
31/07/2008, 23h45
zazaraignée

Citation:

Envoyé par ouskel'

Hello zaza, marinef a demandé de placer deux plages de données numérotées par feuille imprimée. Ton code fait ça ? ;)

:aie: J'ai encore lu trop vite... Moi qui étais toute heureuse d'être contente...
01/08/2008, 08h26
marinef

Merci Ouskel'n'or :)

Merci Ouskel'n'or :) il n'y a que toi qui rpeond bien à mes attentes!!
T'assures merci encore