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

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

  • charlie verouiller les cellule.xlsm
    11.3 KB · Affichages: 58
Dernière édition:

DoubleZero

XLDnaute Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…