XL 2010 blocage d'impression de seulement un onglet si cellule vide

Bonjour Seb,
Avec une ligne de plus
Bruno

Bonjour Bruno
c'est parfait ! un grand merci a toi. cela m'enlève une épine du pied

Puis je abuser de tes connaissances et te demander un petit peu d'aide encore ?

en fait maintenant que j'ai le script, j'ai essayer d'ajouter la même chose pour une deuxième feuille nommée Sof Tata avec la cellule A9 ; mais forcement j'ai un bug. je me rends bien compte lorsque je lis le script il y a qqchose qui cloche mais je n'arrive pas à trouver la solution. de plus je crois que l'on ne peut pas mettre 2 scripts l'un en dessous de l'autre commençant par la même ligne, non ? (exemple : Private Sub Workbook_BeforePrint(Cancel As Boolean)

voila mon script. Si tu pouvais m'aider ce serait super sympa. Merci. Il se peut que j'ajoute encore d'autres conditions apres. Est ce aussi faisable ?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "CSR" Then Exit Sub
If Sheets("CSR").Range("I9").Value = "" Or Sheets("CSR").Range("L9").Value = "" Then
Cancel = True
MsgBox "Veuillez insérer les dates de mise a quai et départ du navire pour pouvoir imprimer"
End If
If ActiveSheet.Name <> "Sof Tata" Then Exit Sub
If Sheets("Sof Tata").Range("A9").Value = "" Then
Cancel = True
MsgBox "Veuillez insérer le nom de l'armateur ou opérateur pour pouvoir imprimer"
End If
End Sub

merci beaucoup par avance
seb

Bonsoir j'ai remplacé <> par = enlevé le Exit Sub et ajouté un End If
Bruno

ouah
quel talent ! tu m'impressionnes ! tout cela en seulement 4 minutes
magnifique
un grand merci Bruno
je suppose que si je veux ajouter d'autres contraintes j'ai juste a ajouter à la suite de ton script
parfait

une petite question stp juste pour mon info.
pourquoi mets tu 2 fois " End if " ? une seule fois n'est pas suffisant ?
encore merci Bruno

Yes,
j'ai 2 If par paragraphe donc 2 End if
Exemple
If jostik=feu then missiles 'pas besoin de End if car sur même ligne à la suite
on peut mettre aussi
if jostik=feu then
missiles
End if
ou encore quand c'est long
If jostik=feu Then _
missile:explosion

ici pour info missile envoie à la macro missile et ensuite à la macro explosion
Pas besoin du End if ici car j'ai mis un espace et tiret-bas après le Then
Faut pas avoir peur d'aller en bug pour s'améliorer
Bruno