Il me faudrait en VBA que la formule soit lier à la phrase

Je désirerais une formule vba qui me permettrai de calculer le tarif du nids supplémentaire - 50% ,

comme la ligne jaune est une liste déroulante il faudrait la formule soit lier à la phrase ,

et idem pour jours fériés + 25%

merci de votre aide

DANIEL L

Salut Daniel,

Pourquoi du VBA

=SI(ESTERREUR(CHERCHE("-50%";A20));SI(ESTERREUR(CHERCHE("+ 25%";A20));F20*H20;F20*H20*1,25);F20*H20*50%)

Sinon

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sForm As String, Lig As Long
  Lig = Target.Row
  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 Sub

@+

il suffit d'une bonne réponse et j'ai le sourire merci BrunoM45

la formule vba fonctionne comme je le désirais . je désirerais sélectionner uniquement les lignes de 17 à 20 uniquement

merci de me donner une réponse pour remplacer Lig = Target.Row