Bloquer l'écriture sur une cellule (seulement)

[EBL]

Bonjour bonjour tout le monde,

Bon, moi j'ai un petit souci. J'ai un peu scruter le forum et je n'ai pas trouvé la solution à mon problème bien précis. Cependant ça m'a déjà pas mal guidé.

Voilà mon souci:

Je voudrais simplement protéger en écriture un groupe de cellule.

exemple:

Dans la colonne A qui va de A1 à A20 j'ai une liste de question.
Dans la colonne B qui va de B1 à B20 j'ai mis une pick list.

Je voudrais simplement proteger le groupe de cellule (A1-A20) pour qu'on ne puisse pas modifier les données s'y trouvant; mais pouvoir écrire ou l'on veut sur le reste de la feuille.

Est possible?

Un grand merci à vous

Ebl

 

[sab-77]

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 !)

 

[EBL]

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

 

[jeanpierre]

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

 

[sab-77]

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

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

 

[jeanpierre]

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

 

[EBL]

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

 

[nat54]

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

Bonjour,

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

 

[jeanpierre]

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

 

[EBL]

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

 

[jeanpierre]

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

 

[EBL]

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