Cellules protégées automatiquement
Résolu/Fermé
Medic911
Messages postés
9
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
15 juillet 2010
-
8 juil. 2010 à 11:35
Raymond PENTIER Messages postés 57153 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 mars 2023 - 21 août 2010 à 01:44
Raymond PENTIER Messages postés 57153 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 mars 2023 - 21 août 2010 à 01:44
A voir également:
- Cellules protégées automatiquement
- Dans ce diaporama, les diapositives s'enchaînent automatiquement. que peut-on dire de la diapositive crayon ? - Forum Powerpoint
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Verrouiller cellules excel - Guide
- Impossible de fusionner des cellules excel ✓ - Forum Excel
- Célia doit nettoyer le tableau suivant pour l'ajouter à la base de données de son entreprise. les données sont ensuite traitées automatiquement. quelles sont les 4 cellules qui risquent de poser problème ? ✓ - Forum Excel
6 réponses
Mytå
Messages postés
2969
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
928
Modifié par Mytå le 8/07/2010 à 18:30
Modifié par Mytå le 8/07/2010 à 18:30
Salut le Forum
Medic911, c'est bien de poser des questions.
Mais fait l'effort de mettre tes 2 autres questions en résolu et de remercier pour les réponses.
Lien #1 : Ta premier question
Lien #2 : Ta deuxième question
Pour le moment, je me garde de te fournir une réponse. . .
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Medic911, c'est bien de poser des questions.
Mais fait l'effort de mettre tes 2 autres questions en résolu et de remercier pour les réponses.
Lien #1 : Ta premier question
Lien #2 : Ta deuxième question
Pour le moment, je me garde de te fournir une réponse. . .
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Raymond PENTIER
Messages postés
57153
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
17 161
8 juil. 2010 à 19:59
8 juil. 2010 à 19:59
Ma réponse : NON !
Mais au lieu de taper "Validé", tu as presque aussi vite fait de déprotéger la feuille, de verrouiller la cellule de la colonne A et de reprotéger !
C'est simple et efficace.
Mais peut-être qu'un membre de CCM connaissant VBA pourra te mettre ça sous forme de macro ...
Mais au lieu de taper "Validé", tu as presque aussi vite fait de déprotéger la feuille, de verrouiller la cellule de la colonne A et de reprotéger !
C'est simple et efficace.
Mais peut-être qu'un membre de CCM connaissant VBA pourra te mettre ça sous forme de macro ...
g
Messages postés
1263
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
572
Modifié par g le 9/07/2010 à 08:45
Modifié par g le 9/07/2010 à 08:45
Bonjour,
Essaie ce code qui est à copier dans le module de ta feuille concernée:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Offset(0, 0) = "VALIDE" Then
ActiveSheet.Unprotect
Target.Offset(0, -1).Select
Selection.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ElseIf Target.Column = 2 And Target.Offset(0, 0) <> "VALIDE" Then
ActiveSheet.Unprotect
Target.Offset(0, -1).Select
Selection.Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Précision: Il faut préalablement désactiver le Verrouillage des cellules de toute la page.
Bonne journée.
Essaie ce code qui est à copier dans le module de ta feuille concernée:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Offset(0, 0) = "VALIDE" Then
ActiveSheet.Unprotect
Target.Offset(0, -1).Select
Selection.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ElseIf Target.Column = 2 And Target.Offset(0, 0) <> "VALIDE" Then
ActiveSheet.Unprotect
Target.Offset(0, -1).Select
Selection.Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Précision: Il faut préalablement désactiver le Verrouillage des cellules de toute la page.
Bonne journée.
Raymond PENTIER
Messages postés
57153
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
17 161
21 août 2010 à 00:40
21 août 2010 à 00:40
Alors, Medic911, ta question est résolue, ou pas ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mytå
Messages postés
2969
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
928
21 août 2010 à 01:37
21 août 2010 à 01:37
Re le forum
Son problème a été résolu sur un autre forum avec cette macro (Colonne H)
(Le verrouillage des cellules doit être désactivé au préalable)
Mytå
Son problème a été résolu sur un autre forum avec cette macro (Colonne H)
(Le verrouillage des cellules doit être désactivé au préalable)
Sub Validation()
' Touche de raccourci du clavier: Ctrl+a
'
With ActiveCell
If .Locked Then Exit Sub
If .Column = 8 Then
.Value = "Validé"
ActiveSheet.Unprotect
Range(Cells(.Row, 1), Cells(.Row, 6)).Locked = True
Cells(.Row, 8).Locked = True
ActiveSheet.Protect
End If
End With
End Sub
Mytå
Raymond PENTIER
Messages postés
57153
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
17 161
21 août 2010 à 01:44
21 août 2010 à 01:44
Merci. Je bascule donc en "Résolu".