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

XL 2019 Confirmer la modification d'une cellule avant de la protéger en suite

A

arnoldbrice19

XLDnaute Nouveau
Bonjour mes experts, j'espère que vous vous portez bien ?

Je viens aujourd'hui avec une préoccupation.
Tout d'abord, j'ai deux codes : confirmation modification et verrouillage.
En effet, je souhaite qu'après avoir modifier une cellule avec le code suivant, qu'elle ne se verrouille seulement lorsque j'ai confirmé la valeur avec "Oui".
Lorsque je refuse la confirmation présentement avec le code suivant, elle verrouille la cellule. C'est le problème ! Autrement dit, en disant "Non" pour refuser la confirmation, il efface la valeur de la cellule (ce qui m'arrange), mais ne me laisse la possibilité de la modifier, la confirmer aussi avant qu'il ne verrouille la cellule.
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)

' ***********Premier code********* Confirmation de saisie
If MsgBox("Valider : " & Target, vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then
Application.EnableEvents = False   'évite évènement Change
Target = ""    'on efface le contenu
Application.EnableEvents = True  'remet évènement
Else
End If

' **********Deuxième code********** Verrouillage des cellules
If Not Intersect(Target, Range("B3:M3, B5:M6, B8:M8, B10:M27")) Is Nothing Then
ActiveSheet.Unprotect "1123"    'on déprotège la feuille
Target.Locked = True   'on verrouille les cellules
ActiveSheet.Protect "1123", DrawingObjects:=True, Contents:=True, Scenarios:=True _    'on protège la feuille
        , AllowSorting:=True, AllowFiltering:=True
    ActiveSheet.EnableSelection = xlNoRestrictions
End If

End sub
Ci joint le fichier

Merci par avance !!!
 

Pièces jointes

  • RECHERCHE H.xlsm
    30.3 KB · Affichages: 3
Solution
A
Bonsoir à tous !!!

J'ai pu trouver la solution à mon problème. Tout ce qu'il me fallait faire était tout d'abord de définir ma zone d'encodage avant d'exécuter par la suite la boite de dialogue MsgBox. Globalement, le code était bien écrit, mais très en désordre. Le travail du débutant n'est pas facile du tout.
Finalement, le code VB, solution à mon problème est le suivant :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("B3:M3, B5:M6, B8:M8, B10:M27")) Is Nothing Then   'définition de la zone d'encodage
If MsgBox("Valider : " & Target, vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then   'confirmation des saisies
Application.EnableEvents = False   'évite événement Change
Target...
Trier par date Trier par votes
A

arnoldbrice19

XLDnaute Nouveau
Le code est "0000" et non celui qui est là dans le message précédent (1123). J'ai modifier pour simplifier la tâche, mais j'ai oublié de le changer quand je m'exprimais plus haut.
Désolé !!!

Merci de m'aider, s'il vous plait !
 
Vote positif 0 Vote négatif
A

arnoldbrice19

XLDnaute Nouveau
Bonjour à tous,
Un bonjour particulier à Monsieur Jean.

J'ai compris mon problème hier, qui était le "End if" sur le code indiqué dans mon premier problème.
Toutefois, je reviens encore ce matin pour un autre tout petit souci que j'arrive pas à gérer.
En fait, je ne sais pas comment empêcher le MsgBox de s'exécuter en dehors des plages : ("B3:M3, B5:M6, B8:M8, B10:M27"). Puisque là présentement, ces places concernent le verrouillage des cellules concernées. Mais pourtant, j'aimerais qu'elles servent aussi de référence au MsgBox de confirmation de saisie au lieu qu'il s'exécute sur toute l'étendue de la feuille.

Merci de votre aide !
 
Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc
Bonjour,

c'est déjà le cas...

Par contre si tu veux pouvoir saisir dans certaines cellules il faut les déverrouiller :
- déprotéger la feuille
- sélectionner tes plages de saisie
- clic-droit dessus, 'Format de cellule / Protection' décocher 'Verrouillée'
- reprotéger la feuille
eric
 
Vote positif 0 Vote négatif
A

arnoldbrice19

XLDnaute Nouveau
Bonjour Eric,

Merci déjà pour ta réaction !
Je possède un document de facturation dans lequel je suis en train de constituer le code. Bref, la pièce jointe ci-dessus n'est qu'un document qui me sert de test.
Imaginons que je souhaite l'exécuter sur une cellule que je ne souhaite pas verrouiller !!!

J'ai fait des recherche et j'ai pu recueillir une petite infos sur la solution qui ne me débloque pas, car je ne m'y connais pas en macro. Mon niveau est médiocre. En fait, il m'est demandé de placer mon code après cette ligne :
VB: 
If Not Intersect(Target, Range("B3:M3, B5:M6, B8:M8, B10:M27")) Is Nothing Then
, puisque c'est elle qui définit la zone d'encodage.
 
Dernière édition:
Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc
Bonjour,
"Imaginons que je souhaite l'exécuter sur une cellule que je ne souhaite pas verrouiller !!!"
et bien où est le problème si la cellule est déverrouillée ?
Pour le reste je ne comprend pas tes explications parcellaires
eric
 
Vote positif 0 Vote négatif
A

arnoldbrice19

XLDnaute Nouveau
eriiic à dit:
....
Pour le reste je ne comprend pas tes explications parcellaires
eric
Cliquez pour agrandir...
Merci pour ta réaction Eric !
C'est juste qu'il y a parmi ma sélection des plages de saisie, certaines cellules qui ne doivent pas être verrouillées, qui recevront des valeurs, et que je ne souhaite pas qu'elles affichent le MsgBox.
Mais bon, ta solution est celle que j'ai prévu en plan B. A défaut, je laisserai ce code "MsgBox" de côté pour l'instant.
 
Vote positif 0 Vote négatif
A

arnoldbrice19

XLDnaute Nouveau
Bonsoir à tous !!!

J'ai pu trouver la solution à mon problème. Tout ce qu'il me fallait faire était tout d'abord de définir ma zone d'encodage avant d'exécuter par la suite la boite de dialogue MsgBox. Globalement, le code était bien écrit, mais très en désordre. Le travail du débutant n'est pas facile du tout.
Finalement, le code VB, solution à mon problème est le suivant :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("B3:M3, B5:M6, B8:M8, B10:M27")) Is Nothing Then   'définition de la zone d'encodage
If MsgBox("Valider : " & Target, vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then   'confirmation des saisies
Application.EnableEvents = False   'évite événement Change
Target = ""    'on efface le contenu de la cellule
Application.EnableEvents = True   'remet événement
Else
 
   'vérouillage des cellules après les avoir modifiées
ActiveSheet.Unprotect "0000"
Target.Locked = True
ActiveSheet.Protect "0000", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True
    ActiveSheet.EnableSelection = xlNoRestrictions

End If
End If
End Sub
Merci pour vos différentes réactions et à bientôt !!!
 

Pièces jointes

  • RECHERCHE H.xlsm
    28.5 KB · Affichages: 0
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

K
  • Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
266
Gégé-45550
T
  • Question
Microsoft 365 Suppression Réunion Outlook suite à modification de date sur fichier Excel
Réponses
0
Affichages
422
troki74
T
  • Résolu(e)
XL 2013 (RESOLU) Efface automatiquement le contenu d'une cellule en fonction d'une autre cellule
Réponses
9
Affichages
564
chaelie2015
A
  • Question
XL 2016 Verrouiller automatiquement la colonne précédente après avoir modifier une cellule de la colonne suivante
Réponses
0
Affichages
414
arnoldbrice19
A
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
D
  • Résolu(e)
Microsoft 365 Ajouter une date de création automatique selon colonne A et une date de modification selon colonne F
Réponses
1
Affichages
516
Phil69970
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
1 K
un internaute
U
S
  • Résolu(e)
XL 2019 code vba changement de couleur si modification de la cellule
Réponses
7
Affichages
2 K
syriak
S
L
  • Question
XL 2016 Aide code VBA verrouillage de la structure d'un onglet
Réponses
2
Affichages
1 K
laurent67
L
Z
  • Question
Microsoft 365 Changement de la valeur d'une cellule en fonction de la valeur d'une autre cellule
Réponses
7
Affichages
817
Zifox
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…