Bloquer l'écriture sur une cellule (seulement)

S

sab-77

Guest

• 14 Septembre 2006

• #2

Re : Bloquer l'écriture sur une cellule (seulement)

Bonsoir,

je ne sais pas si c'est la bonne solution mais j'ai déjà eu à faire kkechose de ce style.
tu sélectionnes tes cellules modifiables, puis dans format / cellules / protection, tu décoches, VERROUILLE
ensuite par le menu Outils/ protection / tu protèges ta feuille (avec ou sans mot de passe) et le tour est joué. (en tout cas j'avais fais comme ça et ça marchait bien !)

 

Vote positif 0 Vote négatif

E

EBL

Guest

• 14 Septembre 2006

• #3

Resolu : Bloquer l'écriture sur une cellule (seulement)

Super ça marche Nickel.
En plus quand on y réfléchis bien ... C'est une logique à laquelle j'avais pas pensé

Merci à toi

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Septembre 2006

• #4

Re : Bloquer l'écriture sur une cellule (seulement)

Bonsoir EBL, sab-77, le Forum,

Sans protéger la feuille,

Clic droit sur l'onglet de ta feuille, Visualiser le code, et tu colles ceci :

Colonne A et/ou plage à adapter.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("a1:a20")) Is Nothing Then Range("b1").Select

End Sub

Bonne soirée,

Jean-Pierre

 

Vote positif 0 Vote négatif

S

sab-77

Guest

• 14 Septembre 2006

• #5

Re : Bloquer l'écriture sur une cellule (seulement)

c'est vrai quand on connait le VBA c'est mieux !

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Septembre 2006

• #6

Re : Bloquer l'écriture sur une cellule (seulement)

Re,

On peut aussi n'autoriser que les cellules B1:B20 (par exemple) en modifiant comme suit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("b1:b20")) Is Nothing Then Range("b1").Select

End Sub

Jean-Pierre

 

Vote positif 0 Vote négatif

E

EBL

Guest

• 18 Septembre 2006

• #7

Re : Bloquer l'écriture sur une cellule (seulement)

Jean Pierre,

Merci à toi pour cette soluce.

Cependant je suis maintenant confronté à un autre problème.
Une fois la feuille protégée, les utilisateurs de ce fichier ne peuvent pas utiliser les filtres automatiques.

Y a-t'il une solution à cela?

Bav

Ebl

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 18 Septembre 2006

• #8

Re : Bloquer l'écriture sur une cellule (seulement)

Bonjour,

... d'où la soluce en VBA je pense

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 18 Septembre 2006

• #9

Re : Bloquer l'écriture sur une cellule (seulement)

Bonjour EBL, le fil,

La solution du 14/09 à 20h45 fonctionne très bien avec des filtres automatiques. Je viens d'essayer sous 2003 et il n'est donc pas besoin de protéger la feuille.
Je vois ce soir sous 2000...!!! mais à première vue, je ne pense pas que ce soit différent...

En attendant, bonne soirée.

Jean-Pierre

 

Vote positif 0 Vote négatif

E

EBL

Guest

• 19 Septembre 2006

• #10

Re : Bloquer l'écriture sur une cellule (seulement)

[EDIT]

Il m'empêche d'acceder aux 3 colonnes auquels j'ai permis l'écriture ...



Bonjour tout le monde, en effet ça marche nickel! 😀
Je n'y connais vraiment pas grand chose en VBA que modifier donc pour que ce script s'applique à 3 colonnes? W X Y par exemple

Merci à vous

 

Dernière modification par un modérateur: 21 Septembre 2006

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 19 Septembre 2006

• #11

Re : Bloquer l'écriture sur une cellule (seulement)

Bonjour EBL,

pour répondre à ta question, tu change ici :

Range("a1:a20") par Range("W1:Y50") si la plage concernée va de W1 à Y50, à adapter à ton problème.

Bonne journée, sous la pluie ici..

Jean-Pierre

 

Vote positif 0 Vote négatif

E

EBL

Guest

• 21 Septembre 2006

• #12

Re : Bloquer l'écriture sur une cellule (seulement)

Bonjour Jean-Pierre

Ton script n'était pas trop au point, en effet il m'empechait de visualiser les 3 colonnes en question. Cependant j'ai procédé de manière différente.
1) inséré les filtres automatiques
2) Enlever la protection sur les 3 colonnes (WXY)
3) Protégé la feuille en écriture via "outil, protection"
4) Ouver le mode VBA et y ai inscris ceci:

"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End Sub "

Voilà encore merci pour ton aide et en espérant que cette petite astuce pourra aider des personnes qui seront confronté à mon problème

Bàv

Ebl

 

Vote positif 0 Vote négatif