Probleme avec une formule

bonjour

j'ai mis la formule ci-dessous dans thisworkbook mais celà ne déclenche pas le message comme attendu :

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

If Sheets("Fiche Données").Range("Y16") = "2" & Sheets("Fiche Données").Range("A24") = "" Then MsgBox "SVP INDIQUER LE PORT DE DESTINATION DANS L'ONGLET 'FICHE DONNEES'": Cancel = True

End Sub

pouvez vous m'éclairer svp ?

en vous remerciant par avance

seb

Bonjour

peut-être en remplaçant le & par And

Cordialement

Parfait, rapide, efficace

que demander de mieux ??

un très grand merci Amadéus

juste un dernier point comment faire apparaitre la police du message en couleur stp ?

merci

seb