Microsoft 365 Impression cellule différente

martinkalvin à dit:

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

Cliquez pour agrandir...

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

Jacky67 à dit:

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

VB:

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

Cliquez pour agrandir...