Tester nombre de pages

[ya_v_ka]

Salut tout le monde
je sèche, une fois encore...grace à votre forum j'ai trouvé le moyen de faire choisir à la fonction woorkbook_beforeprint les options d'impression differenciées pour chaques feuilles, mais comment faire tester d'abord si lors de la commande d'impression une seule feuille est active ?
merci d'avance pour toute proposition....
ya'v

 

[CHti160]

salut "ya_v_ka"

peut être en effectuant ce test

if WorkSheets.count =1 then ' ou <1ou >1
si j'ai bien compri la question
A+++
Jean Marie

 

[ya_v_ka]

salut et merci
mais désolé, ca j'ai essayé ca marche pas

j'essaye de faire:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
------->si + de 1 feuille activée alors
Beep
Msgbox "problème"
Cancel = True
------->sinon
.......

voilà....
merci quand même pour l'essais
ya'v

 

[myDearFriend]

Bonsoir Ya v ka, Jean-Marie, le Forum.


MsgBox ThisWorkbook.Windows(1).SelectedSheets.Count
te donnera le nombre de feuilles actuellement sélectionnées dans le classeur.


Cordialement,
Didier_mDF

 

[ya_v_ka]

merci, ca marche ;-)

c'est juste ce 'windows(1).' qui me manquait...quant à savoir pourquoi ? c'est une autre question...

en tous cas, merci pour ton aide précieuse
et longue vie aux forum's
ya'v