Note: The other languages of the website are Google-translated. Back to English
Connexion Inscription

Comment verrouiller ou déverrouiller des cellules en fonction des valeurs d'une autre cellule dans Excel?

Dans certains cas, vous devrez peut-être verrouiller ou déverrouiller des cellules en fonction des valeurs d'une autre cellule. Par exemple, vous devez déverrouiller la plage B1: B4 si la cellule A1 contient la valeur «Accepting»; et à verrouiller si la cellule A1 contient la valeur «Refus». Comment pouvez-vous y parvenir? Cet article peut vous aider.

Verrouiller ou déverrouiller des cellules en fonction des valeurs d'une autre cellule avec le code VBA

Verrouiller ou déverrouiller des cellules en fonction des valeurs d'une autre cellule avec le code VBA

Le code VBA suivant peut vous aider à verrouiller ou déverrouiller des cellules en fonction de la valeur d'une autre cellule dans Excel.

1. Cliquez avec le bouton droit sur l'onglet de la feuille (la feuille contenant les cellules que vous devez verrouiller ou déverrouiller en fonction des valeurs d'une autre cellule), puis cliquez sur Voir le code dans le menu contextuel.

2. Puis copiez et collez le code VBA suivant dans la fenêtre Code.

Code VBA: verrouiller ou déverrouiller les cellules en fonction des valeurs d'une autre cellule

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = "Accepting" Then
        Range("B1:B4").Locked = False
    ElseIf Range("A1") = "Refusing" Then
        Range("B1:B4").Locked = True
    End If
End Sub

3. appuie sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

Désormais, lorsque vous entrez la valeur «Accepting» dans la cellule A1, la plage B1: B4 est déverrouillée.

Lors de la saisie de la valeur «Refus» dans la cellule A1, la plage spécifiée B1: B4 est verrouillée automatiquement.

Articles connexes:

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (52)
Pas encore de notes. Soyez le premier à évaluer!
Sheetal Rao
Sheetal Rao
Ce commentaire a été minimisé par le modérateur sur le site
Comment verrouiller/déverrouiller une cellule variable, par exemple lorsque la cellule est [=INDEX(A16:L35,MATCH(W5,A16:A35,0),MATCH("PAY",A16:L16,0))]
Répondre
0
0
Mohamed Mandlaywala
Mohamed Mandlaywala     Sheetal Rao
Ce commentaire a été minimisé par le modérateur sur le site
Je veux une commande VBA simple que je ne parviens pas à comprendre, aidez-moi
Si la cellule A1 est Balnk, la cellule A2 est verrouillée et si la cellule A1 contient une valeur, la cellule A2 est déverrouillée.
De même, si la cellule A2 est vide, la cellule A3 est verrouillée et si la cellule A2 contient une valeur, la cellule A3 est déverrouillée.
et ainsi de suite autant de cellules que nécessaire dans n'importe quelle partie de la feuille.
Répondre
0
0
fourmi
fourmi
Ce commentaire a été minimisé par le modérateur sur le site
Salut, j'essaie d'y parvenir, mais j'obtiens une erreur indiquant que VBA est incapable de définir la propriété Locked de la classe Range si la feuille a été protégée. Déprotéger la feuille annulera alors le verrouillage de la cellule. Comment contourner cela ? Merci pour toute aide.
Répondre
0
0
Note
Note     fourmi
Ce commentaire a été minimisé par le modérateur sur le site
Avez-vous résolu? J'ai le même problème
Répondre
0
0
cristal
cristal     Note
Ce commentaire a été minimisé par le modérateur sur le site
Cher Mémo,
Veuillez essayer le code VBA ci-dessous.

