(RESOLU par DOUBLE ZERO)Verrouiller des cellules sous condotions

[chaelie2015]

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

 

[djidji59430]

Re : Verrouiller des cellules sous condotions

Bonjour,


Tu selectionnes ta zone C4-F4, puis Données ==>validation de donnée==>personnalisé==> =$B$4="Non Applicable"

 

[chaelie2015]

Re : Verrouiller des cellules sous condotions

Bonjour,


Tu selectionnes ta zone C4-F4, puis Données ==>validation de donnée==>personnalisé==> =$B$4="Non Applicable"

Bonjour DJIDJI
Merci pour la réponse, mais je ne peux pas la faire parceque j'ai mentionné que dans les Cellules C j'ai une liste deroulante
MERCI

 

[djidji59430]

Re : Verrouiller des cellules sous condotions

Re
Je n'avais pas compris le NB !

 

[chaelie2015]

Re : Verrouiller des cellules sous condotions

Bonjour djidji , forum
Merci djidji, espérant que mon souci est claire?
Merci par avance

 

[DoubleZero]

Re : Verrouiller des cellules sous condotions

Bonjour, chaelie2015, djidji59430, le Forum

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

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

 

[chaelie2015]

Re : Verrouiller des cellules sous condotions

Bonjour DOUBLE ZERO
Je vais le tester et je vous répond, je suis en route..
Désolé et Merci par avance
SALUTATIONS

 

[chaelie2015]

Re : Verrouiller des cellules sous condotions

Bonjour apres midi double zero
Merci ,c'est super
PBLM RESOLU
SALUTATION