Discussion :

[staouni]

bonjour,
j'ai un fichier excel contenant un ensemble de pages et j'ai fait une macro pour faire des modifications de la mise en forme.
Le problème c'est que je voudrais faire les modifications seulement pour certaines pages.
j'ai fait une interface où j'indique les numéros de pages à modifier mais comment indiquer le numéro de page avec vba?
y'a t-il une syntaxe pour le numéro de page?

[ouskel'n'or]

Peut-être un élément de réponse dans la FAQ, au chapitre "Comment ajouter un numéro de page à l'impression ?"

[fring]

Bonjour tlm,

Ce que tu proposes Ousk est comment insérer un numéro de page de l'entête ou le pied de page, je ne pense pas que ça va dépanner notre ami

Avant d'aller plus loin, je voudrais m'assurer que l'on parle bien de la même chose. Staouni, qu'entends-tu par n° de page ? Le numéro des différentes pages sur une même feuille (onglet) ou le numéro des différentes feuilles ?

Si c'est le numéro des pages d'une même feuille, pages séparées par des sauts de page, il va falloir bricoler une petite usine à gaz et jongler avec les HPageBreak

[staouni]

oui exacement, je parle des numéros de page d'une même feuille

[ouskel'n'or]

Je viens de tester et si j'ai quatre pages sur une feuille de calculs, j'ai bien le N° incrémenté pour chaque page.
Quel est le problème ?

[ouskel'n'or]

Sur une observation très judicieuse de fring, je crois comprendre ton problème.
Si tes pages se situent n'importe où dans x feuilles... alors tu peux faire ça en adaptant les plages et le nom des feuilles.

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 Test1()
Dim feuil As Variant, FL1 As Worksheet
Dim Plage1, Plage2, i As Byte, j As Byte, k As Byte
Application.ScreenUpdating = False
    feuil = Array("feuil1", "feuil2")
    'Première feuille
    Plage1 = Array("$A$1:H30", "$C$32:$G64", "$E$68:$L$85")
    'seconde feuille
    Plage2 = Array("$B$10:J40", "$A$44:$I74", "$A$78:$L$97")
    Tablo = Array(Plage1, Plage2)
    'k = 0
    For i = 0 To UBound(Plage1) - 1
        Set FL1 = Worksheets(feuil(k))
        With FL1
            For j = 0 To UBound(Plage2)
                NoPage = NoPage + 1
                'MsgBox "Plage de la page " & NoPage & " : " & Tablo(i)(j) 'juste pour voir
                With .PageSetup
                    .PrintArea = Tablo(i)(j)
                    .CenterHorizontally = True
                    .CenterVertically = True
                    .FitToPagesWide = 1
                    .FitToPagesTall = 1
                    .Orientation = xlPortrait ' ou xlLandscape (paysage)
                    .CenterHeader = "Page " & CStr(NoPage)
                End With
            .PrintPreview 'juste pour vérifier la validité du code
            '.PrintOut 'valider cette ligne pour éditer les pages
            Next
        End With
        Set FL1 = Nothing
        k = k + 1
    Next
Application.ScreenUpdating = True
End Sub

Et j'ai testé

Une seconde solution permettant de sélectionner la feuille et les plages de cellules de chaque page à éditer

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
Sub Test2()
Dim feuil As Variant, FL1 As Worksheet
Dim Plage As Range, k As Byte, NoPage
    On Error Resume Next
    NoPage = 1
    Set Plage = Application.InputBox("Sélectionner la plage à éditer, page " & vbCr _
                & NoPage & vbCr & "Pour quitter sans sélection, sélectionner ANNULER", _
                "SELECTION D'UNE PLAGE", Type:=8)
    Do While Not Plage Is Nothing
        Application.ScreenUpdating = False
        Set FL1 = ActiveSheet
        With FL1
            With .PageSetup
                .PrintArea = Plage.Address
                .CenterHorizontally = True
                .CenterVertically = True
                .FitToPagesWide = 1
                .FitToPagesTall = 1
                .Orientation = xlPortrait ' ou xlLandscape (paysage)
                .CenterHeader = "Page " & CStr(NoPage)
            End With
            .PrintPreview 'juste pour vérifier la validité du code
            '.PrintOut 'valider cette ligne pour éditer les pages
        End With
        Set FL1 = Nothing
        Set Plage = Nothing
        NoPage = NoPage + 1
        Application.ScreenUpdating = True
        Set Plage = Application.InputBox("Sélectionner la plage à éditer, page " & vbCr _
                    & NoPage & vbCr & "Pour quitter sans sélection, sélectionner ANNULER", _
                    "SELECTION D'UNE PLAGE", Type:=8)
    Loop
    On Error GoTo 0
End Sub