Discussion :

[marinef]

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 :

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

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..

[fring]

Bonjour,

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

[marinef]

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

[ilcocodrillo]

Comme le suggère fring,

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

puisque :

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.

[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???

[marinef]

Code :

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

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...

[fring]

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