XL 2010 problème avec scrip dans mon workook

[sebbbbb]

bonjour à toutes et tous

cette formule dans mon workbook cloche comme je m'en doutais mais je n'arrive pas a trouver la parade :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("fiche données").Range("y16") = "7" And Sheets("SSI").Range("F3 & H3") = "" Then MsgBox "merci indiquer dans l'onglet SSI si march extra communautaire ou pas": Cancel = True
end sub

avez vous une solution svp ?

merci
seb

 

[_Thierry]

Bonsoir @sebbbbb , le Forum

Tu souhaites dire quoi avec :
Range("F3 & H3")

Car à mon avis c'est ceci qui n'est pas compris par VBA comme par moi !

Bien @toi, @vous
@+Thierry

 

[sebbbbb]

oui c'est ce que je pense également.
En fait si les 2 cellules F3 et H3 sont vides je voudrai qu'il y ait un message lorsque l'utilisateur veut enregistrer le doc

 

[_Thierry]

Re @sebbbbb

J'essaierais comme ceci :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("fiche données").Range("y16") = "7" And Sheets("SSI").Range("F3") = "" And Sheets("SSI").Range("H3") = "" Then
    MsgBox "merci indiquer dans l'onglet SSI si march extra communautaire ou pas"
    Cancel = True
End If
End Sub

Tu ne peux pas passer les deux cellules comme ça avec un "&", il faut ajouter une condition tout bêtement...

@+Thierry

 

[sebbbbb]

Super.merci
Je pensais on etait limite a 2 'and'
Bonne soiree
Seb