(EXCEL) Bouton d'option SVP!!!

Fermé
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 - 11 sept. 2007 à 16:30
choubaka Messages postés 39153 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 24 mars 2023 - 12 sept. 2007 à 08:11
Bonjour à tous c'est encore moi !!!

Mon souci :

Sur ma feuille j'ai 4 boutons d'options placés comme ceci : O Tarifs -20% O Normal
O Encours moyen / 2 O Normal

Le probleme est que je ne peux appuyer que sur un seul bouton...

Par exemple il m'est impossible de combiner Tarifs -20% et Encours moyen / 2...

Savez vous comment dois je modifier ma macro pour arriver a cela (sachant que les deux boutons n'operent evidemment pas sur les memes cellules, dc logiquement ca devrait poser de soucis à faire)

Ex de macro du bouton Tarifs -20% :

Private Sub OptionButton1_Click()
Range("C47").Select
ActiveCell.FormulaR1C1 = "0.48%"
Range("C56").Select
ActiveCell.FormulaR1C1 = "0.28%"
Range("C65").Select
ActiveCell.FormulaR1C1 = "0.43%"
Range("C66").Select
ActiveCell.FormulaR1C1 = "0.30%"
End Sub


Je vous remercie d'avance de votre patience.

Olive

8 réponses

choubaka Messages postés 39153 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 24 mars 2023 2 099
11 sept. 2007 à 16:38
salut c'est le principe des boutons radio ..

tu dois utiliser des cases à cocher (carrées) et pas des cases d'options (rondes)

0
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 27
11 sept. 2007 à 16:49
Bonjour , Merci de ta réponse.

Oui j'ai bien compris le systeme des boutons d'options, mais alors peut on dissocier

O Tarifs -20% O Normal


et

O Encours moyen / 2 O Normal


par exemple avoir Tarifs -20% coché et normal (pour les encours moyens) coché?

Le probleme avec les cases à cocher c'est si je fais une erreur et que je coche sans faire expres sur la meme ligne "Tarifs -20%" et "normal", j'imagine bien que les deux macros vont etre en conflit car elles agissent sur les memes cellules...


VOUS AVEZ UNE SOLUTION????

MErci en tous cas

Olive
0
choubaka Messages postés 39153 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 24 mars 2023 2 099
11 sept. 2007 à 16:53
tu dois faire en sorte que certaines cases ne peuvent pas être cochées en même temps ..

une simple condition avant validation
0
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 27
11 sept. 2007 à 16:55
ah oui?

mais comment fait on concretement ds la macro (ou ailleurs peut etre?)

Merci

Olive
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
salut

je vais te doner un exemple avec le code que tu as mis ci-dessus, même si ça ne correspond pas
c'est juste pour te montrer

Private Sub OptionButton1_Click()
If OptionButton2.IsSelected then End sub
Else
Range("C47").Select
ActiveCell.FormulaR1C1 = "0.48%"
Range("C56").Select
ActiveCell.FormulaR1C1 = "0.28%"
Range("C65").Select
ActiveCell.FormulaR1C1 = "0.43%"
Range("C66").Select
ActiveCell.FormulaR1C1 = "0.30%"
End Sub


je suis pas certain du code mais l'idée est là, au lieu du end sub, tu peux soit signaler l'erreur ou décocher la case incriminée

0
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 27
11 sept. 2007 à 17:23
J'ai essayé ta formule mais effectivement il ya une erreur de synthaxe...

Tu vois où??? voici mes deux checkbox:

Private Sub CheckBox1_Click()

If CheckBox2.IsSelected Then End Sub
Else

Range("C47").Select
ActiveCell.FormulaR1C1 = "0.48%"
Range("C56").Select
ActiveCell.FormulaR1C1 = "0.28%"
Range("C65").Select
ActiveCell.FormulaR1C1 = "0.43%"
Range("C66").Select
ActiveCell.FormulaR1C1 = "0.30%"
End Sub

Private Sub CheckBox2_Click()

If CheckBox1.IsSelected Then End Sub
Else

Range("C47").Select
ActiveCell.FormulaR1C1 = "0.60%"
Range("C56").Select
ActiveCell.FormulaR1C1 = "0.35%"
Range("C65").Select
ActiveCell.FormulaR1C1 = "0.54%"
Range("C66").Select
ActiveCell.FormulaR1C1 = "0.38%"
End Sub



Je suis novice en Visual basic dc j'ai pas bcp d'experience de formulations!!!

Merci si tu peux encore m'aider!!

Olive
0
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 27
11 sept. 2007 à 17:41
vvvvv
0
choubaka Messages postés 39153 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 24 mars 2023 2 099
12 sept. 2007 à 08:11
If CheckBox2.IsSelected Then End Sub

Else

Range("C47").Select
ActiveCell.FormulaR1C1 = "0.48%"
Range("C56").Select
ActiveCell.FormulaR1C1 = "0.28%"
Range("C65").Select
ActiveCell.FormulaR1C1 = "0.43%"
Range("C66").Select
ActiveCell.FormulaR1C1 = "0.30%"

End If

End Sub
0