Discussion :

[kazannova]

Bonjour,

dans ma feuille j'ai deux tableaux comme suite:

Tableau 1:

A1:AM188


Tableau 2:

F193:AD218

je veux créer une macro pour:

l'impression de début de tableau 1 jusqu'au la dernière ligne qui est remplie donc pas tout le tableau

tout le tableau 2

Merci d'avance

[Le Pierre]

bonjour

essaye ce bout de 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
Sub test()
    'Tableau1
    NumPremièreLigne = 1
    NumDernièreLigne = Range("A1").End(xlDown).Row
    Range("A" & NumPremièreLigne & ":AM" & NumDernièreLigne).Select
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveSheet.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    'Tableau2
    Range("F193:AD218").Select
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveSheet.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

j'ai volontairement neutralisé le processus d'impression ('ActiveWindow.SelectedSheets.PrintOut ...) car avant d'imprimer, il faudra que tu règles les marges de ta feuille, ...
Par contre tu as un aperçu avant impression.

à plus

[kazannova]

bonjour

essaye ce bout de 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
Sub test()
    'Tableau1
    NumPremièreLigne = 1
    NumDernièreLigne = Range("A1").End(xlDown).Row
    Range("A" & NumPremièreLigne & ":AM" & NumDernièreLigne).Select
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveSheet.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    'Tableau2
    Range("F193:AD218").Select
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveSheet.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

j'ai volontairement neutralisé le processus d'impression ('ActiveWindow.SelectedSheets.PrintOut ...) car avant d'imprimer, il faudra que tu règles les marges de ta feuille, ...
Par contre tu as un aperçu avant impression.

à plus

Bnjour et merci pour votre aide

pour le deuxième tableau c'est ok

pour le premier non , voici ce qu'il m'a imprimé:





alors que le tableau est comme ça:




Je veux aussi que la macro imprime directement

merci encore

[fring]

Bonjour,

Pour imprimer sur l'imprimante définie par défaut, il faut :

1. définir la zone d'impression
2. lancer l'impression

Ce qui donnerait pour ton premier tableau 1

Code :

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

1
2
3
4
With Sheets("TaFeuille")
    .PageSetup.PrintArea = "$A$1:$AM$" & Range("AM189").End(xlUp).Row
    .PrintOut Copies:=1, Collate:=True
End With

et pour le tableau 2

Code :

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

1
2
3
4
With Sheets(3)
    .PageSetup.PrintArea = "$F$193:$AD$218"
    .PrintOut Copies:=1, Collate:=True
End With

Si tu veux lancer les impressions sur une autre imprimante que celle définie par défaut, un ptit truc tout simple, tu actionnes l'enregistreur de macro, tu lances une impression en modifiant tous les paramètres que tu veux, tu arrêtes l'enregistreur de macro et tu pourras voir dans cette nouvelle macro enregistrée les paramètres nom de l'imprimante, format de feuille, mise en page, etc...

[kazannova]

Bonjour,

Pour imprimer sur l'imprimante définie par défaut, il faut :

1. définir la zone d'impression
2. lancer l'impression

Ce qui donnerait pour ton premier tableau 1

Code :

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

1
2
3
4
With Sheets("TaFeuille")
    .PageSetup.PrintArea = "$A$1:$AM$" & Range("AM189").End(xlUp).Row
    .PrintOut Copies:=1, Collate:=True
End With

et pour le tableau 2

Code :

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

1
2
3
4
With Sheets(3)
    .PageSetup.PrintArea = "$F$193:$AD$218"
    .PrintOut Copies:=1, Collate:=True
End With

Si tu veux lancer les impressions sur une autre imprimante que celle définie par défaut, un ptit truc tout simple, tu actionnes l'enregistreur de macro, tu lances une impression en modifiant tous les paramètres que tu veux, tu arrêtes l'enregistreur de macro et tu pourras voir dans cette nouvelle macro enregistrée les paramètres nom de l'imprimante, format de feuille, mise en page, etc...

ça marche très bien

mais je veux copier le bouton de l'impression dans 15 autres feuilles (au total 16) donc le bouton va m'imprimer la feuille d'origine ou le bouton a été copié n'est ce pas?

Code :

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

With Sheets("TaFeuille")

Faut-il remplacer ça ?


------------------------------------------------


Me revoilà

ça marche pour toutes les autres page comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Image6_Clic()
    With ActiveSheet
    .PageSetup.PrintArea = "$A$1:$AM$" & Range("AM189").End(xlUp).Row
    .PrintOut Copies:=1, Collate:=True
End With
     With ActiveSheet
    .PageSetup.PrintArea = "$F$193:$AD$218"
    .PrintOut Copies:=1, Collate:=True
End With
End Sub

le malheur est que si une case est vide dans la ligne toute la ligne ne s'imprime pas

[Le Pierre]

bonjour

je n'ai pas pu voir l'image de ton tableau avant et après
est-ce que tu as bien des données à partir de A1 ?
est-ce qu'il n'y a pas de cellules vides dans la colonne A entre la 1ère et la dernière ligne ?

pour imprimer directement il suffit d'enlever le ' devant :
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
et de mettre ' devant ActiveSheet.PrintPreview
à plus