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

J

JHA

XLDnaute Barbatruc

• 4 Septembre 2016

• #2

Bonjour à tous,

A essayer,

JHA

 

Pièces jointes

• Test N°1.xlsx

  11.2 KB · Affichages: 39

Vote positif 0 Vote négatif

M

M.D

XLDnaute Occasionnel

• 4 Septembre 2016

• #3

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 4 Septembre 2016

• #4

Bonjour à tous,

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

JHA

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 4 Septembre 2016

• #5

M.D à dit:

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

Cliquez pour agrandir...

bonjour,
A tester ceci dans le module de lafeuille

VB:

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

 

Pièces jointes

• Test N°1.xlsm

  15.4 KB · Affichages: 36

Vote positif 0 Vote négatif

M

M.D

XLDnaute Occasionnel

• 4 Septembre 2016

• #6

bonsoir,

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

M.D

 

Vote positif 0 Vote négatif