Macro pour effectuer plusieurs impressions d'une feuille

Bonjour,

Je cherche à effectuer plusieurs impressions automatique d'une feuille, en fonction du nombre de lignes remplies d'un tableau d'une autre feuille du même classeur.

Je vous joint le fichier pour comprendre plus facilement.

C'est à dire que je souhaiterais qu'il y ait autant d'impression de la feuille "Fiche d'appréciation" que de personne participant à la formation dans la feuille "Nom participant"

Je vous remercie.

Bonne journée à vous

Bonjour

Un exemple avec une macro ne pas supprimer la cellule O2 qui compte le nombre de participants

Je vous remercie de votre retour.

Cependant quand je lance l'impression, il y a toujours qu'une seule copie qui s'imprime et non 2

Bonjour Christine15

Je pense que Joco7915 que je salut n'a pas compris la demande

Voici une possibilité, code à mettre dans un module

Sub ImpFiche()
  Dim ShtNP As Worksheet
  Dim dLig As Long, Lig As Long
  ' Définir la feuille des nom de participant
  Set ShtNP = ThisWorkbook.Sheets("Nom participant")
  ' dernière ligne remplie de la feuille
  dLig = ShtNP.Range("A" & Rows.Count).End(xlUp).Row
  With ThisWorkbook.Sheets("Fiche d'appréciation")
    ' Pour chaque ligne de participant
    For Lig = 3 To dLig
      ' Compléter son nom
      .Range("B9").Value = ShtNP.Range("A" & Lig).Value
      ' Imprimer la feuille
      .PrintOut
    Next Lig
  End With
  ' Vider la mémoire
  Set ShtNP = Nothing
End Sub

A+

Bonjour Bruno,

Je vous remercie Toutefois quand je veux exécuter le macro ça me met : " Erreur d'exécution '9': L'indice n'appartient pas à la sélection

Bonjour Christine15, BrunoM45 Effectivement ce n'est pas ce que j'avais compris faute d'inattention..

Regarde si cela fonctionne normalement

J'ai modifié cette ligne de code du fait que le nom de ta feuille comporte un espace en fin de nom

With ThisWorkbook.Sheets("Fiche d'appréciation ")

Bonjour Jojo7915,

Cela fonctionne ! Je vous remercie beaucoup !

Si cela te convient passes le sujet en résolu

Bonne continuation

Crdlt

Bonjour,

Excusez moi de revenir vers vous concernant ce sujet, mais lorsque j'exécute le macro ça m'imprime plusieurs feuilles, au lieu de m'imprimer uniquement le nombre de document correspondant au nombre de participent dans la feuille "Nom Participant".

Peut être parce que j'ai modifié le document ?

Je vous remercie de votre aide