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

Interdiction de modifier le contenu d'une cellule à condition que....

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ctlau
  • 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
C

ctlau

Guest
Bonjour à tous,


Je rentre de suite dans le vif du sujet, j'ai deux colonnes (B,C) ou je rentre des informations, et en colonne H le résultat d'une formule.
Si c'est possible, je voudrai interdire la modification de la ligne en (B et C) si H est égale à "X"
Textuellement, interdire la modification de la référence (B) et de la quantité (C) si dans la colonne H il y a un "X".
Donc tant que H est vide on peut modifier B et C.
Tout en sachant que la feuille est protégée. (mdp => "aze")
je vous joints un fichier qui sera certainement plus parlant 😛

Merci d'avance pour vos réponses, du moins je l'espère.
 

Pièces jointes

Trier par date Trier par votes
Re : Interdiction de modifier le contenu d'une cellule à condition que....

Bonsoir.

Je pense que le mieux serait d'agir lors de la modification de la colonne H par la personne ou le code qui y a accès, en modifiant la propriété Locked des cellules selon qu'on y met ou non un X.
 
Vote positif 0 Vote négatif
Re : Interdiction de modifier le contenu d'une cellule à condition que....

Bonjour et merci Dranreb,

Mais est-ce-qu'il y aura une âme charitable qui voudrait bien me donner quelques lignes de code, car personnellement je n'y comprends pas grand chose en VBA.

Merci à vous.
 
Vote positif 0 Vote négatif
Re : Interdiction de modifier le contenu d'une cellule à condition que....

Bonsoir.

À mettre dans le module Feuil1 (Feuil1) :
VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Set Target = Intersect(Me.[H2:H6000], Target)
If Target Is Nothing Then Exit Sub
For Each Cel In Target
   Intersect(Me.[B:C], Cel.EntireRow).Locked = Not IsEmpty(Cel.Value)
   Next Cel
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

P
  • Question Question
XL 2021 inscrire le nombre d'une cellule dans une liste dans une colonne
Réponses
6
Affichages
413
OKBI
O
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
367
sebastien176
S
  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
464
Zdz16
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
D
  • Résolu(e)
Microsoft 365 Mise à jour de certaines données dans une ListView d'un UserForm
Réponses
8
Affichages
843
Diane272727
D
D
  • Résolu(e)
XL 2016 Peut-on intégrer une condition de temps à une cellule ?
Réponses
8
Affichages
648
Damstarr
D
C
  • Résolu(e)
Microsoft 365 Dater la modification d'une cellule sans macro
Réponses
2
Affichages
843
carlos
C
T
  • Question Question
Microsoft 365 extraire plusieurs parties de texte dans le contenu d'une cellule
Réponses
4
Affichages
808
Cousinhub
  • Question Question
XL 2019 [Résolu] Modifier le contenu d'une cellule fusionner.
Réponses
12
Affichages
1 K
TooFatBoy
V
  • Question Question
Microsoft 365 copie de couleur d'une cellule à une autre sous condition
2 3
Réponses
35
Affichages
3 K
virdg
V
C
  • Résolu(e)
Microsoft 365 Créer un RV outlook à partir de chaque ligne d'un tableau
Réponses
8
Affichages
2 K
c.branco
C
  • Résolu(e)
XL 2019 Trouver une valeur et modifier le contenu de la cellule correspondante
Réponses
2
Affichages
800
mobenjilali
  • Question Question
XL 2016 Alimenter une feuille à partir de cellules sélectionnées d'une autre feuille
Réponses
3
Affichages
856
C'est papy Mougeot !
G
  • Résolu(e)
Microsoft 365 Formule avec pour référence le résultat d'une autre formule pour indiquer la colonne de référence
Réponses
1
Affichages
835
JHA
J
L
  • Question Question
Microsoft 365 Récupérer le nom de la colonne portant la dernière valeur supérieure à 0 sur une ligne
Réponses
3
Affichages
691
LucileCrn
L
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
901
Mody200
M
N
  • Question Question
XL 2016 Copie automatique VBA d'une cellule spécifique de toutes les feuilles du classeur
2 3
Réponses
35
Affichages
3 K
Staple1600
S
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellule sur la même ligne d'une autre feuille
Réponses
6
Affichages
966
Robert
U
  • Question Question
Autres [RÉSOLU] Peut-on mettre en couleur le fond de la cellule en rouge avec une MFC?
2
Réponses
19
Affichages
1 K
M12
L
  • Question Question
XL 2019 Problématique de conservation de valeur à un instant T
Réponses
7
Affichages
705
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…