Verrouillage de cellules après saisie d'informations
1 réponse
François-Marie
Bonjour,
Je travaille sous EXCELL 2007.
J’ai créé une feuille de calcul dont j’ai verrouillé toutes les cellules, à
l’exception des cellules donnant lieu à la saisie d’une information.
Je voudrais savoir quelle est la procédure la plus simple pour verrouiller
par la suite les cellules qui n’ont pas été verrouillées au départ, dès
qu’elles seront renseignées du fait de ma saisie.
--
Je travaille sous EXCELL 2007 et vous remercie tous d''avance pour votre aide.
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
Jacky
Bonsoir,
A placer dans le module de la feuille en question, et adapter la plage (C5:H5 dans l'exemple) '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [c5:h5]) Is Nothing And Target.Count = 1 Then If Target <> "" Then Target.Locked = True End If End Sub '---------------
-- Salutations JJ
"François-Marie" a écrit dans le message de news:
Bonjour,
Je travaille sous EXCELL 2007. J'ai créé une feuille de calcul dont j'ai verrouillé toutes les cellules, à l'exception des cellules donnant lieu à la saisie d'une information.
Je voudrais savoir quelle est la procédure la plus simple pour verrouiller par la suite les cellules qui n'ont pas été verrouillées au départ, dès qu'elles seront renseignées du fait de ma saisie.
-- Je travaille sous EXCELL 2007 et vous remercie tous d''avance pour votre aide.
Cordialement, François-Marie.
Bonsoir,
A placer dans le module de la feuille en question, et adapter la plage
(C5:H5 dans l'exemple)
'------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c5:h5]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then Target.Locked = True
End If
End Sub
'---------------
--
Salutations
JJ
"François-Marie" <FranoisMarie@discussions.microsoft.com> a écrit dans le
message de news: 0D5E18A5-795A-412B-A2BE-9EA51405ED14@microsoft.com...
Bonjour,
Je travaille sous EXCELL 2007.
J'ai créé une feuille de calcul dont j'ai verrouillé toutes les cellules,
à
l'exception des cellules donnant lieu à la saisie d'une information.
Je voudrais savoir quelle est la procédure la plus simple pour verrouiller
par la suite les cellules qui n'ont pas été verrouillées au départ, dès
qu'elles seront renseignées du fait de ma saisie.
--
Je travaille sous EXCELL 2007 et vous remercie tous d''avance pour votre
aide.
A placer dans le module de la feuille en question, et adapter la plage (C5:H5 dans l'exemple) '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [c5:h5]) Is Nothing And Target.Count = 1 Then If Target <> "" Then Target.Locked = True End If End Sub '---------------
-- Salutations JJ
"François-Marie" a écrit dans le message de news:
Bonjour,
Je travaille sous EXCELL 2007. J'ai créé une feuille de calcul dont j'ai verrouillé toutes les cellules, à l'exception des cellules donnant lieu à la saisie d'une information.
Je voudrais savoir quelle est la procédure la plus simple pour verrouiller par la suite les cellules qui n'ont pas été verrouillées au départ, dès qu'elles seront renseignées du fait de ma saisie.
-- Je travaille sous EXCELL 2007 et vous remercie tous d''avance pour votre aide.