Private Sub Worksheet_Activate ()
Si ce n'est pas ActiveSheet.ProtectContents Alors
Plage("A1").Locked = False
Plage("B1:B4").Verrouillé = Faux
Si fin
End Sub
Private Sub Worksheet_SelectionChange (Cible ByVal en tant que plage)
Dim xRg As Range, xRgA As Range
On Error Resume Next
Application.EnableEvents = False
Définir xRg = Plage("B1:B4")
Définir xRgA = Plage("A1")
Si Intersection(Cible, xRg).Adresse <> Cible.Adresse _
Ou xRgA = "Accepter" Alors
Application.EnableEvents = True
Exit Sub
SinonSi ActiveSheet.ProtectContents _
Et Intersection(Cible, xRg) = Cible _
Et xRgA.Value = "Refusant" Alors
xRgA.Select
Si fin
Application.EnableEvents = True
End Sub
Répondre
Rapport
0
0
Henri
Henri     fourmi
Ce commentaire a été minimisé par le modérateur sur le site
Vous voudrez utiliser la ligne d'interface dans le classeur afin que lorsque vous ouvrez le fichier, il protège les feuilles mais autorise les macros à apporter des modifications de toute façon.

Private Sub Workbook_Open() 'Cela va dans "ThisWorkbook"

Worksheets("Order Tool").Protect Password:="Pwd", UserInterFaceOnly:=True

End Sub
Répondre
0
0
cristal
cristal     fourmi
Ce commentaire a été minimisé par le modérateur sur le site
Chère fourmi,
Le code VBA ci-dessous peut vous aider à résoudre ce problème. Merci pour votre commentaire.

Private Sub Worksheet_Activate ()
Si ce n'est pas ActiveSheet.ProtectContents Alors
Plage("A1").Locked = False
Plage("B1:B4").Verrouillé = Faux
Si fin
End Sub
Private Sub Worksheet_SelectionChange (Cible ByVal en tant que plage)
Dim xRg As Range, xRgA As Range
On Error Resume Next
Application.EnableEvents = False
Définir xRg = Plage("B1:B4")
Définir xRgA = Plage("A1")
Si Intersection(Cible, xRg).Adresse <> Cible.Adresse _
Ou xRgA = "Accepter" Alors
Application.EnableEvents = True
Exit Sub
SinonSi ActiveSheet.ProtectContents _
Et Intersection(Cible, xRg) = Cible _
Et xRgA.Value = "Refusant" Alors
xRgA.Select
Si fin
Application.EnableEvents = True
End Sub
Répondre
Rapport
0
0
chrétien
chrétien     cristal
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

Est-il possible que ce VBA verrouille un ensemble de cellules/déverrouille un autre en fonction de cela? Par exemple, la plage B1:B4 est déverrouillée et C1:C4 est verrouillée pour "accepter", puis B1:B4 est verrouillée et C1:C4 est déverrouillée pour "refuser" ?


Merci,
chrétien
Répondre
0
0
cristal
cristal     chrétien
Ce commentaire a été minimisé par le modérateur sur le site
Cher Christian,
Votre feuille de calcul est-elle protégée ?
Répondre
Rapport
0
0
Lion
Lion
Ce commentaire a été minimisé par le modérateur sur le site
s'il vous plaît quelqu'un peut-il m'aider avec ce qui suit.
Je veux insérer des photos d'étudiants dans une feuille, apparaît dans une autre feuille en fonction de leurs noms
Pour créer un plan de navigation pour aider les utilisateurs
Pour attribuer une ou plusieurs feuilles particulières à un utilisateur
Pour créer une interface pour le classeur
Pour créer une page de connexion
Répondre
0
0
cristal
cristal     Lion
Ce commentaire a été minimisé par le modérateur sur le site
Cher Léo,
Pour toute question sur Excel, n'hésitez pas à poster dans notre forum : https://www.extendoffice.com/forum.html.
Vous obtiendrez plus de supports sur Excel de notre professionnel Excel.
Répondre
Rapport
0
0
Kristoffer
Kristoffer
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

J'ai essayé votre code et modifié un peu, mais je ne peux pas comprendre ce que je fais de mal ici?

Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Si Plage("A40") <> "" Alors
Plage("D40:E40").Verrouillé = Faux
ElseIf Range("A40") = "" Alors
Plage ("D40: E40"). Verrouillé = Vrai
Si fin
End Sub


