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 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 - 21 août 2010 à 01:44
Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 - 21 août 2010 à 01:44
A voir également:
- Cellules protégées automatiquement
- Excel additionner des cellules - Guide
- Verrouiller cellules excel - Guide
- Automatiquement - Guide
- Excel fusionner deux cellules - Guide
- Figer des cellules excel - Guide
6 réponses
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
942
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
58389
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
18 avril 2024
17 090
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
1262
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
58389
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
18 avril 2024
17 090
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
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
942
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
58389
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
18 avril 2024
17 090
21 août 2010 à 01:44
21 août 2010 à 01:44
Merci. Je bascule donc en "Résolu".
