Impression par bouton sur clic

Bonjour,

J'aimerais avoir de l'aide avec ma formule ... Je cherche à faire imprimer la page active ainsi que "Feuil28" via un bouton cliquable. Je suis bloquer depuis un bout, est-ce que quelqu'un aurait la gentillesse de m'aider ?

Sub Imprimer() Dim temp1(), temp2() For Each c In [Zone_d_impression] If c.Interior.ColorIndex <> xlNone Then n = n + 1 ReDim Preserve temp1(1 To n) ReDim Preserve temp2(1 To n) temp1(n) = c.Address temp2(n) = c.Interior.ColorIndex c.Interior.ColorIndex = xlNone End If Next c ActiveSheet.PrintPreview Feuil28.PrintPreview ' ou ActiveSheet.PrintOut For i = 1 To n Range(temp1(i)).Interior.ColorIndex = temp2(i) Next iEnd Sub

Bonjour,

Voici un essai en remplaçant par la méthode .PrintOut :

Sub Imprimer()
Dim temp1(), temp2()
For Each c In [Zone_d_impression]
    If c.Interior.ColorIndex <> xlNone Then
        n = n + 1
        ReDim Preserve temp1(1 To n)
        ReDim Preserve temp2(1 To n)
        temp1(n) = c.Address
        temp2(n) = c.Interior.ColorIndex
        c.Interior.ColorIndex = xlNone
    End If
Next c
ActiveSheet.Printout
Feuil28.Printout
For i = 1 To n
    Range(temp1(i)).Interior.ColorIndex = temp2(i)
Next i
End Sub

Pour poster du code, ce sont les balises </> qui sont adaptées.

Cdlt,

Génial, merci beaucoup c'est très apprécié !