XL 2019 autoriser impression sous conditions vba

paskikic · 19 Décembre 2021

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 · 20 Décembre 2021

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 · 20 Décembre 2021

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

fanfan38 · 21 Décembre 2021

Une autre solution
double clic sur la ligne1 pour imprimer

A+ François

paskikic · 21 Décembre 2021

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

XL 2019 autoriser impression sous conditions vba

paskikic

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

paskikic

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

Pièces jointes

paskikic

XLDnaute Occasionnel

Discussions similaires