cellule bloquée Résolu/Fermé

Question

Bonjour le Forum,

Est'il possible de bloquer une cellule quand on a cliqué dedans.

Par avance, merci à vous Tous

Mike-31 · Answer

Bonsoir,

de nombreuses possibilités pour bloquer une cellule, ce qui en fait une demande trop vague.

sur quel critère veux tu bloquer tes cellules

eric2027 · Answer

Bonsoir Mike-31

Le fait de cliquer sur une cellule "x", est-il possible que cette cellule soit bloquée, que l'on ne puisse plus revenir dessus, qu'elle soit enregistrer et ne plus pouvoir la modifier

Mike-31 · Answer

Re,

Mais si le fait de cliquer dans une cellule elle se verrouille tu ne pourras pas saisir une donnée dans cette cellule, autant les verrouiller en permanence.

Je pense que tu t'expliques mal  et tu veux certainement saisir une valeur texte ou numérique dans une cellule et la cellule se verrouille, c'est pas ça que tu veux faire !

eric2027 · Answer

oui c'est tout a fait ça, merci de m'avoir compris

Mike-31 · Answer

Re,

Alors il va falloir passer par du VBA si tu as quelques notions par formule se sera difficile surtout si le nombre de colonnes est important, combien de colonnes seront concernées, le nombre de lignes n'est pas important
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

J'ai 15 colonnes de B:P

Mike-31 · Answer

Re,

tu vas essayer de le faire par formule et si ça ne va pas on passera en VBA donc 15 colonnes cela veut dire de A à O, il faut disposer de 15 colonnes qui peuvent être de P à AD
sélectionne P1 saisir cette formule =SI(A1<>"";"x";"")

 incrémente la vers le bas puis vers la droite jusqu'à la colonne AD
ces colonnes pourront être masquées

sélectionne maintenant la plage A1 à O20 par exemple
 onglet Données/module Outils de données/validation des données
dans la rubrique Autoriser sélectionne Personnalisée
et dans formule saisir cette formule
=P1=""

il est possible d'afficher un message mais on verra plus tard, et pour modifier une cellule verrouillée il suffira d'effacer dans la plage P1:AD20 le x correspondant à la cellule, mais on verra plus tard de remplacer le x par l'adresse cellule

eric2027 · Answer

C'est bizarre, ça m'écrit

La valeur tapée n'est pas valide
L'utilisateur a restreint les valeurs que peut prendre cette cellule

Mike-31 · Answer

Re,

Regarde mon fichier exemple, dans la plage jaune tu peux saisir une valeur dans les cellules vides uniquement, j'ai perfectionné la formule dans la plage bleu qui donne adresse de la cellule verrouillée.
ce principe permet uniquement saisir une valeur dans une cellule, pour changer la valeur d'une cellule il faut passer par l'effacement de la saisie avant de saisir une nouvelle donnée si cela ne convient pas il faudra passer par du VBA
 https://www.cjoint.com/c/EEwofNWVoDK

eric2027 · Answer

Il me met le même message qu'au dessus, de plus la cellule n'est pas verouillée

Mike-31 · Answer

Re,

Exact, je ne t'ai pas retourné le bon fichier, teste ce fichier pour voir

 https://www.cjoint.com/c/EEwqD2lqOv5  
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

J'ai testé, si on fait enter, ça met le message cité plus haut par contre si on click autre part cela fonctionne mais la cellule n'est pas bloqué

Mike-31 · Answer

Re,

as tu quelques connaissances en VBA

eric2027 · Answer

aucune

Mike-31 · Answer

Re,

il faudrait tout nous dire dès le départ, que tu connais le VBA, que tu as déjà des macros etc ...

le plus simple est de mettre à notre disposition un bout de ton fichier que l'on arrête de travailler pour rien.

je pense que dans ta demande, ce n'est pas tout de verrouiller ta cellule mais peut être ajouter la possibilité de modification avec mot de passe pour le responsable de façon à modifier une erreur de saisie

Pour joindre ton fichier, à partir de ce lien  
https://www.cjoint.com/

eric2027 · Answer

C'est super sympa de vous investir comme vous le faites

open est le mdp

Voici le lien

https://www.cjoint.com/c/EEwuS3IICyw

Mike-31 · Answer

Re,

j'imagine qu'il s'agit de la feuille ABC et des cellules B6:P36  
 
mais dans tes codes je ne vois nulle part une protection avec mot de passe ce qui veut dire que la protection est manuelle ?

eric2027 · Answer

oui tout a fait, et tout rentre en conflit avec la feuille couleur, d'ou la galère

Mike-31 · Answer

Re,

regarde ton fichier et on en reparle, si tu saisis une valeur erronée j'ai ajouté la possibilité à un responsable d'intervenir sur une cellule verrouillée et le mot de passe doit être différent j'ai mis titi et laissé open pour la feuille 

	https://www.cjoint.com/c/EEwweVUXJPw

eric2027 · Answer

quand j'ouvre mon user form dans l'onglet couleur et que je clique dans une cellule pour mettre la valeur des horaires dans la feuille ABC cela me bug, c'est là qu'est le problème.

est ce que 2 macro différence ne sont pas compatible entre elles ?

Mike-31 · Answer

Re,

Mais dans ton code rien ne dit que tu ouvres ton userform dans la feuille ABC le seul bouton pour l'ouvrir est sur la feuille Couleur, comment ouvres tu l'userform sur la Feuille ABC
et pour renseigner quelles cellules ? 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

voilà, mais tu m'as dit que le verrouillage concernait B6:P36 et la saisie des heures est en A39 et au dessous es tu sur de ça sinon explique ou sont saisi les heures

	https://www.cjoint.com/c/EEwwR7jtBrR

