XL 2010 problème avec scrip dans mon workook

_Thierry

XLDnaute Barbatruc

Repose en paix

• 2 Juillet 2020

• #2

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

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 2 Juillet 2020

• #3

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

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 2 Juillet 2020

• #4

Re @sebbbbb

J'essaierais comme ceci :

VB:

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

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 2 Juillet 2020

• #5

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

 

Vote positif 0 Vote négatif