Bonjour a tous,

Y a t il un autre moyen tres simple de verrouiller les cellules avec une formule?

je le ferai de cette maniere:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Range("........").Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=">1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Formule verrouillée"
.InputMessage = ""
.ErrorMessage = _
"Pour déverouiller cette formule, Données -> Validation -> Autoriser
Tout"
.ShowInput = True
.ShowError = True
End With
 
End Sub
mais il y en a peut etre une autre?


merci

private sub sheetchange ()
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 On Error Resume Next
    Range("A1:AD600").SpecialCells(xlCellTypeFormulas, 23).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=">1"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = "Formulas are locked"
        .ShowInput = False
        .ShowError = True
    End With
activecell.select
end sub

si quelqu'un a mieu je suis preneur