XL 2019 autoriser impression sous conditions vba

[paskikic]

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]

Bonjour

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]

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]

Une autre solution
double clic sur la ligne1 pour imprimer

A+ François

 

[paskikic]

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