code pour impression

[ripo]

Bonjour à toutes et à tous,
Petite question toute simple, je pense...

Quelle code permet d'imprimer automatiquement quand une cellule est activée?

Concrètement, A1 actif, "entrée" (on arrive en A2) et l'impression se lance automatiquement...

Merci de votre aide
A+
Ripo

 

[fred65200]

Re : code pour impression

dans le module de feuille, tu colle ça

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then MsgBox "print"
End Sub

Dès que tu entre en A1, l'évènement ce déclenche

 

[JCGL]

Re : code pour impression

Bonjour à tous,

Peux-tu essayer avec :

A placer dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value > 0 or Range("A1").Value<>"" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Pas testé ;-)

A+

 

[ripo]

Re : code pour impression

fred65200,
Merci de ta réponse, mais l'evènement ne se déclenche pas.
A+

 

[JCGL]

Re : code pour impression

Re,

Le même mais on efface A1 après l'impression pour ne pas avoir un catalogue imprimé...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value > 0 Or Range("A1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").ClearContents
End Sub

A+

Edition : Salut mon ami Spit ;-)

 

[fred65200]

Re : code pour impression

essaie ça chez moi ça marche

 

[Spitnolan08]

Re : code pour impression

Bonsoir le fil,
Bonsoir JCGL🙂,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" Then MsgBox "print"
End Sub

Puisqu'en fait tu pars du principe que c'est la cellule A2 qui doit être active...

Cordialement