Garder la formule même après une saisie manuelle

Bonjour;

Voilà en F20 j'ai une formule =SIERREUR((F19*E21)+F19;"") qui s'applique au cas Sous total REG Prp ÂGE et sou total REG Prp permis, et au cas Sous total REG Prp Usage j'autorise la saisie Manuele mais mon problème c'est que quand je saisis la formule après disparaît, j'ai essayé avec la fonction recherchev ça n'a rien donner auriez-vous une idée

Sub calcul()

Select Case Range("D21")

Case Is = "Sous total REG Prp Age"

With ActiveSheet

Case .Range.Calculate.Range("F20").Formula = "(F19 * E21) + F19"

Else

Select Case Range("D21")

Case Is = "Sous total REG Prp Permis"

With ActiveSheet

Case .Range.Calculate.Range("F20").Formula = "(F19 * E21) + F19"

End If

End Sub

j'ai essayer cette formule mais ca marche pas, je pense qu'il faut la modifié

Salut Abdernino,

comme ceci, peut-être ?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'
Application.EnableEvents = False
'
If Not Intersect(Target, Range("D21")) Is Nothing Then
    Select Case Range("D21").Value
        Case "Sous total REG Prp Usage"
            With ActiveSheet
                .Unprotect Password:="sophia"
                .Range("F20").Locked = False
                .Protect Password:="sophia"
            End With
        Case "Sous total REG Prp Age", "Sous total REG Prp Permis"
            With ActiveSheet
                .Unprotect Password:="sophia"
                .Range("F20").FormulaLocal = "=(F19 * E21) + F19"
                .Range("F20").Locked = True
                .Protect Password:="sophia"
            End With
        Case Else
            With ActiveSheet
                .Unprotect Password:="sophia"
                .Range("F20").Locked = True
                .Protect Password:="sophia"
            End With
    End Select
End If
'
Application.EnableEvents = True
'
End Sub

A+

Rechercher des sujets similaires à "garder formule meme saisie manuelle"