eric2027 · Answer

La saisie des heures se fait à partir de l'user form, j'ai un panel pour que les garçons ne se trompent pas dans les heures, mais quand je click une fois dans ABC cela fonctionne mais le deuxieme fois cela me beug ainsi que les lettres qui sont en dessous, le message me fait référence a la typo de l'userform je crois, je t'envois le fichier avec le bouton de l'userform sur la feuille ABC

http://cjoint.com/?EExhEwQSx8V

Mike-31 · Answer

Re,
Mais l'userform ne sert à rien sur la feuille couleur, tu l'utilises uniquement sur la feuille ABC

Mike-31 · Answer

Re,

Regarde ce fichier voir si le niveau de protection est suffisant 

https://www.cjoint.com/c/EEAkP7Qp1lP

eric2027 · Answer

La sécurité est top, mais pourquoi avoir enlevé l'userform ?

Mike-31 · Answer

Re,

Mais elle n'est pas supprimée et toujours opérationnelle sur ton fichier

eric2027 · Answer

Mille excuse , je n'avais pas vu, elle était sur le côté, je viens de refaire un un essai mais quand je clic dans une cellule, je peux intervenir sur la cellule si je re-clic 2 fois dedans, n'y a t-il pas un moyen de ne pas pouvoir re-cliquer dedans, la bloquer au 1er clic

Mike-31 · Answer

Re,

peut être comme cela

https://www.cjoint.com/c/EEAon4l24w8

eric2027 · Answer

C'est tout à fait ça, mais quand je copie et colle dans mon vrai fichier, il me dit 'cette cellule est déjà renseigné, Modification interdite ?

Mike-31 · Answer

Re, Alors on va passer aux explications, 1/ commence par déprotéger ta feuille et verrouille toutes tes cellules (après sélection du tableau, clic droit Format de cellule/Protection/cocher Verrouillée 2/ alors que le tableau est toujours sélectionné, onglet Révision/module Modification/Permettre la modification des plages/Nouvelle et saisir un mot de passe j'ai rentré titi (à personnaliser) cette fonction te permettra éventuellement d'intervenir dans une cellule verrouillée 3 clic droit sur l'onglet de ta feuille/Visualiser le code, tu dois avoir ce code pour ouvrir l'UserForm Private Sub CommandButton1_Click() UserForm1.Show End Sub ajoute ce code Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Selection, Range("B6:P36")) Is Nothing Then If Target <> "" Or Target.Interior.ColorIndex <> xlNone Then ActiveSheet.Unprotect Password:="open" Target.Locked = True ActiveSheet.Protect Password:="open" ', DrawingObjects:=False, Contents:=True, Scenarios:= _ False, AllowFormattingCells:=True End If End If End Sub dans le module de classe remplace ton code par Public WithEvents GrLabel As Msforms.Label Private Sub GrLabel_Click() On Error Resume Next If Selection <> "" Or Selection.Interior.ColorIndex <> xlNone Then MsgBox "Modification interdite", , "Cette cellule est déjà renseignée" Exit Sub Else ActiveSheet.Unprotect Password:="open" Selection.Interior.Color = GrLabel.BackColor Selection.Font.Color = GrLabel.ForeColor Selection.Value = GrLabel.Caption ActiveSheet.Protect Password:="open" End If End Sub bien sur il faut protéger ta feuille avec le mot de passe open et adapter tes plages de cellules et tes mots de passe A+ Mike-31 Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

J'ai fait ce que tu m'a ecris, rien n'y fait, ne serait ce pas à cause de l'userform que je ne peux pas déplacer sur mon fichier car je déplace ton travail et je le copie sur mon fichier

Mike-31 · Answer

Re,

Non pas du tout, mais as tu libéré l'Userform comme tu l'as fait sur ton fichier exemple, dans le Visual Basic  double clic sur l'UserForm pour ouvri ses propriétés dans lesquelles tu recherches ShowModal que tu passes en False

eric2027 · Answer

J'ai fait au plus simple, je fais des copies de ton fichier ABC et je ré-incorpore le fichier de base, et ça fonctionne, je refais la synthèse ce soir et si ça fonctionne au top, je mettrais en résolu.

Merci pour ta patience et ton savoir

eric2027 · Answer

C'est super, tout marche du tonnerre, plus rien ne beug, le super pied, pour ce que est du bouton, j'ai tout fait mais n'y fait, si tu peux faire quelque pour le débloquer ce serait encore plus fort

Mike-31 · Answer

Je ne comprends pas ton dernier post dans lequel à mon avis il manque des lignes d'explications

eric2027 · Answer

Les boutons qui sont sur les feuilles (à droite), sont bloqués, je ne peux pas les mettre en haut à gauche, en général en cliquant droit sur le bouton, on peut le déplacer ou on veut mais là non, ils restent figés

Mike-31 · Answer

Re,

Le bouton que j'ai créé est un bouton de la barre Activex qui se trouve juste au dessous de celui de la barre formulaire, il offre plus de possibilités comme être figé sur la feuille ou évité d'être supprimé par inadvertance etc ...

pour le supprimer, le redimensionner, le déplacer etc ...
onglet Développeur/module Contrôles/clic sur Mode création

fait ce que tu veux de ton bouton, puis libère le Mode création en recliquant sur le Mode création 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

Un Grand Merci à Toi, sur ton travail et ta patience pour les explications que tu m'as apporté parce que tu me fais progresser sur excel et ce  n'est pas une mince affaire excel

Encore merci merci et vive ce Forum ou vous êtes à l'écoute des novices comme moi

je mets en résolu

Cellule bloquée

39 réponses

Discussions similaires