XL 2019 autoriser impression sous conditions vba

paskikic

XLDnaute Occasionnel
Bonjour à tous,
*

je souhaiterais bloquer l'impression sauf lorsqu'on clic sur une cellule de la première ligne de ma feuille :

j'ai trouver qques info et creer un code qui fonctionne avec un bouton de commande mais ne fonctionne pas avec l'icone imprimer ou sous la commande "Private Sub Workbook_BeforePrint(Cancel As Boolean) sous ThisWorkbook.

pourriez vous me filer un coup de main je bloque dur.....

voici mon code

Sub imprimer()

If ActiveCell.Row <> 1 Then
MsgBox ("Vous devez sélectionner la semaine à imprimer")
Exit Sub
End If
nbcol = 4
If ActiveCell.Column = 2 Then nbcol = 3
Range(Cells(2, ActiveCell.Column), Cells(19, ActiveCell.Column + nbcol)).PrintPreview

End Sub


merci à vous
 

fanfan38

XLDnaute Barbatruc
Bonjour
VB:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim nbcol As Byte
  If ActiveCell.Row <> 1 Then
    MsgBox ("Vous devez sélectionner la semaine à imprimer")
    Cancel = True
    Exit Sub
  End If
  nbcol = 4
  If ActiveCell.Column = 2 Then nbcol = 3
  Range(Cells(2, ActiveCell.Column), Cells(19, ActiveCell.Column + nbcol)).PrintPreview
End Sub

A+ François
 

paskikic

XLDnaute Occasionnel
bonsoir fanfan38,

merci pour code mais quand je l'applique même si je suis une cellule de la ligne 1 il me renvoie au message "Vous devez sélectionner la semaine à imprimer" avant de lancer l'impression

comment eviter cela ??

merci à toi
 

paskikic

XLDnaute Occasionnel
bonsoir fanfan38,
encore merci pour ta soluce mais le problème c'est que je suis sur un diagramme de Gantt et que je partage celui ci, comme il y a les 52 semaines de suite mes collègues vont imprimer le calendrier complet et je souhaite éviter cela en bloquant l 'impression

merci a toi, si d'autres ont une piste comme fanfan ils sont les bien venus
 

Discussions similaires

Réponses
2
Affichages
299

Statistiques des forums

Discussions
312 894
Messages
2 093 379
Membres
105 712
dernier inscrit
CARLO 82