[VBA-E]Bouton useform pour impression

Voila j'ai fait une petite macro qui imprime:

Code:

---

1 2 3 4

Sub impression() Sheets("Feuil1" ).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub

---

Maintenant ce que je souhaite c'est faire un bouton d'impression qui réalise la même tâche que ma macro
donc je crée sur ma feuille un bouton à l'aide des useform
et une fois mon bouton crée je click dessus pour réecrire le code, donc j'obtiens :

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Sheets("Feuil1" ).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub

---

maintenant j'essaie de clicker sur le bouton mais il est "inactif", je ne peux que modifier sa taille ou son texte.

Merci , ENCORE UNE FOIS, pour votre aide

LeSqual

Essaie en remplaçant

Citation:

---

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

---

par

Code:

---

1 2	ThisWorkBook.SelectedSheets.PrintOut Copies:=1, Collate:=True

---

Sinon, essaie de faire précéder ta commande par la désignation de ta feuille -> Worksheets("Feuil1").select

Tu dis

A+

Edit

Citation:

---

Extrait de l'aide : SelectedSheets : envoie une collection Sheets qui représente toutes les feuilles sélectionnées dans la fenêtre spécifiée. En lecture seule.

---

Tes feuilles doivent être sélectionnées ;)

Je pene qu'il te suffit seulement de repasser en mode execution, tu dois etre en mode création...

Pour ca ouvre la barre d'outils Boite a outils Controles tu devrais voir un triangle sur une regle et un crayon, il faut cliquer dessus.

Le bouton sera alors actif et tu sera passé en mode exécution.

Citation:

---

je crée sur ma feuille un bouton à l'aide des useform

---

Ton bouton est bien sur un userform ou est-il sur une feuille de calcul ?
A+