impression de cellules ...déclenchée par une valeur

[psv]

Bonjour à tous,


Soit la cellule L1C4 ...

Je souhaite que l'apparition de la valeur ''1'' dans cette cellule entraîne l'impression des cellules L1C1 à L1C3 .....



Merci d'avance pour vos idées (et autres macro),
psv

 

[tototiti2008]

Re : impression de cellules ...déclenchée par une valeur

Bonjour psv,

Commence par enregistrer une macro qui imprime les cellules voulues et poste nous le code, on te diras comment le modifier et où le placer.

 

[psv]

Re : impression de cellules ...déclenchée par une valeur

... et voici le code;
... reste à le faire déclencher si ''1'' apparaît dans la cellule A1 ...




Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 27/05/2008 par flo
'

'
Range("G14:I14").Select
ActiveSheet.PageSetup.PrintArea = "R14C7:R14C9"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Cousinhub]

Re : impression de cellules ...déclenchée par une valeur

Bonsoir,
comment la valeur 1 apparait dans la cellule L1C4?
Par une formule, ou écrite à la main, ou par macro?

 

[psv]

Re : impression de cellules ...déclenchée par une valeur

Hello,


... par une formiule ...

 

[Cousinhub]

Re : impression de cellules ...déclenchée par une valeur

Re-,

OK, mais es-tu sûr de vouloir imprimer à chaque fois que la cellule L1C4 est égale à 1?

Sinon, par l'évènement :

Private Sub Worksheet_Calculate()
If [D4] = 1 Then
ActiveSheet.PageSetup.PrintArea = "R14C7:R14C9"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

tu imprimeras ta zone d'impression, mais mef, cela se reproduira dès que la cellul D4 est égale à 1

 

[psv]

Re : impression de cellules ...déclenchée par une valeur

Hello,



...merci, super ...

c'est exactement ce qu'il me faut!!

(en fait, je pense utiliser, dans mon commerce, mon fichier sous excel pour sortir un ticket de caisse...)

Merci beaucoup, à bientôt,
psv