Ma pensée à ce sujet était s'il n'y avait rien dedans (A40). Ensuite, je veux verrouiller par VBA. Si A40 contient quelque chose, je veux qu'il soit déverrouillé. J'espère que vous en voyez le sens.


Cordialement Kristoffer
Répondre
0
0
cristal
cristal     Kristoffer
Ce commentaire a été minimisé par le modérateur sur le site
Good Day,
Il n'y a rien de mal avec votre code. Cela fonctionne bien pour moi.
Répondre
Rapport
0
0
Keeran B
Keeran B     cristal
Ce commentaire a été minimisé par le modérateur sur le site
Salut. Moi aussi je n'arrive pas à faire fonctionner ce code. Cela ne fait absolument rien. Comme si le code n'était même pas là ?? Je suis très nouveau sur VBA et j'ai une compréhension de base à ce sujet. Ce code est-il exécuté tel quel ou doit-il également contenir des éléments supplémentaires pour qu'il s'exécute? Ou transformé en macro (dont je ne comprends pas vraiment pourquoi parce que c'est un enregistrement d'instructions, selon ma compréhension de celles-ci)
Répondre
0
0
shaïna
shaïna
Ce commentaire a été minimisé par le modérateur sur le site
QUEL SERA LE CODE SI JE VEUX VERROUILLER LA CELLULE E1, E2, E3 .............. POUR UN TEXTE SPÉCIFIQUE (DISONS "P") SUR LA CELLULE B1, B2, B3... ..............RESPECTIVEMENT.

MERCI D'AVANCE
Répondre
0
0
cristal
cristal     shaïna
Ce commentaire a été minimisé par le modérateur sur le site
Bonne journée
Veuillez essayer le script VBA ci-dessous.

Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Si Target.Count = 1 Alors
Si Target.Address = Range("A1").Address And Target.Value = "A" alors
Plage ("B1"). Verrouillé = Vrai
ElseIf Target.Address = Range("A2").Address And Target.Value = "A" Then
Plage ("B2"). Verrouillé = Vrai
ElseIf Target.Address = Range("A3").Address And Target.Value = "A" Then
Plage ("B3"). Verrouillé = Vrai
Si fin
Si fin
End Sub
Répondre
Rapport
0
0
Ghost
Ghost     cristal
Ce commentaire a été minimisé par le modérateur sur le site
Bonne journée!
Мне тоже необходимо заблокировать значение, но только в одной ячейке в зависимости от значения в другой, я попробовала использовать код в комментарии выше, но он не работает(оставила только один параметр для блокировки), но он у меня не работает - при этом нет сообщения об ошибке, ячейка, которая должна быть заблокирована - просто не блокируется. В чем может быть причина?

Вот код, который я использовала :

Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Si Target.Count=1 Alors
Si Target.Address = Range("C9").Address And Target.Value = "согласно плану" Alors
Plage ("C10"). Verrouillé = Vrai
Si fin
End Sub
Répondre
0
0
cristal
cristal     Ghost
Ce commentaire a été minimisé par le modérateur sur le site
Salut Ghost,
Je suis désolé, je ne comprends pas très bien ce que vous voulez dire. Pour plus de clarté, veuillez joindre un exemple de fichier ou une capture d'écran avec vos données et les résultats souhaités.
Répondre
Rapport
0
0
margie
margie
Ce commentaire a été minimisé par le modérateur sur le site
Salut! besoin de conseils.
Existe-t-il un moyen de ne pas autoriser la mise à jour d'une cellule à moins qu'elle n'ait satisfait à une condition sur une autre cellule ?
Exemple : si la cellule A n'est pas mise à jour, cela ne me permettra pas de modifier la valeur de la cellule B pour terminer.

Appréciez les commentaires.
Merci !
Répondre
0
0
cristal
cristal     margie
Ce commentaire a été minimisé par le modérateur sur le site
Chère Margie,
Veuillez essayer ci-dessous le code VBA.

