Bouton d'impression

salut Wildrack et le Forum

peut-être de quoi dans le style

ActiveSheet.PageSetup.PrintArea = '$C$1:$K$567'

Mytå

Bonjour le forum
Bonjour Wildrack


Je vais essayer d'apporter ma modeste contribution :
Menu / Affichage / Barres d'Outils / Visual Basic que tu coches.
Dans la barre qui apparaît tu cliques sur Boîte à Outils Contrôle (Le marteau et la clé). Sur dessines un bouton de contrôle sur ta feuille après avoir sélectionné Bouton de commande sur la nouvelle boîte à outils.

Après avoir doubles cliqué sur ton Bouton, tu vas arriver sur une fenêtre où 2 lignes de commandes sont inscrites. Tu te positionnes sur la ligne du curseur clignotant et tu entres le code suivant :


Ce qui va te donner à la fin :

Private Sub CommandButton1_Click ()
Range ('A1:A4').Select ' A adapter à ta sélection
Selection.PrintOut
End Sub

Cliquez pour agrandir...

De retour sur ta feuille tu désélectionnes tes boîtes ouvertes, tu appuies sur ton beau Bouton et (en principe) cela devrait imprimer la sélection.

Bon ouikand à toutes & à tous


Bonjour Myta, j'étais dans mes écrits (notre nouvel ami nous a dit ne pas être très à l'aise avec VBA) et ne t'avais pas vu arriver.
Bon Ouikand à toi

Message édité par: Eric C, à: 24/09/2005 16:19