condition pour impression et sauvegarde

[MARIE74]

Bonjour a toutes et a tous

Météo 2° il neige (région Megève Haute Savoie)

Voila je souhaite une aide en VB

Il faudrait que je puisse interdire la sauvegarde et l’impression : si(B8=1 ;si(B17= 0 ;si(F11=0
et si condition pas bonnes, il faudrait un petit message du genre « Manque valeur dans cellule (indiquer le n° de la cellule)


Pouvez vous m’aidez

Merci d’avance

 

[PascalXLD]

Bonjour

ce serait un code de test du genre

If range('B8') = 1 or range('B17') = 0 or range('F11') = 0 then
msgbox 'manque valeur dans cellule'
cancel=true
end if

à placer dans

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

et

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Mais je ne comprends pas trop tes conditions


PS : Sinon plaisir de te relire ça faisait un bail qu'on ne s'etait croisé sur un fil

Message édité par: Pascal76, à: 02/03/2006 14:31

 

[MARIE74]

Re a toutes et a tous

Salut a toi Pascal76

Cela faisait bien longtemps que je n'etait pas venue dans le forum

Merci pour ton code il fonctionne parfaitement



La neige est parfaite prend 8 jours dans les stations


A+

 

[PascalXLD]

Re

LOL pour les 8 jours je vais avoir du mal en ce moment avec le boulot

Bon chez nous il y an a pas mal non plus même si ce n'est pas comparable

Bonne journée