Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fred2705
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fred2705

Guest
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?

Code: 
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.
 
Trier par date Trier par votes
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 ?
 
Vote positif 0 Vote négatif
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:


Code: 
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" ???
 
Vote positif 0 Vote négatif
Re : Empêcher l'enregistrement si deux cellules sont différentes

Ok,

Alors comme ceci tout simplement :

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
232
cathodique
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
250
anthoYS
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
203
anthoYS
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
250
un internaute
U
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
125
anthoYS
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
243
Nicolas JACQUIN
G
  • Question Question
Autres excel vba cellule aléatoires non vides
Réponses
3
Affichages
145
danielco
D
  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
23
Affichages
838
SAMUAL_2023
S
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
425
sylvanu
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
591
un internaute
U
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
231
patricko-13
P
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
772
Nicolas JACQUIN
M
  • Question Question
Autres remplir auto. l'objet de l'email avec nom PJ dans Outlook (et si pas de pj alors aucun objet)
2
Réponses
29
Affichages
1 K
TooFatBoy
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
783
thunder23
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
518
spike29
S
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
706
SAMUAL_2023
S
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
637
anthoYS
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
285
Francky79
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…