imprimer des plages non-continues

Bonjour à tous,
N'étant pas trop calé en VBA je n'arrive pas à solutionner un petit souci.
J'ai créé un bouton sur une feuille dans lequel j'ai un code qui sélectionne et imprime deux plages de cellules non-continues. La macro fonctionne très bien, le souci est que les deux plages s'impriment sur deux feuilles différentes, alors que je souhaite les imprimer sur une même feuille.
Est-il possible d'imprimer sur une seule feuille ?
voici le code de mon bouton :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Application.Union(Range("komori2coul"), Range("Notes")).Select Selection.PrintOut Copies:=1 ActiveCell.Select End Sub

---

D'avance je vous remercie pour votre aide
Naitgo

C'est peut être possible autrement, mais pourquoi ne pas copier la plage sur une feuille, l'imprimer et ensuite supprimer cette feuille

Code:

---

1 2 3 4 5 6

Worksheets.Add After:=Worksheets(Worksheets.Count) Application.Union(Range("komori2coul"), Range("Notes")).copy Worksheets(Worksheets.Count).Range("A1") Worksheets(Worksheets.Count).PrintOut Copies:=1 Application.DisplayAlerts=False Worksheets(Worksheets.Count).Delete Application.DisplayAlerts=True

---

Merci pour ta réponse diude54,
Mais le code bloque au niveau de la ligne :

Code:

---

1 2	Application.Union(Range("komori2coul"), Range("Notes")).copy Worksheets(Worksheets.Count).Range("A1")

---

Je me demande si il ne faut pas coller, ce que l'on à copié, sur la nouvelle feuille.
Sinon je pense que la démarche est bonne.
Merci pour ton aide

Essai comme ceci

Code:

---

1 2 3 4 5 6 7 8

Dim Plage as Range Set Plage=Application.Union(Range("komori2coul"), Range("Notes")) Worksheets.Add After:=Worksheets(Worksheets.Count) Plage.copy Worksheets(Worksheets.Count).Range("A1") Worksheets(Worksheets.Count).PrintOut Copies:=1 Application.DisplayAlerts=False Worksheets(Worksheets.Count).Delete Application.DisplayAlerts=True

---

Ici on fait une copie directement sur la feuille que l'on viens d'ajouter sans passer par le presse papier.La deuxième partie de la ligne ( après le copie définie la destination, pas besoin de paste.

J'ai toujours un blocage au niveau de :

Code:

---

1 2	Plage.Copy Worksheets(Worksheets.Count).Range("A1")

---

j'ai essayé avec Range("A1":"P25"), cela ne change rien
Encore merci pour ton aide
Naitgo

Chez moi je n'arrive pas à créer une plage de cellules contenues sur des feuilles différentes. Pour contourner le problème tu peux faire:

Code:

---

1 2 3 4 5 6 7 8

Worksheets.Add After:=Worksheets(Worksheets.Count) Range("komori2coul").copy Worksheets(Worksheets.Count).Range("A1") Range("Notes").copy Worksheets(worksheets.Count).Range("A" & Worksheets(Worksheets.Count).Range("A65536").End(XlUp).row)   Worksheets(Worksheets.Count).PrintOut Copies:=1 Application.DisplayAlerts=False Worksheets(Worksheets.Count).Delete Application.DisplayAlerts=True

---

Je n'ai aucun problème avec le copy

Je suis vraiment désolé, mais cela ne fonctionne pas tout à fait.
Le code se déroule normalement.
Il y a bien création d'une feuille et copie du premier Range, mais le second Range n'apparait pas et la nouvelle feuille ne s'imprime pas. Elle ne s'efface pas non-plus, comme si le code s'arrêtait trop tôt.
Je précise que mes deux plages nommées sont sur une même feuille.
Merci encore, je ne voudrait pas abuser de ton temps.

Bonjour,

J'ai trouvé ça, si tu y trouve une idée pour ton problème

http://www.veriti.net/articles.php?lng=fr&pg=155

Est il possible que tu donnes ton code à toi (en entier).
Comment déclares tu "Notes" et "Komori2coul"
Moi je travaille comme ceci avec les plages par exemple:

Code:

---

1 2 3 4

Set Pl1= Range("A1","B5") Set Pl2= Range("B10","C" & Range("C65536").End(XlUp).Row) 'Ensuite pour copier les plages: Pl1.Copy Worksheets(Worksheets.Count).Range("A1") ' Envoi Pl1 Sur la dernière feuille du classeur en A1 (du coup entre A1 et B5)

---

Une proposition particulière sous certaines conditions!!!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim Plg As Range, zn As Range   Application.ScreenUpdating = False   Set Plg = Union(Range("komori2coul"), Range("Notes")) Cells.Columns.Hidden = True Cells.Rows.Hidden = True Plg.Columns.Hidden = False Plg.Rows.Hidden = False   Cells.PrintOut   Cells.Columns.Hidden = False Cells.Rows.Hidden = False Set Plg = Nothing   Application.ScreenUpdating = True

---