Impression auto si valeur 1

[vini]

Voila j'aimerais lancer l'impression d'une feuille Excel si le contenu d'une cellule est égale à 1 ( valeur 1).
La feuille d'Excel est en communication DDE avec une autre application. Si cette application fait changer la cellule à la valeur 1 l'impression en lancée. Possible?
Merci. :S

 

[Robert]

Salut Vini, salut le forum,

Je pense que ce code à adapter à ton cas devrait convenir. Place le dans l'Objet VBA Sheet de la feuille en question et adapte l'adresse de la cellule :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then 'à adapter à ton cas
If Target.Value = 1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End If
End Sub

 

[vini]

Merci je vais tester.

 

[vini]

Merci c'est exactement ce que je voulais.