Discussion :

[midge]

bonjour au forum,
j'ai besoin d'un coup de poucepour terminer mon premier projet de macro ; au milieu (voir commentaire majuscule) , j'aimerai en fonction du changement des 2 premiers caractères faire insérer un saut de page.
50AA
50AB
50AC
-> insertion de saut de page car valeur 2 premiers caractères change
51AA
51BB
Ensuite sélectionner l'imprimante par défaut sans passer par une boîte de dialogue (car définie sur 1 gestionnaire d'imprimante lors de la connexion).
J'ai beaucoup lu sur le forum (), mais je ne comprends pas forcément tout ; pour mon problème, peut-être qu'une boucle ou un compteur ferait l'affaire ?
ci-joint mon code actuel, merci par avance pour toute aide
_____________________________ Cdlmt

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
 
Sub Miseenforme()
 
With ActiveSheet.PageSetup                          'changement des marges, forme paysage et répétition en-tête
        .PrintTitleRows = "$1:$1"
        .LeftMargin = Application.InchesToPoints(0.275590551181102)
        .RightMargin = Application.InchesToPoints(0.31496062992126)
        .TopMargin = Application.InchesToPoints(0.393700787401575)
        .BottomMargin = Application.InchesToPoints(0.47244094488189)
        .HeaderMargin = Application.InchesToPoints(0.236220472440945)
        .FooterMargin = Application.InchesToPoints(0.275590551181102)
        .Orientation = xlLandscape
        .Zoom = 75
End With
 
        With Cells.Select               'sélection de toutes les cellules et tri colonne A ordre croissant
                Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                DataOption1:=xlSortNormal
        End With
 
'A CHAQUE CHANGEMENT DE VALEUR INSERER UN SAUT DE PAGE
'SELECTIONNER L'IMPRIMANTE PAR DEFAUT
 
ActiveSheet.PrintOut                                            'imprimer les pages de la feuille
Application.ScreenUpdating = True
 
ActiveWorkbook.Close False                              'fermer le classeur sans enregistrer
 
End Sub

[kiki29]

Salut,juste un conseil pour accélérer la mise en page voir http://www.developpez.net/forums/d55...ge-macros-xl4/

[midge]

Merci kiki29 pour le tuyau très intéressant, ce fichier par contre fait au max 60 70 lignes donc ça ne devrait pas être trop lent pour l'exécution de la macro ?
cela dit je renouvelle mon appel pour mon problème toujours pas résolu ?
merci pour toute aide