XL 2013 Interdire l'accées d'une cellule en fonction d'une valeur

[M.D]

Bonjour et bon dimanche à tous

Est-il possible:

Si en i5 , la valeur est egale " AC", Est-i possible que la cellule K5 prenne la couleur grise et interdire l'ecriture en K5?.

Par contre si en J5 la valeur est "NV", l'accés à la cellule K5 est autorisée.

je joins mon fichier en exemple.

Merci
M.D

 

[JHA]

Bonjour à tous,

A essayer,

JHA

 

[M.D]

Re Bonjour JHA,

Merci d'avoir répondu le principe est bien la recherche mais est-il pas possible de passe par VBA?
je pourrais ainsi

- interdire dans cette cellule tout sauf des chiffres quelque soit le cas de figure.

- Vider cette cellule après un message d'alerte.

Merci et bonne journée
M.D

 

[JHA]

Bonjour à tous,

Pour VBA, je ne maîtrise pas du tout, d'autres amis te donneront la solution.

JHA

 

[Jacky67]

Bonjour et bon dimanche à tous

Est-il possible:

Si en i5 , la valeur est egale " AC", Est-i possible que la cellule K5 prenne la couleur grise et interdire l'ecriture en K5?.

Par contre si en J5 la valeur est "NV", l'accés à la cellule K5 est autorisée.

je joins mon fichier en exemple.

Merci
M.D

bonjour,
A tester ceci dans le module de lafeuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$K$5" Then
        Application.EnableEvents = False
        If Not IsNumeric(Target) Or (UCase([i5]) = "AC" And (UCase([J5]) <> "NV") _
                                     Or [i5] = "" And [J5] = "") Then
            MsgBox "Saisie interdite ou erronée", , "Information"
            Target = ""
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[M.D]

bonsoir,

Merci pour votre aide. ça répond bien à mes besoins.

M.D