Dim PreVal As String
Dim NextVal As String
Private Sub Worksheet_Activate ()
PréVal = Plage("A1")
NextVal = Range("A1")
End Sub
Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Si (Target.Count = 1) Et (Target.Address = "$A$1") Alors
NextVal = Range("A1")
Si fin
End Sub
Private Sub Worksheet_SelectionChange (Cible ByVal en tant que plage)
Si Target.Count = 1 Alors
Si Target.Address = "$A$1" alors
PréVal = Plage("A1")
SinonSi (Cible.Adresse = "$B$1") Alors
Si PreVal = NextVal Alors
Application.EnableEvents = False
Plage("A1").Sélectionnez
Application.EnableEvents = True
Si fin
Si fin
Si fin
End Sub
Répondre
Rapport
0
0
Horace
Horace
Ce commentaire a été minimisé par le modérateur sur le site
quelqu'un peut-il corriger cela svp>>>

Private Sub Worksheet_Change (Cible ByVal en tant que plage)
For i = 7 Pour 100
Si Range("Cellules(D, i)") = "Prêt" Alors
Range("Cells(V, i):Cells(X, i)").Locked = True
ElseIf Range("Cells(D, i)") = "Savings" Then
Range("Cells(Q, i):Cells(U, i)").Locked = True
Range("Cells(W, i):Cells(X, i)").Locked = True
ElseIf Range("Cells(D, i)") = "ShareCap" Alors
Range("Cells(Q, i):Cells(U, i)").Locked = True
Range("Cells(V, i)").Locked = True
Si fin
Suivant i
End Sub
Répondre
0
0
Mira
Mira
Ce commentaire a été minimisé par le modérateur sur le site
Salut! Est-ce que quelqu'un peut m'aider? Je dois verrouiller/geler une cellule. Cette cellule est liée à une autre et a une valeur qui change toutes les minutes. Ce que je dois faire, c'est conserver la valeur pendant une certaine minute/heure. Comment puis-je faire cela sans le copier et le coller comme valeur?
Répondre
0
0
cristal
cristal     Mira
Ce commentaire a été minimisé par le modérateur sur le site
Chère Mira,
Désolé, je ne peux pas vous aider, vous pouvez poser votre question sur notre forum : https://www.extendoffice.com/forum.html pour obtenir plus de supports Excel de notre professionnel.
Répondre
Rapport
0
0
Andor Veres
Andor Veres
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Je suis vraiment nouveau dans ce domaine.
J'ai essayé de mettre en place un système de facturation dans Excel.
J'ai créé 3 feuilles.
1. Modèle de facture (facture) - Juste une facture générique qui est envoyée à mes agents chaque semaine.

2. Une fiche technique (Fiche technique) pour être exact - où la facture peut lire l'adresse du nom de l'entreprise, etc. Ainsi, si quelque chose change, la facture sera automatiquement mise à jour.

3. Un onglet de calendrier (Calendrier 2018) pour être exact - qui est référencé dans le modèle de facture, et met la date et le numéro de facture correspondants sur les factures réelles.

Ce que je veux faire.
L'onglet calendrier serait ma page principale, j'ai ajouté une cellule déroulante de statut pour chaque semaine avec les options "Actif" et "Fermé". Je souhaite verrouiller l'ensemble de l'onglet "Facture" si la cellule correspondante est définie sur "Fermé".

