2 si avec bouton case d'option (macro)

[meldja]

Bonjour,
Je voudrais utiliser une macro liée à un bouton d'option (boite à outil controle).
Lorsque le bouton d'option est coché, ça veut dire que le client est un grossite : il a droit à 2% de remise
Si le bouton est coché et que le montant (en cellule C8) est supérieur à 10000, c'est aussi un grossiste mais le montant supérieur à 10000 lui donne droit à 5% de remise.
Voici le code que j'ai bidouillé sans résultat :

Private Sub OptionButton1_Click()
If andOptionButton1 Then
If Range("c8") > 10000 Then
Range("c10") = Range("c8") * 0.05
Else
Range("c10") = Range("c8") * 0.02
End If
End If

End Sub

Si besoin est, je peux joindre le fichier. Merci d'avance

 

[meldja]

Re : 2 si avec bouton case d'option (macro)

Scuse, me suis trompé
En fait si le bouton est coché et que le montant en cellule C8 est supérieur à 10000,
il a 5%,
sinon rien
Merci et désolé.

 

[Dull]

Re : 2 si avec bouton case d'option (macro)

Salut meldja, le Forum

Peut-être comme cela (A Tester)

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
    If Range("c8").Value > 10000 Then
        Range("c10").Value = Range("c8") * 0.05
            Else
        Range("c10").Value = Range("c8") * 0.02
    End If
End If
End Sub

Bonne Journée

 

[meldja]

Re : 2 si avec bouton case d'option (macro)

Merci Dull, j'ai du rectifié ma demande pendant que tu me répondais.
Mais en modifiant ta macro, ça répond toujours à ma demande :

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
If Range("c8").Value > 10000 Then
Range("c10").Value = Range("c8") * 0.05
Else
Range("c10").Value = 0
End If
End If
End Sub

Merci encore

 

[skoobi]

Re : 2 si avec bouton case d'option (macro)

Bonjour Dull, meldja,

une variante au code de Dull:

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
    Range("c10").Value = IIf(Range("c8").Value > 10000, Range("c8") * 0.05, Range("c8") * 0.02)
End If
End Sub

Edit: pas rafraichi, désolé