Discussion :

[lindette]

Bonjour à tous

Je suis vraiment nulle, alors j'ai vraiment besoin de votre aide.
J'ai un programme sur excel pour taper les devis spécialement conçu pour mon collaborateur qui est aveugle.
Quand il a fini de taper son devis avec les touches crt+F cela transforme automatiquement le devis au format PDF et l'enregistre dans un dossier nommé "CLIENTS".
mais j'aimerais améliorer la mise en page. j'aimerais limité les lignes à 54 par pages et colonne F
,que les lignes de A47 à A54 soit toujours sur la page en bas et que si la ligne A46 est rempli changer de page.
Pensez-vous que cela soit possible?
merci d'avance à tous pour votre aide
Linda

[jfontaine]

Pour mettre un saut de page toutes les 46lignes ok.

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
 
Dim i As Long
Dim j As Long
 
i = 1
j = 1
 
'Boucle jusqu'a ligne vide
Do While Sheets("Feuil2").Range("A" & i).Value <> ""
    'si compteur =46 alors on saute de page
    If j = 46 Then
        Range("A" & i).Select
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        j = 0
    End If
 
    i = i + 1
    j = j + 1
Loop

Mais pour avoir les lignes 47 a 54 sur tous les bas de page, ca va être bien plus compliqué