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

(RESOLU par DOUBLE ZERO)Verrouiller des cellules sous condotions

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 !

chaelie2015

XLDnaute Accro
Bonjour Forum
Je souhaite Verrouiller une zone selon la valeur d’une cellule
Exemple
si B4 = ‘Non Applicable’ Alors Verrouiller la zone C4-F4
B5 = ‘Non Applicable’ Alors Verrouiller la zone C5-F5
B6 = ‘Non Applicable’ Alors Verrouiller la zone C6-F6
B7 = ‘Non Applicable’ Alors Verrouiller la zone C7-F7
B8 = ‘Non Applicable’ Alors Verrouiller la zone C8-F8
B9 = ‘Non Applicable’ Alors Verrouiller la zone C9-F9
B10 = ‘Non Applicable’ Alors Verrouiller la zone C10-F10
B11= ‘Non Applicable’ Alors Verrouiller la zone C11-F11
B12 = ‘Non Applicable’ Alors Verrouiller la zone C12-F12
NB: C c'est une liste déroulante
Salutation
 

Pièces jointes

Dernière édition:
Re : Verrouiller des cellules sous condotions

Bonjour, chaelie2015, djidji59430, le Forum

Un essai, en attendant mieux, avec les deux codes suivants :

Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b4:b12")) Is Nothing Then
        If Target.Value = "Non Applicable" Then
            Target.Offset(, 1).Resize(, 4).Interior.ColorIndex = 2
        Else
            Target.Offset(, 1).Resize(, 4).Interior.ColorIndex = xlNone
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal c As Range)
    If c.Interior.ColorIndex = 2 Then c.End(xlToLeft).Select
End Sub

A bientôt 🙂
 
- 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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…