Automatiser des optionbutton

Fermé
monalisach - 9 mai 2012 à 18:11
Bonjour,
je voudrais automatiser les optionbutton de telle sorte qu'il soit coché selon les intervalles d'une valeur calculer
merci pour votre aide
voici mon code
Private Sub CommandButton3_Click()
TextBox22.Value = 1.2 * TextBox17.Value + 1.4 * TextBox34.Value + 3.3 * TextBox33.Value + 0.6 * TextBox35.Value + 0.99 * TextBox36.Value
If TextBox22.Value > 2.99 Then OptionButton1_Click() = True
If 1.81 < TextBox22.Value < 2.99 Then OptionButton1_Click() = True
If TextBox22.Value < 1.81 Then OptionButton1_Click() = True
End Sub

bonne journée