Protection de feuilles

N

Nohope

Guest

• 23 Février 2008

• #16

Re : Protection de feuilles

Bien , donc voila je me serts d'une macro pour recuperer certaines données et les imprimer ; les données sont prises dans le tableau de la feuille 1 puis envoyer dans autre feuille 2 .
Pour imprimer ces données je dois a chaque fois ouvrir la feuille 2 et clique sur " imprimer ", serait t'il possible de rajouter une fonction a ma macro pour imprimer directement ces données sans que j'ai a ouvrir la feuille 2 .
Voila la macro en question :


Option Explicit
Dim DerL As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


On Error Resume Next
If Not Application.Intersect(Target, Range("M1.M8000")) Is Nothing Then
If Target = "" Then
With Feuil17 'feuille ou l'ecriture se fait

.Range("A1") = Target(1, -11) ' ecriture de ligne PRODUIT
.Range("C3") = Target(1, -7) ' ecriture de ligne LOT
.Range("C5") = Target(1, -8) ' ecriture de ligne DLUO
.Range("B8") = Target(1, -9) ' ecriture de ligne DLUO

End With

Else: Target = ""

End If
End If
End Sub

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 23 Février 2008

• #17

Re : Protection de feuilles

re
je l'ai compris comme ca JCGL, un peu d'humour ne fait pas de mal. bisou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2008

• #18

Re : Protection de feuilles

Re, salut Jean-Claude🙂

code ci dessous, permet d'imprimer la feuille 2 sans la selectionner.

Nom feuille et plage à adapter, 2 represente ici l'index de la feuille, tu peux remplacer par le nom entre guillemets.

Code:

Option Explicit
Private Sub test()
Dim plage As Range, i As Byte
Set plage = Sheets(2).Range("A1:J10")
With Sheets(2).PageSetup
    .PrintArea = plage.Address
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
Sheets(2).PrintPreview 'Previsualisation, à remplacer par Sheets(2).PrintOut pour impression
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

N

Nohope

Guest

• 23 Février 2008

• #19

Re : Protection de feuilles

Je mets le code comme ci dessous mais rien ne se passe :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)


On Error Resume Next
If Not Application.Intersect(Target, Range("M1.M8000")) Is Nothing Then
If Target = "" Then
With Feuil17 'feuille ou l'ecriture se fait

.Range("A1") = Target(1, -11) ' ecriture de ligne PRODUIT
.Range("C3") = Target(1, -7) ' ecriture de ligne LOT
.Range("C5") = Target(1, -8) ' ecriture de ligne DLUO
.Range("B8") = Target(1, -9) ' ecriture de ligne DLUO

End With

Else: Target = ""

End If
End If
End Sub

Private Sub test()
Dim plage As Range, i As Byte
Set plage = Sheets(17).Range("A8:G8")
With Sheets(17).PageSetup
.PrintArea = plage.Address
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Sheets(17).PrintPreview 'Previsualisation, à remplacer par Sheets(2).PrintOut pour impression
End Sub

 

Dernière modification par un modérateur: 23 Février 2008

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2008

• #20

Re : Protection de feuilles

Bonjour

à minima, si tu executes le code que tu as donné (proc "test"), au moins la prévisualisation d'une page doit se faire.... ou alors message d'erreur...

où as tu mis le code ? il est à la suite de ta macro événementielle, qui elle doit se trouver dans le module de la feuille concernée, pas la 17 d'après ce que je peux voir... je ne vois aucune instruction appelant la procédure "test"...

mets peut être ton classeur en pièce jointe sans données confidentielle, car là comme ca voit pas, a part le fait qu'elle ne soit pas au bon endroit.

bon dimanche.
@+

 

Vote positif 0 Vote négatif

N

Nohope

Guest

• 24 Février 2008

• #21

Re : Protection de feuilles

cela te gene si j'envoie le fichier par Mp ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2008

• #22

Re : Protection de feuilles

Re

mets plutôt en pièce jointe, un petit fichier exemple sans donnée confidentielles, permettant de reproduire le problème... pas forcement besoin du fichier dans sa totalité.

@+

 

Vote positif 0 Vote négatif

N

Nohope

Guest

• 24 Février 2008

• #23

Re : Protection de feuilles

Voila un morceau , donc dans cet exemple quand je click sur la case M de la feuille 1 , des données sont envoyées dasn la feuille 2 ou je dois alle pour imprimer , je voudrais eviter d'ouvrir la feuille 2 a chaque fois et ainsi avoir une sortie imprimante quand je click sur M.

 

Pièces jointes

• aide.xls

  25 KB · Affichages: 49
• aide.xls

  25 KB · Affichages: 57
• aide.xls

  25 KB · Affichages: 47

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2008

• #24

Re : Protection de feuilles

Re

ton fichier modifié, j'ai déplacé le code dans un module standard, modifiée le nom de la feuille 2 dans la macro test, placé un bouton sur la feuille 1 qui permet l'impression de la feuille 2, et chez moi cela fonctionne en l'état.

@+

 

Pièces jointes

• aide.xls

  35 KB · Affichages: 48
• aide.xls

  35 KB · Affichages: 47
• aide.xls

  35 KB · Affichages: 42

Vote positif 0 Vote négatif

N

Nohope

Guest

• 24 Février 2008

• #25

Re : Protection de feuilles

Une derniere chose , il me faudrait la ligne code pour passer de l'impression portrait en impression paysage .

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 24 Février 2008

• #26

Re : Protection de feuilles

Bonjour à tous,

En l'absence de Pierrot... 🙂,

Remplace le code du Module1 par celui ci :

Code:

Option Explicit
Sub test()
Dim plage As Range, i As Byte
Set plage = Sheets("Feuil2").Range("A8:G8")
With Sheets("Feuil2").PageSetup
    .PrintArea = plage.Address
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .Orientation = xlLandscape
End With
Sheets("Feuil2").PrintPreview 'Previsualisation, à remplacer par Sheets(2).PrintOut pour impression
End Sub

Pour être très clair : sur le dernier fichier de mon ami Pierrot...

A+

 

Vote positif 0 Vote négatif

N

Nohope

Guest

• 24 Février 2008

• #27

Re : Protection de feuilles

Merci beaucoup a tous pour votre aide 🙂

 

Vote positif 0 Vote négatif

E

elokapo

Guest

• 11 Mars 2008

• #28

Re : Protection de feuilles

Hello...

Juste une petite idée au passage : ce que j'ai fait pour régler ce probleme de protéger-déprotéger, j'ai donc un classeur qqpart et j'ai ajouté un bouton dans la barre des taches : customize/macro etc... bien pratique puisque ce bouton n'apparait que sur mon pc...

Allez, à bientot !
Elokapo

 

Vote positif 0 Vote négatif