Bloquer une cellule après y avoir entrée une donnée [Résolu]

bel.lor 3 Messages postés jeudi 5 janvier 2017Date d'inscription 6 janvier 2017 Dernière intervention - 5 janv. 2017 à 21:45 - Dernière réponse : Mike-31 15887 Messages postés dimanche 17 février 2008Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention
- 6 janv. 2017 à 15:14
Bonjour,

Je ne sais pas si Excel a cette fonctionnalité. Je m'explique, dans une feuille partagée, je souhaite bloqué une cellule dès qu'un texte ou mot est écrit. Donc lorsque l'utilisateur sort de la cellule il ne peut revenir pour y apporter des changements. Est-ce possible . Merci de votre aide.
Afficher la suite 
3Messages postés jeudi 5 janvier 2017Date d'inscription 6 janvier 2017 Dernière intervention

5 réponses

Répondre au sujet
Mike-31 15887 Messages postés dimanche 17 février 2008Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - 5 janv. 2017 à 21:46
0
Utile
1
Bonsoir,

Oui c'est tout à fait possible mais en VBA uniquement si tu as quelques notions
bel.lor 3 Messages postés jeudi 5 janvier 2017Date d'inscription 6 janvier 2017 Dernière intervention - 5 janv. 2017 à 21:51
J'ai quelques notions de VBA. Si tu veux bien m'expliquer comment m'y prendre je t'en serais très reconnaissante. Merci d'avoir répondu
Commenter la réponse de Mike-31
Mike-31 15887 Messages postés dimanche 17 février 2008Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - Modifié par Mike-31 le 5/01/2017 à 23:40
0
Utile
1
Re,

exemple tu veux contrôler la plage B6:P40
commence par sélectionner la plage B6:P40/clic droit/Format de cellule/onglet Protection/décoche Déverrouillée

ensuite il faut protéger la feuille, et pour que la déprotection ne se fasse pas d'un simple clic je te conseille la protection avec mot de passe "ATTENTION DE NE PAS L'OUBLIER"

dans le code j'ai prévu open comme mot de passe, donc soit tu changes ce mot de passe par celui utilisé lorsque tu protégeras ta feuille, soit tu protège ta feuille avec mon mot de passe open respecte également les majuscules et minuscules

clic droit sur l'onglet de ta feuille/Visualiser le code/coller le code ci dessous

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Selection, Range("B6:P40")) Is Nothing Then
If Target <> "" Or Target.Interior.ColorIndex <> xlNone Then
ActiveSheet.Unprotect Password:="open"
Target.Locked = True
ActiveSheet.Protect Password:="open"
End If
End If
End Sub

A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
bel.lor 3 Messages postés jeudi 5 janvier 2017Date d'inscription 6 janvier 2017 Dernière intervention - 6 janv. 2017 à 15:00
Super, c'est exactement ce que je cherchais. Un gros merci. Bravo pour tes connaissances en Excell,
Commenter la réponse de Mike-31
Mike-31 15887 Messages postés dimanche 17 février 2008Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - Modifié par Mike-31 le 6/01/2017 à 15:32
0
Utile
Re,

Alors je passe le statut de la discussion en résolu

dans mon code j'ai laissé trainer un contrôle qui testait la couleur de la cellule et donc inutile, supprime ce bout de code

Or Target.Interior.ColorIndex <> xlNone 

A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
Commenter la réponse de Mike-31