J'espère que vous comprenez ce que j'essaie de faire.
Merci d'avance.
Répondre
Rapport
0
0
cristal
cristal     Andor Veres
Ce commentaire a été minimisé par le modérateur sur le site
Cher Ando Veres.
Le code VBA ci-dessous peut vous aider. Veuillez placer le code dans la fenêtre de code de feuille du calendrier 2018, modifiez A1 dans votre cellule déroulante. Merci.

Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Dim xRg As Range
On Error Resume Next
Définir xRg = Intersection(Cible, Plage("A1"))
Si xRg n'est rien, quittez Sub
Si Target.Validation.Type >= 0 Alors
Si Target.Value = "Fermé" Alors
Feuilles ("Fiche technique").Protéger
SinonSi xRg.Valeur = "Actif" Alors
Sheets("Data Sheet").Déprotéger
Si fin
Si fin
End Sub
Répondre
Rapport
0
0
KB
KB
Ce commentaire a été minimisé par le modérateur sur le site
Je prépare un modèle de gestion des stocks d'entrepôt dans un modèle Excel. Pour livrer un stock, je dois émettre un laissez-passer. la ligne sera verrouillée et la suivante sera remplie.
Répondre
0
0
cristal
cristal     KB
Ce commentaire a été minimisé par le modérateur sur le site
Good Day,
Ce serait bien si vous pouviez télécharger votre classeur ici. Merci pour votre commentaire.
Répondre
Rapport
0
0
Joe
Joe
Ce commentaire a été minimisé par le modérateur sur le site
Pouvez-vous me guider sur ce qui ne va pas ici s'il vous plaît? Merci en avance.

Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Si Range("K:K") = "OVER STOCK" Alors
Plage("S:S").Locked = True
ElseIf Range("K:K") = "MOUVEMENT LENT" Alors
Plage("S:S").Locked = True
ElseIf Range("K:K") = "NORMAL" Alors
Plage("S:S").Locked = False
ElseIf Range("K:K") = "PÉNURIE" Alors
Plage("S:S").Locked = False
Si fin
End Sub
Répondre
0
0
Joe
Joe
Ce commentaire a été minimisé par le modérateur sur le site
Auriez-vous la gentillesse de me conseiller sur la façon de corriger cela? Merci en avance.

Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Si Range("A:A") = "MOUVEMENT LENT" Alors
Plage("B:B").Locked = True
ElseIf Range("A:A") = "OVER STOCK" Alors
Plage("B:B").Locked = True
ElseIf Range("A:A") = "NORMAL" Alors
Range("B:B").Locked = False
Si fin
End Sub
Répondre
Rapport
0
0
Aucun expert
Aucun expert     Joe
Ce commentaire a été minimisé par le modérateur sur le site
N'étant pas un expert en VB, je dirais que vous avez trop de "Elseif" - si vous les changez tous en juste IF sauf le dernier, j'espère que cela fonctionnera.
Fondamentalement, si X fait ceci, si Y fait ceci, si Z fait ceci, si aucun de ceux-ci - faites ceci.
Répondre
0
0
Mitchyll
Mitchyll
Ce commentaire a été minimisé par le modérateur sur le site
Comment serait le code si je voulais verrouiller un bloc de cellules (lignes 6, 7 et 8/lettres D à U ainsi que les cellules F5 et J5) et les déverrouiller lorsque je mets un "X" dans la cellule E5 ? Merci d'avance!
Répondre
Rapport
0
0
cristal
cristal     Mitchyll
Ce commentaire a été minimisé par le modérateur sur le site
Salut MitchyII,
Voulez-vous dire que le bloc de cellules spécifié a été verrouillé manuellement à l'avance et que vous souhaitez simplement le déverrouiller en tapant un "X" dans la cellule E5 ?
Si vous supprimez "X" de la cellule E5, voulez-vous verrouiller à nouveau les plages ?
J'ai besoin de plus de détails sur le problème.
Merci pour votre commentaire.
Répondre
Rapport
0
0
Jennifer Cornell
Jennifer Cornell     cristal
Ce commentaire a été minimisé par le modérateur sur le site
Salut Mitchyll (ou n'importe qui), en s'appuyant sur Crystal. J'ai verrouillé manuellement toutes les cellules et sur la base des informations de la colonne G, je souhaite qu'elles restent verrouillées ou déverrouillées. Les exemples de cellules dans la colonne H doivent UNIQUEMENT être déverrouillés si "c/p" est placé dans la cellule précédente de la colonne G
Répondre
0
0
Zk
Zk
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de verrouiller une cellule lorsqu'elle atteint une certaine valeur ?
Répondre
0
0
Christian Conti Gennaro
Christian Conti Gennaro
Ce commentaire a été minimisé par le modérateur sur le site
Salut, pourriez-vous vérifier la raison pour laquelle cela ne fonctionne pas?

Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Si Plage("A3:A37").Valeur <> "" Alors
Plage ("B3: B37"). Verrouillé = Vrai
ElseIf Range("A3:A37") = "" Alors
Plage("B3:B37").Verrouillé = Faux
Si fin

Si Plage("B3:B37").Valeur <> "" Alors
Range("A3:A37").Locked = True
ElseIf Range("B3:B37") = "" Alors
Range("A3:A37").Locked = False
Si fin

End Sub


Merci beaucoup d'avance!!!
Répondre
Rapport
0
0
Chandrakanth
Chandrakanth
Ce commentaire a été minimisé par le modérateur sur le site
Hi
Je viens d'essayer d'utiliser le code ci-dessus
et il indique une erreur de type 13 lorsque j'essaie de l'utiliser.
pourriez-vous m'aider avec ça?

Je vous remercie
Répondre
0
0
cristal
cristal     Chandrakanth
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Quelle version d'Excel utilisez-vous ?
Répondre
Rapport
0
0
benthé
benthé
Ce commentaire a été minimisé par le modérateur sur le site
hi

si j'ai besoin de verrouiller une cellule sur la feuille 2 (cellule C4) en fonction d'une réclamation de la feuille 1 (cellule C1),
si "non" sur la feuille 1 C4 ; la feuille 2 doit être verrouillée et elle doit reprendre la valeur de la feuille 1 C4,
à la feuille 2 C4.

si "oui" sur la feuille 1, je dois pouvoir taper dans la cellule de la feuille 2

Merci Benthe
Répondre
Rapport
0
0
satya
satya
Ce commentaire a été minimisé par le modérateur sur le site
Salut, s'il vous plaît, aidez-moi pour le code VBA.

si je sélectionne dans le menu déroulant de la plage de cellules (A1: A1000) "abc", ne verrouillez pas la plage (D1: D1000) à (F1: F1000)



si je sélectionne dans le menu déroulant de la plage de cellules (A1: A1000) "abc", ne verrouillez pas la plage (D1: D1000) à (F1: F1000)



si je sélectionne dans le menu déroulant de la plage de cellules (A1: A1000) "abc", puis verrouillez la plage (D1: D1000) sur (F1: F1000)



c'est-à-dire la cellule respective A1 pour D1 à F1



A2 pour D2 à F2
Répondre
0
0
Kyle
Kyle
Ce commentaire a été minimisé par le modérateur sur le site
J'ai tout copié d'en haut dans une feuille. Cela a fonctionné pendant une seconde et maintenant j'obtiens l'erreur "Impossible de définir la propriété Locked de la classe Range". J'ai même ouvert une toute nouvelle feuille et copié textuellement votre exemple. Une idée de ce qui se passe ?
Répondre
0
0
Steffi
Steffi
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

J'ai besoin de votre faveur. Lorsque je sélectionne Aucune option dans une cellule, je souhaite que les colonnes ci-dessous soient verrouillées/grisées.

Est-ce possible? j'ai essayé cette formule mais ça marche pas

Private Sub Worksheet_Change (Cible ByVal en tant que plage)

Si Plage("D90") = "Oui" Alors

Plage("C94:F104").Verrouillé = Faux

ElseIf Range("D90") = "Non" Alors

Plage ("C94: F104"). Verrouillé = Vrai

Si fin

End Sub
Répondre
0
0
cristal
cristal     Steffi
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Steffi,
Le code fonctionne bien.
Si vous souhaitez verrouiller la plage de cellules pour empêcher toute modification, vous devez protéger la feuille de calcul manuellement après avoir sélectionné l'option Aucune dans D90.
Et comme D90 est dans la plage C94:F104, après avoir protégé la feuille de calcul, D90 ne peut pas non plus être modifié.
Répondre
Rapport
0
0
Michel
Michel     cristal
Ce commentaire a été minimisé par le modérateur sur le site
D90 n'est pas dans la gamme. C'est 4 rangées au-dessus de C94
Répondre
0
0
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
GUEST
Publier en tant qu'invité
Espace client
×
Évaluez cet article:
Réinitialiser
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL