Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Variante protection cellule!

  • Initiateur de la discussion Initiateur de la discussion jonabenn02
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jonabenn02

Guest
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:

Code:
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
 
Re : Variante protection cellule!

bonjour

à essayer :

Code:
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
 
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é
 
Dernière édition:
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
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
9
Affichages
508
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…