Modif MacroProtection Papou-Net en macro impression

boullitt93 · 12 Janvier 2010

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 · 12 Janvier 2010

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 · 12 Janvier 2010

Re : Modif MacroProtection Papou-Net en macro impression

Bonjour à tous,

avec ceci:

Code:

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

Modif MacroProtection Papou-Net en macro impression

boullitt93

Guest

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

Discussions similaires

Modif MacroProtection Papou-Net en macro impression

boullitt93

Guest

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

Discussions similaires

Privacy & Transparency

Privacy & Transparency