Bloquer la formule uniquement entre les lignes

j'ai une formule vba dans le dossier ci joint "feuil facture 2020" qui calcule en fonction de la phrase liste déroulante et qui fonctionne bien,

par contre je voudrais "bloquer la formule uniquement entre les lignes" 20 21 22 23 24 25 " ,

merci pour votre aide

Bonjour,

Avec :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sForm As String, Lig As Long
Lig = Target.Row
If Lig >= 20 And Lig <= 25 Then
  sForm = "=SI(ESTERREUR(CHERCHE(""-50%"";A#));SI(ESTERREUR(CHERCHE(""+ 25%"";A#));F#*H#;F#*H#*1,25);F#*H#*50%)"
  Application.EnableEvents = False
  Range("j" & Lig).FormulaLocal = Replace(sForm, "#", Lig)
  Application.EnableEvents = True
End If
End Sub

merci pour ton partage de savoir

Daniel L

Rechercher des sujets similaires à "bloquer formule uniquement entre lignes"