XL 2016 PROGRAMMATION D'UNE BOUCLE POUR IMPRESSION FEUILLE EXCEL

[01passepasse]

Bonjour à tous

je voudrais imprimer la feuil1 en faisant apparaitre dans la cellule A2, le nom des salariés présents dans la colonne A de la feuil2 ; si par exemple, 10 noms différents dans la colonne A de la feuil 2 (ex : salarié 1 ; salarié 2 ; salarié 3 ...), je voudrais avoir 10 impressions de la feuil1 avec à chaque fois, le nom de chaque salarié dans la cellule A2 de la feuil1 (==> Impression 1 = Salarié 1 ; Impression 2 = Salarié 2 ...)

Ps : la liste des salariés pourra s'allonger ou diminuer avec le temps

Merci d'avance de votre collaboration

 

[JCGL]

Bonjour à tous,

Peux-tu essayer avec ceci :

Sub Imprime()

    Dim Lig&
    For Lig = 1 To Feuil2.Range("A" & Rows.Count).End(xlUp).Row
        Feuil1.Range("A2") = Feuil2.Range("A" & Lig)
        Feuil1.PrintPreview
    Next Lig
End Sub

A+ à tous

 

[01passepasse]

Bonjour JCGL
Désolé pour le temps de latence pour la réponse ; Parfait ça fonctionne
Merci beaucoup