Case d'option se cochant automatiquement sous condition
kisscool527
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
fabien25000 Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
fabien25000 Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis débutant sur Excel et j'ai un petit problème.
J'aimerais qu'une case d'option se déclenche automatiquement sous condition.
la condition est la suivante : sur un formulaire j'ai 4 items auxquels sont associés pour chacun 2 cases d'options "oui" et "non". je souhaiterais que si j'ai au moins 2 oui sur les 4 possibles, la fameuse case d'option automatique se coche.
comment faire?
je sais pas si c'est clair... ^^
Je suis débutant sur Excel et j'ai un petit problème.
J'aimerais qu'une case d'option se déclenche automatiquement sous condition.
la condition est la suivante : sur un formulaire j'ai 4 items auxquels sont associés pour chacun 2 cases d'options "oui" et "non". je souhaiterais que si j'ai au moins 2 oui sur les 4 possibles, la fameuse case d'option automatique se coche.
comment faire?
je sais pas si c'est clair... ^^
A voir également:
- Case d'option se cochant automatiquement sous condition
- Excel cellule couleur si condition texte - Guide
- Option d'ergonomie - Guide
- Automatiquement - Guide
- Excel case ✓ - Forum Excel
- Dans le diaporama à télécharger, les diapositives s’enchaînent automatiquement. combien de temps la diapositive crayon met-elle à s’afficher ? combien de temps reste-t-elle affichée à l’écran ? ✓ - Forum Powerpoint
2 réponses
Bonjour,
eric
' sur les 8 OptionButton :
Private Sub OptionButton1_Click()
oui2
End Sub
Sub oui2()
OptionButton9 = -(CLng(OptionButton1) + CLng(OptionButton3) + CLng(OptionButton5) + CLng(OptionButton7)) > 1
End Sub
eric
Bonjour,
Une autre idée:
à continuer sur les boutons concernés
Une autre idée:
Private Function varverif() As Boolean
Dim toto As Integer
Dim ok As Boolean
ok = False
If OptionButton1 = True Then toto = 1
If OptionButton2 = True Then toto = toto + 1
If OptionButton3 = True Then toto = toto + 1
If OptionButton4 = True Then toto = toto + 1
If toto > 1 Then ok = True
varverif = ok
End Function
Private Sub OptionButton1_Click()
If varverif = True Then OptionButton9.Value = True
End Sub
Private Sub OptionButton2_Click()
If varverif = True Then OptionButton9.Value = True
End Sub
à continuer sur les boutons concernés
