bonjour à toutes et à tous
Je n'apporte n'apporte rien de plus , mais juste pour le plaisir , la macro ci dessous empeche les modifications dans une cellule ou une plage de cellule , si celle ci contient une formule
( à placer au niveau de la feuille à protéger )
Public Cible As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Fin
If Cible = True Then
MsgBox "ATTENTION : Une cellule modifiée contient une formule ! "
Application.EnableEvents = False
Application.Undo
Target.Offset(0, 1).Select
End If
Fin:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Cell As Range
Cible = False
For Each Cell In Selection
If Cell.HasFormula = True Then
Cible = True
Exit For
End If
Next Cell
End Sub
bonsoir
michel