Interdire l'accées au cellule

[apdf]

Bonjour,

Est-il possible d'interdire l'accès à la cellule si elle ne correspond pas au critères

Pour illustrer ma demande, je joins un fichier

Je vous remercie de votre aide

 

[Dull]

Re : Interdire l'accées au cellule

Salut apdf, le Forum

Peut-être avec une Validation de Données
Onglet Données/Validation

Voir fichier joint

Bonne Journée

 

[apdf]

Re : Interdire l'accées au cellule

Bonjour Dull,

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

Merci et bonne journée

 

[Dull]

Re : Interdire l'accées au cellule

Re,

Alors peut-être comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Or Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [D:D]) Is Nothing Then
    If Not IsNumeric(Target) Then MsgBox "Ce n'est pas une valeur numérique": Target = ""
    If Left(Target.Offset(, -1), 7) <> [D3] Then MsgBox "Ce n'est pas une Depense": Target = ""
End If
If Not Intersect(Target, [E:E]) Is Nothing Then
    If Not IsNumeric(Target) Then MsgBox "Ce n'est pas une valeur numérique": Target = ""
    If Left(Target.Offset(, -2), 7) <> [E3] Then MsgBox "Ce n'est pas une Recette": Target = ""
End If
End Sub

à mettre dans le module de la feuille

Bonne Journée

 

[apdf]

Re : Interdire l'accées au cellule

Re Dull,

Je te remercie beaucoup exactement la recherche.......
Juste une petite info pourquoi je ne peut pas changer l'intituler de la ligne 3?

Sinon génial merci encore

 

[Dull]

Re : Interdire l'accées au cellule

Re le fil

effectivement il faut remplacer

If Not Intersect(Target, [D:D]) Is Nothing Then

par

If Not Intersect(Target, [D4:D65000]) Is Nothing Then

à faire de même pour la colonne E
et ça devrait le faire

Bonne Journée

 

[apdf]

Re : Interdire l'accées au cellule

Re

Je suis désoler mais je n'arrive pas a lui changer la valeur depense conte Achat ?

ci joint le fichier modifier

 

[Dull]

Re : Interdire l'accées au cellule

Re

il faut, dans le code regarder cette partie

Left(Target.Offset(, -1), 7)

veux dire
si la partie gauche à hauteur de 7 lettres de la cellule active est = 7 alors

[TABLE="class: grid, width: 500"]
[TR]
[TD]Dépense
[/TD]
[TD]7 lettres[/TD]
[/TR]
[TR]
[TD]Achat[/TD]
[TD]5 Lettres[/TD]
[/TR]
[/TABLE]

ce qui changerait dans le Code

Left(Target.Offset(, -1), 5)

Bonne Journée

 

[apdf]

Re : Interdire l'accées au cellule

Re,

Excuse moi c'est Nickel je te remercie beaucoup et te souhaite un bon WE du 1er Mai