insérer formule par checkbox

[HUBERT]

Hello tout le forum !!!

Voila mon prob.

J'ai une feuille
Un tableau
Un checkbox
Je voudrais que si checbox = True alors la formule dans [B2] = '=G2-F2'
si checkBox = False alors la formule dans [B2] = '=G2-E2'

Comment faire ceci?

Merci

 

[coco83]

Salut Hubert, salut au forum.
Si tu ne veux que le résultat dans la cellule b2 tu peux écrire cette procédure :

private sub essai()
if checkbox.value=true then
sheets('feuil1').range('B2').value= range('G2').value-range('F2').value

else
sheets('feuil1').range('B2').value= range('G2').value-range('E2').value
end if
end sub

Par contre si tu veux que ta formule soit écrite dans B2 il me semble qu'il faille utiliser 'formulR1C1' . Peut-être comme ce qui suit mais en le testant chez moi (excel 2003) ça bogue (la formule apparaît avec des simples guillemets autour des adresses de cellules)
private sub essai()
if checkbox.value=true then
sheets('feuil1').range('B2').formulaR1C1='=G2-F2'
else
sheets('feuil1').range('B2').formulaR1C1='=G2-E2'
end if
end sub

Je pens que dans le forum des plus doués que moi trouveront le problème qui se pose dans la deuxième proposition.

A+