Retirer 1h dans formule si checkbox coché dans USF

[Guigui]

Hello le forum,

Voici mon problem,

j'ai dans une cellule la formule : =SI(E8='';'';S8)

ensuite, dans un USF j'ai une checkbox a cocher, si cette check box est coché, je veut que ma formule devienne :
=SI(E8='';'';S8-1)

Je saisie ceci dans ma check box, mais ca ne marche pas :

Private Sub REPAS_Click()
If REPAS.Value = True Then
Range('G8').Value = '=SI(E8='';'';S8-1)'
Else
Range('G8').Value = '=SI(E8='';'';S8)'
End If
End Sub

Quelqu'un peut me filer un coup de main ?

Merci d'avance pour votre aide

A+
Guillaume

 

[Hervé]

Bonjour

Essaye comme ca :

Private Sub REPAS_Click()
If REPAS.Value = True Then
Range('G8').FormulaLocal = '=SI(E8='''';'''';S8-1)'
Else
Range('G8').FormulaLocal = '=SI(E8='''';'''';S8)'
End If

End Sub

Lorsque l'on veut renvoyer une formule, on utilise formula...et pas value

A plus

Salut

 

[Guigui]

salut hervé,

Merci pour cette précision....

C tous bon

A+
guillaume