(EXCEL) Bouton d'option SVP!!!

Question

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

choubaka · Answer

salut c'est le principe des boutons radio ..

tu dois utiliser des cases à cocher (carrées) et pas des cases d'options (rondes)

olive60 · Answer

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

choubaka · Answer

tu dois faire en sorte que certaines cases ne peuvent pas être cochées en même temps ..

une simple condition avant validation

olive60 · Answer

ah oui?

mais comment fait on concretement ds la macro (ou ailleurs peut etre?)

Merci

Olive

choubaka · Answer

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

olive60 · Answer

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

olive60 · Answer

vvvvv

choubaka · Answer

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

(EXCEL) Bouton d'option SVP!!!

8 réponses

Discussions similaires

Newsletters