MACRO : imprimer toutes les pages suite à choix dans liste

Bonjour,

Sur mon fichier excel en pièce jointe "RECAPITULATIF CHOIX", j'ai sur la feuille "APPARTEMENT", le détail appartemeent par appartment des choix pour les finitions des appartements.

Dans la cellule D1 de la feuille "APPARTEMENT", je choisis un numéro d'appartement et les choix des finitions s'affichent.

Je souhaiterai créer une macro qui imprime les 53 choix / appartements en une fois de la feuille "APPARTEMENT".

C'est comme si en D1, dans la liste déroulante, je choisissais une option après l'autre et j'appuyais sur le bouton print à chaque fois .

Le but est de créer un bouton qui me permet d'imprimer les 53 fiches d'un coup

Avec la liste je n'y arrive pas et je bloque..

Un grand merci pour vos solutions.

Alexis

Bonjour

Testes cette macro (A placer dans un module standard - Actionnée par un bouton)

Option Explicit

Sub Imprime()
Dim J As Long

  With Sheets("Appartement")
    For J = 1 To [Appartement].Rows.Count
      .Range("D1") = [Appartement].Range("A" & J)
      .PrintPreview
      ' ou pour imprimer direct
      '.PrintOut
    Next J
  End With
End Sub

Un grand merci

ça marche