Imprimer une selection sur une feuille différente

Bonsoir,

Je dois imprimer des sélections se trouvant sur d'autres feuilles d'un même classeur. (voir fichier joint)

Quelqu'un pourrais m'aider ?

Bonsoir

Fais un click droit sur l'onglet de ta feuille, visualiser le code et colle ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$4" Then
    Application.EnableEvents = False
    test = "Carte " & Range("B4")
    Sheets(test).PrintPreview
    Application.EnableEvents = True
  End If
End Sub

Merci CB6O mais l'aperçu d'impression ne devrait s'afficher qu'une fois cliqué sue le bouton en D4 et pas automatiquement. Y a t'il une solution ?

Salut le forum

Modifie la ligne suivante avec D4

If Target.Address = "$B$4" Then

Mytå

Bonjour

Si tu veux absolument un bouton la macro devient:

Sub Rectangle1_QuandClic()

test = "Carte " & Range("B4")

Sheets(test).PrintPreview

End Sub

Merci beaucoup ! cela m'a aidé

Salutation !

cizzaro