Interdire l'accées au cellule

Dull

XLDnaute Barbatruc

• 30 Avril 2012

• #2

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

 

Pièces jointes

• recette depense apdf.xlsm

  10.3 KB · Affichages: 45

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 30 Avril 2012

• #3

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 30 Avril 2012

• #4

Re : Interdire l'accées au cellule

Re,

Alors peut-être comme cela

Code:

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

 

Pièces jointes

• recette depense apdf1.xlsm

  17.4 KB · Affichages: 39

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 30 Avril 2012

• #5

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 30 Avril 2012

• #6

Re : Interdire l'accées au cellule

Re le fil

effectivement il faut remplacer

Code:

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

par

Code:

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

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 30 Avril 2012

• #7

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

 

Pièces jointes

• recette achat.xlsm

  16.9 KB · Affichages: 30

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 30 Avril 2012

• #8

Re : Interdire l'accées au cellule

Re

il faut, dans le code regarder cette partie

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

Cliquez pour agrandir...

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)

Cliquez pour agrandir...

Bonne Journée

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 30 Avril 2012

• #9

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

 

Vote positif 0 Vote négatif