Microsoft 365 Impression cellule différente

[martinkalvin]

Bonjour,
Novice en Excel je viens vers vous. J'aimerais pouvoir imprimer plusieurs feuilles avec un changement de cellule automatique.
La cellule K3 devrais changer et aller chercher nom et prénom sur la feuille 2.
Merci d'avance.
Mikael

 

[Jacky67]

Bonjour,
Novice en Excel je viens vers vous. J'aimerais pouvoir imprimer plusieurs feuilles avec un changement de cellule automatique.
La cellule K3 devrais changer et aller chercher nom et prénom sur la feuille 2.
Merci d'avance.
Mikael

Bonjour,
Ce code imprime la feuille "Trame" avec le nom en cellule K3 selon la feuille "Liste" (colonne A)

Sub imprimer()
    Dim c As Range
    With Sheets("Liste")
        For Each c In .Range("a1:a" & .Cells(.Rows.Count, "A").End(xlUp).Row)
            Sheets("Trame").[k3] = c
            Sheets("Trame").PrintOut
        Next
        Sheets("Trame").[k3] = ""
    End With
End Sub

 

[martinkalvin]

Bonjour,
Ce code imprime la feuille "Trame" avec le nom en cellule K3 selon la feuille "Liste" (colonne A)

Sub imprimer()
    Dim c As Range
    With Sheets("Liste")
        For Each c In .Range("a1:a" & .Cells(.Rows.Count, "A").End(xlUp).Row)
            Sheets("Trame").[k3] = c
            Sheets("Trame").PrintOut
        Next
        Sheets("Trame").[k3] = ""
    End With
End Sub

Bonjour Jacky67. Merci enormement. Un gain de temps enorme.
Merci Excel Download