Variante protection cellule!

[jonabenn02]

Bonjour à tous!

Je voudrai protéger une cellule mais sans avoir à protéger la feuille. Je suis déjà passé par une astuce de evelynetfrancois😉 avec laquelle je ne peux supprimer le contenu de la cellule mais je peux le remplacer:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
     If Not Application.Intersect(Target, Range("D2")) Is Nothing Then
           If ActiveCell.Value = "" Then Application.Undo
    End If
End Sub

(à mettre dans le classeur là où l'on veut protéger)

Je voudrai procéder autrement: j'aimerai que l'on ne puisse pas sélectionner la cellule A1 ou plus précisément que si elle est sélectionnée, une autre cellule soit automatiquement sélectionnée. Malheuresement je ne sais pas trop comment coder cela.

Merci de votre aide.

Jonabenn

 

[Hervé]

Re : Variante protection cellule!

bonjour

à essayer :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then Target(1, 2).Select
End Sub

sélectionne b1 des qu'on sélectionne A1

salut

 

[wilfried_42]

Re : Variante protection cellule!

bonjour jonabenn

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.address = "$A$1" then range("A2").select
End Sub

ps: retire le on error resume next du precedent code,
c'est une procedure dangereuse et qui dans ce cas ne sert strictement à rien

salut au picard

Edit : bonjour herve, oups collision désolé

 

[Pyrof]

Re : Variante protection cellule!

Bonjour,

Voici une autre proposition

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("D2")) Is Nothing Then
If ActiveCell.Value = "" Then Application.Undo
Target.Offset(0, 1).Select
End If
End Sub

 

[jonabenn02]

Re : Variante protection cellule!

Merci à tous de votre aide 😉

J'ai oublié de m'abonner à mon fil de discussion!!!!😀
Je me demandais quoi!!🙁

J'essaye toutes vos propositions et je vous dis quoi dès que possible.
Encore Merci.

Jonabenn

 

[jonabenn02]

Re : Variante protection cellule!

Bonjour à tous.

Voilà j'ai tout testé. Tous les solutions de sélection de cellule fonctionne... Mais pas les dans les macros😡 En effet lorsque l'on sélectionne une cellule dans une macro où il y a comme dans mon cas un changement automatique, il prend effet aussi dans la macro donc toutes mes copies de cellule échouent.
🙂 en tout cas je le garde quand même de côté, ne serait ce que pour faire une blague à un ami 😀

Merci à tous de votre aide, on apprend chaque jour avec des personnes plus compétentes que soi.

Jonabenn

 

[wilfried_42]

Re : Variante protection cellule!

re:

dans tes macros, pour qu'elle fonctionnent, suspend l'interruption d'evennement

Application.enableevents = false

remet à true à la fin de ton traitement

 

[jonabenn02]

Re : Variante protection cellule!

re

Super! C'est une réponse à laquelle je ne m'attendais pas mais qui me convient parfaitement! 😀

Merci wilfried_42

Jonabenn