Imprimer

Bonsoir,
Ajouter en début de macro un test sur la valeur du devis ; avec la cellule contenant ladite valeur
nommée mondevis :

if ["mondevis"] >@000 then

par exemple.
Ceci dit, rester dans le fil de conversation aide à mieux suivre.
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"cris570" <cris570@hotmail.com> a écrit dans le message de news: Oip1ISDFFHA.664@TK2MSFTNGP10.phx.gbl...

Je remercie Ru-Th et RaMa pour leurs précieux conseil, j'arrive à imprimer
ma feuille depuis une cellule.
Autre problème, du même genre, j'ai une autre feuille à imprimer, mais que
dans le cas ou le montant de mon devis est égal ou supérieur à 40.000 euros.
Comment dois-je procéder ?
Merci d'avance

Comment dois-je l'incorporer à ma macro, car je l'ai placé sous cette forme
et cela ne fonctionne pas :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If ("$H$72") >= 40000 Then
End If
If Target.Address = "$M$75" Then
Cancel = True
Sheets("Edition devis").PrintOut
MsgBox "Impression en cours"
End If
End Sub

Bonsoir,
Essaye ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If ("$H$72") >= 40000 Then
If Target.Address = "$M$75" Then
Cancel = True
Sheets("Edition devis").PrintOut
MsgBox "Impression en cours"
End If
End If
End Sub

ou bien :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If ("$H$72") >= 40000 and Target.Address = "$M$75" Then
Cancel = True
Sheets("Edition devis").PrintOut
MsgBox "Impression en cours"
End If
End Sub

ou encore :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$M$75" and ("$H$72") >= 40000 Then
Cancel = True
Sheets("Edition devis").PrintOut
MsgBox "Impression en cours"
End If
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"cris570" <cris570@hotmail.com> a écrit dans le message de news:
uY$R8TMFFHA.1292@TK2MSFTNGP10.phx.gbl...

Comment dois-je l'incorporer à ma macro, car je l'ai placé sous cette forme et cela ne fonctionne pas
:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ("$H$72") >= 40000 Then
End If
If Target.Address = "$M$75" Then
Cancel = True
Sheets("Edition devis").PrintOut
MsgBox "Impression en cours"
End If
End Sub