code pour impression

Version imprimable

Voir 40 message(s) de cette discussion en une page

Citation:
Envoyé par gFZT82
Bonjour,

Je viens rajouter mon grain de sel histoire de relever la soupe.
Si on peut s’appuyer sur la dernière ligne renseignée de la colonne F, on doit pouvor coder
Code:

1 2 3 4 5 6 7 8 Sub ImprimTableau1() Dim Ws As Worksheet Dim MaPlage As Range Set Ws = Worksheets("Feuil1") Derlig = Ws.Range("F" & Ws.Rows.Count).End(xlUp).Row Set MaPlage = Ws.Range("B1:F" & Derlig) Ws.PageSetup.PrintArea = MaPlage.Address Ws.PrintOut
Cordialement.
Bonsoir le forum,

j'ai le code ci dessus fait par gFZT82 que je remercie encore, j'ai 8 feuilles qui se servent de ce même code et l'ou je chanfe donc le Nom de la feuille et ou je suis aussi obliger de changer le nom par ImprimTableau2 etc.. pour chaque feuille, et je voulais savoir si cela était possible de n'avoir qu'un seule code pour toutes les feuilles
merci
jacky

Bonsoir
Mets ce code dans un module public

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Imprime(ByVal WsName As String)
Dim MaPlage As Range
Dim Derlig As Long
 
With ThisWorkbook.Worksheets(WsName)
    Derlig = .Range("F" & .Rows.Count).End(xlUp).Row
    Set MaPlage = .Range("B1:F" & Derlig)
    .PageSetup.PrintArea = MaPlage.Address
    Set MaPlage = Nothing
    .PrintOut
End With
End Sub

Tu peux l'appeler par

Code:

1
2
3
4
Sub Test1()
 
Imprime "Feuil1" 'que tu peux changer par le nom des autres feuilles successivement
End Sub

EDIT
Avec simplification du code

Code:

1
2
3
4
5
6
7
Sub Imprime(ByVal WsName As String)
 
With ThisWorkbook.Worksheets(WsName)
    .PageSetup.PrintArea = "B1:F" & .Range("F" & .Rows.Count).End(xlUp).Row
    .PrintOut
End With
End Sub

07/03/2012, 21h54
jacfld49

Bonsoir Mercatog,

Juste pour être sur, le code sub test qui appelle le code imprim, je le mets dans les feuilles
merci
jacky
07/03/2012, 21h56
mercatog

Comme tu veux
07/03/2012, 22h21
jacfld49

re,

merci, cela fonctionne,cela evite d'avoir 8 modules car j'ai 8 feuilles
merci encore
jacky

Bonjour le forum,

Est-ce qu'il faut changer quelque chose dans mon code?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub TrieTableau()
    Range("AF5:AM104").Select
    ActiveWorkbook.Worksheets("SEF").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("SEF").Sort.SortFields.Add Key _
        :=Range("AM5:AM104"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("SEF").Sort
        .SetRange Range("AF5:AM104")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AF11").Select
End Sub

pour pouvoir l’appeler avec ce code

Code:

1
2
3
4
Sub Test1()
 
TrieTableau "Feuil1" 'que tu peux changer par le nom des autres feuilles successivement
End Sub

merci d'avance
jacky

Bonsoir,

En suivant la même logique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub TrieTableau(ByVal WsName As String)
 
With ThisWorkbook.Worksheets(WsName)
    .Range("AF5:AM104").Select
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key _
        :=Range("AM5:AM104"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("AF5:AM104")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    .Range("AF11").Select
End With
 
End Sub

Code:

1
2
3
Sub Test2()
TrieTableau "SEF" 'que tu peux changer par le nom des autres feuilles successivement
End Sub

Tu remarques que la procédure Test2 lance la procédure TrieTableau avec le paramètre "SEF" qui précise sur quelle feuille s’effectue le tri.
Ce paramètre est identifié dans la procédure TrieTableau avec la variable WsName.

Cordialement.

08/03/2012, 20h41
jacfld49

Bonsoir le forum, gFZT82,

cela fonctionne et je te remercie, je comprends un peu mieux la procédure
merci beaucoup
jacky

Voir 40 message(s) de cette discussion en une page