Modif MacroProtection Papou-Net en macro impression

[boullitt93]

Bonsoir à tous,

Je souhaiterais utiliser le même type de macro pour protéger et déprotéger toutes les feuilles que Papou-net m'a customisée (en PJ) mais celle-ci pour lancer l'impression de toutes les feuilles !

Le texte du bouton changerait :"imprimer " et "Impression terminé" .

merci d'avance

 

[Papou-net]

Re : Modif MacroProtection Papou-Net en macro impression

Bonsoir boullit93,

Pas sûr d'avoir compris ta demande, vois si le fichier joint te convient.

Cordialement.

 

[phlaurent55]

Re : Modif MacroProtection Papou-Net en macro impression

Bonjour à tous,

avec ceci:

Private Sub ToggleButton1_Click()
 If ToggleButton1 = True Then
    ToggleButton1.Interior.ColorIndex = 3
     ToggleButton1.BackColor = &HFF&
     ToggleButton1.Caption = "Impression"
     Range("A1").Select
  Else
    ActiveWorkbook.PrintOut Copies:=1, Collate:=True
    ToggleButton1.Caption = "Impression terminée"
    Range("A1").Select
    End If
End Sub