Optimiser petit bout de code

Re bonjour

j'aimerais savoir si cela peux etre optimisé? cela fonctionne mais j'aimerais apprendre

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then

caution.Value = "Caution 1200€"

End If

End Sub

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then

caution.Value = "Caution 300€"

End If

End Sub

j'ai 2 boutons d'option et une textbox (caution)

j'ai commencer a lire les cours mais je me perds direct dans les boucles

merci

sinon tant pis

Bonjour,

Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then caution.Value = "Caution 1200€"
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value = True Then caution.Value = "Caution 300€"
End Sub

ric

merci

Bonsoir tihneeos, le forum,

si y'a obligatoirement une caution, et que celle-ci est 1200€ ou 300€, sans autre valeur possible, alors tu peux remplacer tes 2 boutons d'option par une seule case à cocher : si elle est cochée (vrai) : 1200€ ; sinon (faux) : 300€ ; code VBA correspondant :

Private Sub CheckBox1_Click()
  caution = "Caution " & IIf(CheckBox1, "1200€", "300€")
End Sub

dhany

voici le fichier correspondant :

regarde ce qui se passe quand tu coches la case à cocher ; puis quand tu la décoche.

dhany

merci beaucoup pour cette piste, mais je vais devoir garder la version oui non, car cela doit être explicite vis a vis du client pour ne pas avoir de problème. il doit pouvoir identifier tout de suite ce qui est choisit, le oui/non est plus parlant par expérience.

mais cela peut me servir pour d'autre option .

merci de votre aide

merci pour ton retour d'infos !

bonne continuation !

dhany