Imprimer si cellule A1 >0 ?

[Christian]

Bonsoir à tout le forum,

Pourriez-vous me dire quel code rajouter pour que l'impression se fasse uniquement si la cellule A1 est supérieure à zéro lorsque je clique sur le bouton?.

Sub impr()



ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Merci pour votre aide.
Bien amicalement
Christian

 

[Klorane]

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

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

 

[Jacques87]

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

 

[Eric C]

Bonjour le forum
Bonjour Christian

Essaies :

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

Bonne soirée à toutes & à tous 😉

Oups pris de vitesse - Bonsoir Klorane & Jacques87 -

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

 

[Christian]

ReBonsoir à tout le forum,

Merci à vous trois, impec

à+
Christian

 

[mos98]

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