Discussion :

[naitgo]

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 :

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

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

[diude54]

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

Code :

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

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

[naitgo]

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

Code :

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

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

[diude54]

Essai comme ceci

Code :

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

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.

[naitgo]

J'ai toujours un blocage au niveau de :

Code :

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

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

[diude54]

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 :

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

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

[naitgo]

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.

[La Zélie]

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

[diude54]

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 :

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

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)

[mercatog]

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

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
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