(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
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
A voir également:
- (EXCEL) Bouton d'option SVP!!!
- Liste déroulante excel - Guide
- Formule excel - Guide
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
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
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)
tu dois utiliser des cases à cocher (carrées) et pas des cases d'options (rondes)
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
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
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
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
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
une simple condition avant validation
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
11 sept. 2007 à 16:55
ah oui?
mais comment fait on concretement ds la macro (ou ailleurs peut etre?)
Merci
Olive
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
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
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
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
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
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
11 sept. 2007 à 17:41
vvvvv
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
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
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