Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour JJK94,
Voici une façon de faire :
Dans le module feuille où l'action se déroule :
Tu définis les cellules sensibles '------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range Set Rg = Range("A1,B2,C3:C5,D10") 'à déterminer
If Not Intersect(Target, Rg) Is Nothing Then Me.Protect Else Me.Unprotect End If
End Sub '------------------------
Salutations!
"JJK94" a écrit dans le message de news: comment interdire la modification,à l'aide du clavier, du contenu de certaines cellules.
Merci jjk
Bonjour JJK94,
Voici une façon de faire :
Dans le module feuille où l'action se déroule :
Tu définis les cellules sensibles
'------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A1,B2,C3:C5,D10") 'à déterminer
If Not Intersect(Target, Rg) Is Nothing Then
Me.Protect
Else
Me.Unprotect
End If
End Sub
'------------------------
Salutations!
"JJK94" <jjk94@hotmail.fr> a écrit dans le message de news: eIShu4GSGHA.4264@TK2MSFTNGP11.phx.gbl...
comment interdire la modification,à l'aide du clavier, du contenu de
certaines cellules.
Cela fait toujours mieux de commencer par dire bonjour (surtout quand on demande quelque chose)
Tu sélectionne d'abord les cellules que les utilisateurs pourront changer Tu passe par le menu format cellule protection et tu décoche "Locked"
Puis par le menu Tools Protection tu protége ta feuille
Et le tour est joué
Bonne journé à toi
A bientôt
Rex
"JJK94" wrote in message news:
comment interdire la modification,à l'aide du clavier, du contenu de certaines cellules.
Merci jjk
JJK94
Bonjour Michdenis ça marche merci , comment intercepter le message d'erreur quand on essaie d'écrire dans une cellule protégée
Merci d'avance JJK
"michdenis" a écrit dans le message de news:
Bonjour JJK94,
Voici une façon de faire :
Dans le module feuille où l'action se déroule :
Tu définis les cellules sensibles '------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range Set Rg = Range("A1,B2,C3:C5,D10") 'à déterminer
If Not Intersect(Target, Rg) Is Nothing Then Me.Protect Else Me.Unprotect End If
End Sub '------------------------
Salutations!
"JJK94" a écrit dans le message de news:
comment interdire la modification,à l'aide du clavier, du contenu de certaines cellules.
Merci jjk
Bonjour Michdenis
ça marche merci ,
comment intercepter le message d'erreur quand on essaie d'écrire dans une
cellule protégée
Merci d'avance JJK
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
e3EAYbHSGHA.5736@TK2MSFTNGP10.phx.gbl...
Bonjour JJK94,
Voici une façon de faire :
Dans le module feuille où l'action se déroule :
Tu définis les cellules sensibles
'------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A1,B2,C3:C5,D10") 'à déterminer
If Not Intersect(Target, Rg) Is Nothing Then
Me.Protect
Else
Me.Unprotect
End If
End Sub
'------------------------
Salutations!
"JJK94" <jjk94@hotmail.fr> a écrit dans le message de news:
eIShu4GSGHA.4264@TK2MSFTNGP11.phx.gbl...
comment interdire la modification,à l'aide du clavier, du contenu de
certaines cellules.
