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