(EXCEL) Bouton d'option SVP!!!
olive60
Messages postés
273
Statut
Membre
-
choubaka Messages postés 5534 Date d'inscription Statut Modérateur Dernière intervention -
choubaka Messages postés 5534 Date d'inscription Statut Modérateur Dernière intervention -
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
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
Configuration: Windows 2000 Internet Explorer 5.01
8 réponses
-
salut c'est le principe des boutons radio ..
tu dois utiliser des cases à cocher (carrées) et pas des cases d'options (rondes)
-
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 -
tu dois faire en sorte que certaines cases ne peuvent pas être cochées en même temps ..
une simple condition avant validation
-
ah oui?
mais comment fait on concretement ds la macro (ou ailleurs peut etre?)
Merci
Olive -
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
-
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 -
-
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
