[XL-2010] Protection cellules avec Formule

[mikew75]

bonsoir à tous,

je cherche à protéger des cellules qui contiennent des formules, mais en laissant la possibilité à l'utilisateur de faire un autofill.

je m'explique

sur la première ligne colonne B, je définis que la formule est par exemple =UPPER(A1)

si je lock la colonne B, si je rajoute des données sur les lignes suivantes, je ne peux pas faire d'AutoFill.

Comment puis-je résoudre mon problème?

Merci

[jfontaine]

Bonjour,

A ma connaissance, je ne vois pas de solution dans les paramètres de protection.

Tu peux utiliser le code ci dessous pour mettre à jour la formule de la colonne B (toto étant le mot de passe de la protection)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 1 And Target.Count = 1 Then
    Me.Unprotect "toto"
    If Target.Value = "" Then
        Range("B" & Target.Row).Value = ""
    Else
        Range("B" & Target.Row).Formula = "=UPPER(A" & Target.Row & ")"
    End If
    Me.Protect "toto"
End If
 
End Sub