If then: bug macro

[Totor]

Bonjour Forum,

j'ai un p'tit souci avec une macro d'impression. 10 cases à cocher sont reliées à des cellules (A1 à A10) qui indiquent vrai ou faux (car cochée ou non). Je voudrais que la macro lance une impression quand la valeur est vrai et rien du tout quand la valeur est faux.

Voici où j'en suis:

Sub Macro3()

If A1 = 'VRAI' Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

If A2 = 'VRAI' Then.......

End Sub

Quand je lance la mcro, rien ne se passe.

Avez vous une piste pour résoudre mon problème?

Bonne fin de journée et merci

Totor

 

[PascalXLD]

Bonjour

as-tu eayé en mettant

= VRAI sans les guillemets ???

 

[Totor]

Pascal,

Sans les guillemets, que ce soit vrai ou faux, la macro se lance.

Dsl

Merci quand même pour le coup demain.

Totor

 

[PascalXLD]

OUps Excuse je n'avais même pas fait attention

if Range('A1')='VRAI then

 

[Totor]

Pascal,

j'ai essayé avec et sans guillemets autour de vrai. mais ça ne marche toujours ps.

Peut être une autre solution?

Merci

Totor

Sub Macro3()

If Range('A1') = VRAI Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

 

[PascalXLD]

re

peux-tu envoyer le morceau de ton fichier pour voir STP

 

[Totor]

le voila

 

[Totor]

 

[Totor]

 

[PascalXLD]

RE

Tiens un lien

Lien supprimé

 

[Totor]

Mon fichier ne veut pas partir s'attacher!!
Il suffit seulment de cliquer sur selection du fichier à attacher pourtant!!

 

[Totor]

Merci
je n'avais compris que le fichier devait être zippé. Information enregistrée.

 

[Totor]

Enfin, j'espère. Après 5 ou 6 essais.... il était temps [file name=Ifthen.zip size=8134]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Ifthen.zip[/file]

 

[PascalXLD]

Re

essaies ceci

If Range('A1') = True Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


Bon courage

 

[Totor]

merci pour le coup de main.

Ca fonctionnne.

Bon week end

Totor