Empêcher l'enregistrement si deux cellules sont différentes

[fred2705]

Bonjour,

J'aimerais simplement ne pas permettre l'enregistrement si deux cellules son différentes sur la code feuil1?

J'ai essayer le code ci-dessous mais ca bug?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("feuil1").Range("V643") <> Worksheets("feuil1").Range("O639") Then
        Cancel = True
        MsgBox "Les prix ont changés! Vous devez générer un PDF avant de sauvegarder"
    End If
End Sub

Merci pour votre aide.

 

[camarchepas]

Re : Empêcher l'enregistrement si deux cellules sont différentes

Bonjour ,

Curieux en XL2010, cela fonctionne et je ne vois pas d'instruction particuliere.

Par contre que contiennent V643 et O639 ? Ni a t-t-il pas de cellules fusionnées ?

 

[fred2705]

Re : Empêcher l'enregistrement si deux cellules sont différentes

En faite je remarque que ça fonctionne si je mets le nom de l'onglet (contact2) comme ceci:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Contact2").Range("V643") <> Worksheets("Contact2").Range("O639") Then
        Cancel = True
        MsgBox "Les prix ont changés! Vous devez générer un PDF avant de sauvegarder"
    End If
End Sub

Mais ca ne fonctionne pas si je mais si je mets le numéro de la feuille (feuil1) et comme mon nom d'onglet peut varier j'ai besoin d'utiliser "feuil1" ???

 

[camarchepas]

Re : Empêcher l'enregistrement si deux cellules sont différentes

Ok,

Alors comme ceci tout simplement :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 If Feuil1.Range("V643") <> Feuil1.Range("O639") Then
         Cancel = True
         MsgBox "Les prix ont changés! Vous devez générer un PDF avant de sauvegarder"
     End If
 End Sub