Impression Automatique

[REDGS]

Bonjour à tous,

Mon problème est le suivant :
Dans la cellule L5 un n° change par la formule « grandevaleur » d’une plage de cellules.
Comment lancer l’impression automatiquement chaque fois que cette cellule est modifiée ?
Merci de votre aide

 

[MAZETTE]

Re : Impression Automatique

Salut RGDS,

Essaye ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$8" Then

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End If
End Sub

Salutation