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+