Imprimer si cellule A1 >0 ?

K

Klorane

Guest

• 6 Janvier 2006

• #2

appelle ta macro d'impression de la façon suivante

if range('a1').value > 0 then impr

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 6 Janvier 2006

• #3

Bonsoir Christian

Sub impr()

If Range''A1').Value>0 Then

ActiveWindow.SelectedSheets.PrintOut Copies:=1
Else : exit Sub
End If
End Sub

en ajoutant les 3 lignes rouges là où elles sont, ça devrait marcher

Bon courage

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 6 Janvier 2006

• #4

Bonjour le forum
Bonjour Christian

Essaies :

Sub impr ()
If range('A1') > 0 then
ta macro
End If
End Sub

Cliquez pour agrandir...

Bonne soirée à toutes & à tous

Oups pris de vitesse - Bonsoir Klorane & Jacques87 -

Message édité par: Eric C, à: 06/01/2006 18:01

 

Vote positif 0 Vote négatif

C

Christian

Guest

• 6 Janvier 2006

• #5

ReBonsoir à tout le forum,

Merci à vous trois, impec

à+
Christian

 

Vote positif 0 Vote négatif

M

mos98

Guest

• 6 Avril 2006

• #6

quelqu un peu t il m expliker comment activer ou faire cette macro car j y connais rien et j suis paume..en fait se que je cherche moi c est de pouvoir imprimer si une cellule >0 mais seulement en utilisan l icone d impression...merci

Message édité par: mos98, à: 06/04/2006 16:19

 

Vote positif 0 Vote négatif