Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Userform

Userform

16 réponses
Avatar
nicolas65
Bonjour,

Je me suis lancé dans la construction d'un petit programme pour gérer les
concours de saut d'obstacle. Grace à votre aide j'ai pu avancer bien mon
programme mais là je suis à nouveau bloqué par plusieurs problèmes.

1)Je voudrais faire apparaitre mon userform chaque fois que je sélectionne
une cellule vide de la colonne H comprise entre H10 et la dernière cellule de
la colonne A qui contient une valeur autrement rien ne s'affiche.
exemple: Si j'ai des valeurs jusqu'en A120 il faudra que je puisse faire
apparaitre mon userform lorsque je cliquerais sur une cellule vide comprise
entre H10 et H 120.

2)J'ai un bouton Ok. Je voudrais que lorque je clique sur ce bouton Ok il me
renvoi dans la cellule à partir de laquelle il a été appelé la somme des
Checbox. Si le checkbox 1 est coché il rapporte un point, si le checbox 2 est
coché 2 points... jusqu'au checkbox10. Si le checbox 1 n'est pas coché il
rapporte 0, si le 2 n'est pas coché 0 ...
(Pour ceux qui connaisse l'equitation et le CSO il s'agit en fait de
programmer la gestion d'une épreuve à difficultées progressives)

S'il vous plait ne me laisser pas tomber

Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
nicolas65
Les OptionButton me permettent de "calculer" la valeur du dernier obstacle.
Ce choix est obligatoire quand le cavalier n'est pas éliminé.

Du total je soustrais éventuellement les refus.
Si j'ai 3 refus le total est égal à éliminé et non zéro
Si j'ai 2 refus je sosutrais 8 points
Si j'ai un refus je soustrais 4 points
Merci

Voila mon code acturel:
Private Sub CommandButton1_Click()
Dim Total
Total = 0
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton3.Value = True Then Total = Total - 20
If OptionButton2.Value = True Then Total = Total + 10
ActiveCell.Value = Total
ActiveCell.Offset(0, -2).Select
UserForm1.Hide

End Sub



Bonsoir,
J'ai peut-être été un peu vite. J'aurais dû demander quel est le rôle des 3
boutons d'options.
Est-ce à partir du choix de l'un de ces 3 boutons que se fait l'information
des refus ?
Quelques précisions seraient bienvenues.
CT

"nicolas65" a écrit dans le message de
news:
Bonsoir,

Au secours je suis perdu. Je n'y arrive plus !

Mes boutons sont bien nommés optionButton1 , OptionButton2 & OptionButton3
La première partie du code fonctionne mais je n'arrive pas à faire
fonctionner la deuxième.
J'ai créé le textbox. J'ai rentré des valeurs mais je n'obtiens pas les
résultats que je souhaitais.
1ère erreur lorsque j'ai 3 refus le total dans la cellule est de 0 or il
devrait apparaitre EL
2ème erreur il me demande de saisir une valeur dans un des OptionButton 1,
2
ou 3 or un cavalier ne peut pas franchir le dernier obstacle s'il a 3
refus

Je ne pense pas non plus qu'un textbox dans lequel on rentre un nombre
soit
la solution la plus pratique. Est-ce qu'il ne serait pas possible de
rentrer
directement un texte ou les valeurs 1 et 2 pour un refus ou deux refus et
enlever le nombre de points correspondants? Si on rentre EL il renvoit EL
,
si on rentre AB il renvoit AB, si on rentre F il renvoit F, si on rentre
NP
il renvoit NP , si on rentre 1 il enlève 4 pts au total, si on rentre 2 il
enlève 8 pts au total.

Merci pour votre patience


En supposant que les boutons option soient nommés option1, option2,
option3
:
dans le code du bouton OK, tester qu'au moins une des 3 valeurs est à
vrai
Pour les refus, créer un contrôle textbox où sera saisi le nombre de
refus
et tester sa valeur dans le code du bouton OK

Private Sub CommandButton1_Click()
'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'vérifie nombre de refus
If IsNumeric(Trim(TextBox1.Text)) Then
Select Case Val(TextBox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
TextBox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
Total = 0
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Exit Sub
End If

If Total = 0 Then
ActiveCell.Value = "Eliminé !"
Else
ActiveCell.Value = Total
End If

'..... suite de la procédure

End Sub

Cela convient ?
CT

"nicolas65" a écrit dans le message
de
news:
Merci Claude

1°) Comment faut-il faire pour obliger celui qui remplit un userform à
cocher un des 3 OptionButton numérotés de 1 à 3 et qui appartient au
même
groupe (le groupe Option 1) ?

2°) Je voudrais pouvoir supprimer du total de mes checbox les refus
effectués par le cavalier.
Si le cavalier effectue un refus je retire 4 points du total
Si le cavalier effectue un deuxième refus je retire à nouveau 4 points
du
total
S'il effectue un troisième refus il sera éliminé

Merci

Bonjour,

Je me suis lancé dans la construction d'un petit programme pour gérer
les
concours de saut d'obstacle. Grace à votre aide j'ai pu avancer bien
mon
programme mais là je suis à nouveau bloqué par plusieurs problèmes.

1)Je voudrais faire apparaitre mon userform chaque fois que je
sélectionne
une cellule vide de la colonne H comprise entre H10 et la dernière
cellule de
la colonne A qui contient une valeur autrement rien ne s'affiche.
exemple: Si j'ai des valeurs jusqu'en A120 il faudra que je puisse
faire
apparaitre mon userform lorsque je cliquerais sur une cellule vide
comprise
entre H10 et H 120.

2)J'ai un bouton Ok. Je voudrais que lorque je clique sur ce bouton Ok
il
me
renvoi dans la cellule à partir de laquelle il a été appelé la somme
des
Checbox. Si le checkbox 1 est coché il rapporte un point, si le
checbox 2
est
coché 2 points... jusqu'au checkbox10. Si le checbox 1 n'est pas coché
il
rapporte 0, si le 2 n'est pas coché 0 ...
(Pour ceux qui connaisse l'equitation et le CSO il s'agit en fait de
programmer la gestion d'une épreuve à difficultées progressives)

S'il vous plait ne me laisser pas tomber

Merci
















Avatar
Claude Trouet
Re bonsoir,
OK, essayer ceci en conservant le textbox pour indiquer le nombre de refus.
( sinon comment le déterminer ? )

Private Sub CommandButton1_Click()
Dim Total
Total = 0

'vérifie nombre de refus
'un chiffre a été entré ?
If IsNumeric(Trim(Textbox1.Text)) Then
Select Case Val(Textbox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
Textbox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
'3 refus, Eliminé
ActiveCell.Value = "EL"
Exit Sub
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Textbox1.SetFocus
Exit Sub
End If

'Total si moins de 3 refus
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9

'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'OK, une des 3 option est sélectionnée
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton2.Value = True Then Total = Total + 10
If OptionButton3.Value = True Then Total = Total - 20
'Résultat dans la cellule
ActiveCell.Value = Total

ActiveCell.Offset(0, -2).Select
Hide
End Sub

Bonne soirée
CT

"nicolas65" a écrit dans le message de
news:
Les OptionButton me permettent de "calculer" la valeur du dernier
obstacle.
Ce choix est obligatoire quand le cavalier n'est pas éliminé.

Du total je soustrais éventuellement les refus.
Si j'ai 3 refus le total est égal à éliminé et non zéro
Si j'ai 2 refus je sosutrais 8 points
Si j'ai un refus je soustrais 4 points
Merci

Voila mon code acturel:
Private Sub CommandButton1_Click()
Dim Total
Total = 0
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton3.Value = True Then Total = Total - 20
If OptionButton2.Value = True Then Total = Total + 10
ActiveCell.Value = Total
ActiveCell.Offset(0, -2).Select
UserForm1.Hide

End Sub



Bonsoir,
J'ai peut-être été un peu vite. J'aurais dû demander quel est le rôle des
3
boutons d'options.
Est-ce à partir du choix de l'un de ces 3 boutons que se fait
l'information
des refus ?
Quelques précisions seraient bienvenues.
CT

"nicolas65" a écrit dans le message
de
news:
Bonsoir,

Au secours je suis perdu. Je n'y arrive plus !

Mes boutons sont bien nommés optionButton1 , OptionButton2 &
OptionButton3
La première partie du code fonctionne mais je n'arrive pas à faire
fonctionner la deuxième.
J'ai créé le textbox. J'ai rentré des valeurs mais je n'obtiens pas les
résultats que je souhaitais.
1ère erreur lorsque j'ai 3 refus le total dans la cellule est de 0 or
il
devrait apparaitre EL
2ème erreur il me demande de saisir une valeur dans un des OptionButton
1,
2
ou 3 or un cavalier ne peut pas franchir le dernier obstacle s'il a 3
refus

Je ne pense pas non plus qu'un textbox dans lequel on rentre un nombre
soit
la solution la plus pratique. Est-ce qu'il ne serait pas possible de
rentrer
directement un texte ou les valeurs 1 et 2 pour un refus ou deux refus
et
enlever le nombre de points correspondants? Si on rentre EL il renvoit
EL
,
si on rentre AB il renvoit AB, si on rentre F il renvoit F, si on
rentre
NP
il renvoit NP , si on rentre 1 il enlève 4 pts au total, si on rentre 2
il
enlève 8 pts au total.

Merci pour votre patience


En supposant que les boutons option soient nommés option1, option2,
option3
:
dans le code du bouton OK, tester qu'au moins une des 3 valeurs est à
vrai
Pour les refus, créer un contrôle textbox où sera saisi le nombre de
refus
et tester sa valeur dans le code du bouton OK

Private Sub CommandButton1_Click()
'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'vérifie nombre de refus
If IsNumeric(Trim(TextBox1.Text)) Then
Select Case Val(TextBox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
TextBox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
Total = 0
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Exit Sub
End If

If Total = 0 Then
ActiveCell.Value = "Eliminé !"
Else
ActiveCell.Value = Total
End If

'..... suite de la procédure

End Sub

Cela convient ?
CT

"nicolas65" a écrit dans le
message
de
news:
Merci Claude

1°) Comment faut-il faire pour obliger celui qui remplit un userform
à
cocher un des 3 OptionButton numérotés de 1 à 3 et qui appartient au
même
groupe (le groupe Option 1) ?

2°) Je voudrais pouvoir supprimer du total de mes checbox les refus
effectués par le cavalier.
Si le cavalier effectue un refus je retire 4 points du total
Si le cavalier effectue un deuxième refus je retire à nouveau 4
points
du
total
S'il effectue un troisième refus il sera éliminé

Merci

Bonjour,

Je me suis lancé dans la construction d'un petit programme pour
gérer
les
concours de saut d'obstacle. Grace à votre aide j'ai pu avancer
bien
mon
programme mais là je suis à nouveau bloqué par plusieurs problèmes.

1)Je voudrais faire apparaitre mon userform chaque fois que je
sélectionne
une cellule vide de la colonne H comprise entre H10 et la dernière
cellule de
la colonne A qui contient une valeur autrement rien ne s'affiche.
exemple: Si j'ai des valeurs jusqu'en A120 il faudra que je puisse
faire
apparaitre mon userform lorsque je cliquerais sur une cellule vide
comprise
entre H10 et H 120.

2)J'ai un bouton Ok. Je voudrais que lorque je clique sur ce bouton
Ok
il
me
renvoi dans la cellule à partir de laquelle il a été appelé la
somme
des
Checbox. Si le checkbox 1 est coché il rapporte un point, si le
checbox 2
est
coché 2 points... jusqu'au checkbox10. Si le checbox 1 n'est pas
coché
il
rapporte 0, si le 2 n'est pas coché 0 ...
(Pour ceux qui connaisse l'equitation et le CSO il s'agit en fait
de
programmer la gestion d'une épreuve à difficultées progressives)

S'il vous plait ne me laisser pas tomber

Merci


















Avatar
nicolas65
Re (Bonsoir)
Je souhaiterais que par défaut la valeur du textbox soit égale à 0.
Merci


Re bonsoir,
OK, essayer ceci en conservant le textbox pour indiquer le nombre de refus.
( sinon comment le déterminer ? )

Private Sub CommandButton1_Click()
Dim Total
Total = 0

'vérifie nombre de refus
'un chiffre a été entré ?
If IsNumeric(Trim(Textbox1.Text)) Then
Select Case Val(Textbox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
Textbox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
'3 refus, Eliminé
ActiveCell.Value = "EL"
Exit Sub
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Textbox1.SetFocus
Exit Sub
End If

'Total si moins de 3 refus
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9

'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'OK, une des 3 option est sélectionnée
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton2.Value = True Then Total = Total + 10
If OptionButton3.Value = True Then Total = Total - 20
'Résultat dans la cellule
ActiveCell.Value = Total

ActiveCell.Offset(0, -2).Select
Hide
End Sub

Bonne soirée
CT

"nicolas65" a écrit dans le message de
news:
Les OptionButton me permettent de "calculer" la valeur du dernier
obstacle.
Ce choix est obligatoire quand le cavalier n'est pas éliminé.

Du total je soustrais éventuellement les refus.
Si j'ai 3 refus le total est égal à éliminé et non zéro
Si j'ai 2 refus je sosutrais 8 points
Si j'ai un refus je soustrais 4 points
Merci

Voila mon code acturel:
Private Sub CommandButton1_Click()
Dim Total
Total = 0
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton3.Value = True Then Total = Total - 20
If OptionButton2.Value = True Then Total = Total + 10
ActiveCell.Value = Total
ActiveCell.Offset(0, -2).Select
UserForm1.Hide

End Sub



Bonsoir,
J'ai peut-être été un peu vite. J'aurais dû demander quel est le rôle des
3
boutons d'options.
Est-ce à partir du choix de l'un de ces 3 boutons que se fait
l'information
des refus ?
Quelques précisions seraient bienvenues.
CT

"nicolas65" a écrit dans le message
de
news:
Bonsoir,

Au secours je suis perdu. Je n'y arrive plus !

Mes boutons sont bien nommés optionButton1 , OptionButton2 &
OptionButton3
La première partie du code fonctionne mais je n'arrive pas à faire
fonctionner la deuxième.
J'ai créé le textbox. J'ai rentré des valeurs mais je n'obtiens pas les
résultats que je souhaitais.
1ère erreur lorsque j'ai 3 refus le total dans la cellule est de 0 or
il
devrait apparaitre EL
2ème erreur il me demande de saisir une valeur dans un des OptionButton
1,
2
ou 3 or un cavalier ne peut pas franchir le dernier obstacle s'il a 3
refus

Je ne pense pas non plus qu'un textbox dans lequel on rentre un nombre
soit
la solution la plus pratique. Est-ce qu'il ne serait pas possible de
rentrer
directement un texte ou les valeurs 1 et 2 pour un refus ou deux refus
et
enlever le nombre de points correspondants? Si on rentre EL il renvoit
EL
,
si on rentre AB il renvoit AB, si on rentre F il renvoit F, si on
rentre
NP
il renvoit NP , si on rentre 1 il enlève 4 pts au total, si on rentre 2
il
enlève 8 pts au total.

Merci pour votre patience


En supposant que les boutons option soient nommés option1, option2,
option3
:
dans le code du bouton OK, tester qu'au moins une des 3 valeurs est à
vrai
Pour les refus, créer un contrôle textbox où sera saisi le nombre de
refus
et tester sa valeur dans le code du bouton OK

Private Sub CommandButton1_Click()
'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'vérifie nombre de refus
If IsNumeric(Trim(TextBox1.Text)) Then
Select Case Val(TextBox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
TextBox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
Total = 0
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Exit Sub
End If

If Total = 0 Then
ActiveCell.Value = "Eliminé !"
Else
ActiveCell.Value = Total
End If

'..... suite de la procédure

End Sub

Cela convient ?
CT

"nicolas65" a écrit dans le
message
de
news:
Merci Claude

1°) Comment faut-il faire pour obliger celui qui remplit un userform
à
cocher un des 3 OptionButton numérotés de 1 à 3 et qui appartient au
même
groupe (le groupe Option 1) ?

2°) Je voudrais pouvoir supprimer du total de mes checbox les refus
effectués par le cavalier.
Si le cavalier effectue un refus je retire 4 points du total
Si le cavalier effectue un deuxième refus je retire à nouveau 4
points
du
total
S'il effectue un troisième refus il sera éliminé

Merci

Bonjour,

Je me suis lancé dans la construction d'un petit programme pour
gérer
les
concours de saut d'obstacle. Grace à votre aide j'ai pu avancer
bien
mon
programme mais là je suis à nouveau bloqué par plusieurs problèmes.

1)Je voudrais faire apparaitre mon userform chaque fois que je
sélectionne
une cellule vide de la colonne H comprise entre H10 et la dernière
cellule de
la colonne A qui contient une valeur autrement rien ne s'affiche.
exemple: Si j'ai des valeurs jusqu'en A120 il faudra que je puisse
faire
apparaitre mon userform lorsque je cliquerais sur une cellule vide
comprise
entre H10 et H 120.

2)J'ai un bouton Ok. Je voudrais que lorque je clique sur ce bouton
Ok
il
me
renvoi dans la cellule à partir de laquelle il a été appelé la
somme
des
Checbox. Si le checkbox 1 est coché il rapporte un point, si le
checbox 2
est
coché 2 points... jusqu'au checkbox10. Si le checbox 1 n'est pas
coché
il
rapporte 0, si le 2 n'est pas coché 0 ...
(Pour ceux qui connaisse l'equitation et le CSO il s'agit en fait
de
programmer la gestion d'une épreuve à difficultées progressives)

S'il vous plait ne me laisser pas tomber

Merci























Avatar
Claude Trouet
Dans l'évènement Initialize de la userform

Private Sub UserForm_Initialize()
TextBox1.Text = 0
End Sub

sinon, pour éviter toute saisie au clavier, créer un deuxième groupe de
boutons option
( dans un objet frame = cadre )
o Aucun refus o 1 refus o 2 refus o 3 refus

et dans les propriétés du bouton option Aucun refus, mettre la valeur à True
Bon courage
CT


"nicolas65" a écrit dans le message de
news:
Re (Bonsoir)
Je souhaiterais que par défaut la valeur du textbox soit égale à 0.
Merci


Re bonsoir,
OK, essayer ceci en conservant le textbox pour indiquer le nombre de
refus.
( sinon comment le déterminer ? )

Private Sub CommandButton1_Click()
Dim Total
Total = 0

'vérifie nombre de refus
'un chiffre a été entré ?
If IsNumeric(Trim(Textbox1.Text)) Then
Select Case Val(Textbox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
Textbox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
'3 refus, Eliminé
ActiveCell.Value = "EL"
Exit Sub
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Textbox1.SetFocus
Exit Sub
End If

'Total si moins de 3 refus
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9

'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'OK, une des 3 option est sélectionnée
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton2.Value = True Then Total = Total + 10
If OptionButton3.Value = True Then Total = Total - 20
'Résultat dans la cellule
ActiveCell.Value = Total

ActiveCell.Offset(0, -2).Select
Hide
End Sub

Bonne soirée
CT

"nicolas65" a écrit dans le message
de
news:
Les OptionButton me permettent de "calculer" la valeur du dernier
obstacle.
Ce choix est obligatoire quand le cavalier n'est pas éliminé.

Du total je soustrais éventuellement les refus.
Si j'ai 3 refus le total est égal à éliminé et non zéro
Si j'ai 2 refus je sosutrais 8 points
Si j'ai un refus je soustrais 4 points
Merci

Voila mon code acturel:
Private Sub CommandButton1_Click()
Dim Total
Total = 0
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton3.Value = True Then Total = Total - 20
If OptionButton2.Value = True Then Total = Total + 10
ActiveCell.Value = Total
ActiveCell.Offset(0, -2).Select
UserForm1.Hide

End Sub



Bonsoir,
J'ai peut-être été un peu vite. J'aurais dû demander quel est le rôle
des
3
boutons d'options.
Est-ce à partir du choix de l'un de ces 3 boutons que se fait
l'information
des refus ?
Quelques précisions seraient bienvenues.
CT

"nicolas65" a écrit dans le
message
de
news:
Bonsoir,

Au secours je suis perdu. Je n'y arrive plus !

Mes boutons sont bien nommés optionButton1 , OptionButton2 &
OptionButton3
La première partie du code fonctionne mais je n'arrive pas à faire
fonctionner la deuxième.
J'ai créé le textbox. J'ai rentré des valeurs mais je n'obtiens pas
les
résultats que je souhaitais.
1ère erreur lorsque j'ai 3 refus le total dans la cellule est de 0
or
il
devrait apparaitre EL
2ème erreur il me demande de saisir une valeur dans un des
OptionButton
1,
2
ou 3 or un cavalier ne peut pas franchir le dernier obstacle s'il a
3
refus

Je ne pense pas non plus qu'un textbox dans lequel on rentre un
nombre
soit
la solution la plus pratique. Est-ce qu'il ne serait pas possible de
rentrer
directement un texte ou les valeurs 1 et 2 pour un refus ou deux
refus
et
enlever le nombre de points correspondants? Si on rentre EL il
renvoit
EL
,
si on rentre AB il renvoit AB, si on rentre F il renvoit F, si on
rentre
NP
il renvoit NP , si on rentre 1 il enlève 4 pts au total, si on
rentre 2
il
enlève 8 pts au total.

Merci pour votre patience


En supposant que les boutons option soient nommés option1, option2,
option3
:
dans le code du bouton OK, tester qu'au moins une des 3 valeurs est
à
vrai
Pour les refus, créer un contrôle textbox où sera saisi le nombre
de
refus
et tester sa valeur dans le code du bouton OK

Private Sub CommandButton1_Click()
'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'vérifie nombre de refus
If IsNumeric(Trim(TextBox1.Text)) Then
Select Case Val(TextBox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
TextBox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
Total = 0
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Exit Sub
End If

If Total = 0 Then
ActiveCell.Value = "Eliminé !"
Else
ActiveCell.Value = Total
End If

'..... suite de la procédure

End Sub

Cela convient ?
CT

"nicolas65" a écrit dans le
message
de
news:
Merci Claude

1°) Comment faut-il faire pour obliger celui qui remplit un
userform
à
cocher un des 3 OptionButton numérotés de 1 à 3 et qui appartient
au
même
groupe (le groupe Option 1) ?

2°) Je voudrais pouvoir supprimer du total de mes checbox les
refus
effectués par le cavalier.
Si le cavalier effectue un refus je retire 4 points du total
Si le cavalier effectue un deuxième refus je retire à nouveau 4
points
du
total
S'il effectue un troisième refus il sera éliminé

Merci

Bonjour,

Je me suis lancé dans la construction d'un petit programme pour
gérer
les
concours de saut d'obstacle. Grace à votre aide j'ai pu avancer
bien
mon
programme mais là je suis à nouveau bloqué par plusieurs
problèmes.

1)Je voudrais faire apparaitre mon userform chaque fois que je
sélectionne
une cellule vide de la colonne H comprise entre H10 et la
dernière
cellule de
la colonne A qui contient une valeur autrement rien ne
s'affiche.
exemple: Si j'ai des valeurs jusqu'en A120 il faudra que je
puisse
faire
apparaitre mon userform lorsque je cliquerais sur une cellule
vide
comprise
entre H10 et H 120.

2)J'ai un bouton Ok. Je voudrais que lorque je clique sur ce
bouton
Ok
il
me
renvoi dans la cellule à partir de laquelle il a été appelé la
somme
des
Checbox. Si le checkbox 1 est coché il rapporte un point, si le
checbox 2
est
coché 2 points... jusqu'au checkbox10. Si le checbox 1 n'est pas
coché
il
rapporte 0, si le 2 n'est pas coché 0 ...
(Pour ceux qui connaisse l'equitation et le CSO il s'agit en
fait
de
programmer la gestion d'une épreuve à difficultées progressives)

S'il vous plait ne me laisser pas tomber

Merci

























Avatar
Ilan
Bonsoir,
Le textbox a ete remplace par une boite message pour indique le nombre
de refus.

Private Sub CommandButton1_Click()
Dim Total As Integer, i As Integer, Refus As String, Result As String
Total = 0
For i = 1 To 3
If UserForm1.Controls("CheckBox" & i).Value Then Total = Total + i
Next i
For i = 1 To 2
If UserForm1.Controls("OptionButton" & i).Value Then Total = Total + (20
/ i)
Next i
If OptionButton3.Value = True Then Total = Total - 20
AttendreRefus:
Refus = InputBox("Veuillez entrer le nombre de refus :" & Chr(10) & Chr(13)
& "(un chiffre entre 0 et 3)")
If Not IsNumeric(Refus) Then GoTo AttendreRefus
If CInt(Refus) > 0 And CInt(Refus) < 3 Then
Total = Total - CInt(Refus) * 4
If Total = 1 Then
ActiveCell.Value = Total & " point"
Else
ActiveCell.Value = Total & " points"
End If
Else
ActiveCell.Value = "EL"
End If
UserForm1.Hide
End Sub



Re (Bonsoir)
Je souhaiterais que par défaut la valeur du textbox soit égale à 0.
Merci


Re bonsoir,
OK, essayer ceci en conservant le textbox pour indiquer le nombre de refus.
( sinon comment le déterminer ? )

Private Sub CommandButton1_Click()
Dim Total
Total = 0

'vérifie nombre de refus
'un chiffre a été entré ?
If IsNumeric(Trim(Textbox1.Text)) Then
Select Case Val(Textbox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
Textbox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
'3 refus, Eliminé
ActiveCell.Value = "EL"
Exit Sub
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Textbox1.SetFocus
Exit Sub
End If

'Total si moins de 3 refus
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9

'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'OK, une des 3 option est sélectionnée
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton2.Value = True Then Total = Total + 10
If OptionButton3.Value = True Then Total = Total - 20
'Résultat dans la cellule
ActiveCell.Value = Total

ActiveCell.Offset(0, -2).Select
Hide
End Sub

Bonne soirée
CT

"nicolas65" a écrit dans le message de
news:
Les OptionButton me permettent de "calculer" la valeur du dernier
obstacle.
Ce choix est obligatoire quand le cavalier n'est pas éliminé.

Du total je soustrais éventuellement les refus.
Si j'ai 3 refus le total est égal à éliminé et non zéro
Si j'ai 2 refus je sosutrais 8 points
Si j'ai un refus je soustrais 4 points
Merci

Voila mon code acturel:
Private Sub CommandButton1_Click()
Dim Total
Total = 0
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton3.Value = True Then Total = Total - 20
If OptionButton2.Value = True Then Total = Total + 10
ActiveCell.Value = Total
ActiveCell.Offset(0, -2).Select
UserForm1.Hide

End Sub



Bonsoir,
J'ai peut-être été un peu vite. J'aurais dû demander quel est le rôle des
3
boutons d'options.
Est-ce à partir du choix de l'un de ces 3 boutons que se fait
l'information
des refus ?
Quelques précisions seraient bienvenues.
CT

"nicolas65" a écrit dans le message
de
news:
Bonsoir,

Au secours je suis perdu. Je n'y arrive plus !

Mes boutons sont bien nommés optionButton1 , OptionButton2 &
OptionButton3
La première partie du code fonctionne mais je n'arrive pas à faire
fonctionner la deuxième.
J'ai créé le textbox. J'ai rentré des valeurs mais je n'obtiens pas les
résultats que je souhaitais.
1ère erreur lorsque j'ai 3 refus le total dans la cellule est de 0 or
il
devrait apparaitre EL
2ème erreur il me demande de saisir une valeur dans un des OptionButton
1,
2
ou 3 or un cavalier ne peut pas franchir le dernier obstacle s'il a 3
refus

Je ne pense pas non plus qu'un textbox dans lequel on rentre un nombre
soit
la solution la plus pratique. Est-ce qu'il ne serait pas possible de
rentrer
directement un texte ou les valeurs 1 et 2 pour un refus ou deux refus
et
enlever le nombre de points correspondants? Si on rentre EL il renvoit
EL
,
si on rentre AB il renvoit AB, si on rentre F il renvoit F, si on
rentre
NP
il renvoit NP , si on rentre 1 il enlève 4 pts au total, si on rentre 2
il
enlève 8 pts au total.

Merci pour votre patience


En supposant que les boutons option soient nommés option1, option2,
option3
:
dans le code du bouton OK, tester qu'au moins une des 3 valeurs est à
vrai
Pour les refus, créer un contrôle textbox où sera saisi le nombre de
refus
et tester sa valeur dans le code du bouton OK

Private Sub CommandButton1_Click()
'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'vérifie nombre de refus
If IsNumeric(Trim(TextBox1.Text)) Then
Select Case Val(TextBox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
TextBox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
Total = 0
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Exit Sub
End If

If Total = 0 Then
ActiveCell.Value = "Eliminé !"
Else
ActiveCell.Value = Total
End If

'..... suite de la procédure

End Sub

Cela convient ?
CT

"nicolas65" a écrit dans le
message
de
news:
Merci Claude

1°) Comment faut-il faire pour obliger celui qui remplit un userform
à
cocher un des 3 OptionButton numérotés de 1 à 3 et qui appartient au
même
groupe (le groupe Option 1) ?

2°) Je voudrais pouvoir supprimer du total de mes checbox les refus
effectués par le cavalier.
Si le cavalier effectue un refus je retire 4 points du total
Si le cavalier effectue un deuxième refus je retire à nouveau 4
points
du
total
S'il effectue un troisième refus il sera éliminé

Merci

Bonjour,

Je me suis lancé dans la construction d'un petit programme pour
gérer
les
concours de saut d'obstacle. Grace à votre aide j'ai pu avancer
bien
mon
programme mais là je suis à nouveau bloqué par plusieurs problèmes.

1)Je voudrais faire apparaitre mon userform chaque fois que je
sélectionne
une cellule vide de la colonne H comprise entre H10 et la dernière
cellule de
la colonne A qui contient une valeur autrement rien ne s'affiche.
exemple: Si j'ai des valeurs jusqu'en A120 il faudra que je puisse
faire
apparaitre mon userform lorsque je cliquerais sur une cellule vide
comprise
entre H10 et H 120.

2)J'ai un bouton Ok. Je voudrais que lorque je clique sur ce bouton
Ok
il
me
renvoi dans la cellule à partir de laquelle il a été appelé la
somme
des
Checbox. Si le checkbox 1 est coché il rapporte un point, si le
checbox 2
est
coché 2 points... jusqu'au checkbox10. Si le checbox 1 n'est pas
coché
il
rapporte 0, si le 2 n'est pas coché 0 ...
(Pour ceux qui connaisse l'equitation et le CSO il s'agit en fait
de
programmer la gestion d'une épreuve à difficultées progressives)

S'il vous plait ne me laisser pas tomber

Merci

























Avatar
Ilan
Pardon ce code-ci est mieux


Private Sub CommandButton1_Click()
Dim Total As Integer, i As Integer, Refus As String, Result As String
Total = 0
For i = 1 To 9
If UserForm1.Controls("CheckBox" & i).Value Then Total = Total + i
Next i
For i = 1 To 2
If UserForm1.Controls("OptionButton" & i).Value Then Total = Total + (20
/ i)
Next i
If OptionButton3.Value = True Then Total = Total - 20
AttendreRefus:
Refus = InputBox("Veuillez entrer le nombre de refus :" & Chr(10) & Chr(13)
& "(un chiffre entre 0 et 3)")
If Not IsNumeric(Refus) Then GoTo AttendreRefus
If CInt(Refus) < 3 Then
Total = Total - CInt(Refus) * 4
If Total = 1 Then
ActiveCell.Value = Total & " point"
Else
ActiveCell.Value = Total & " points"
End If
Else
ActiveCell.Value = "EL"
End If
UserForm1.Hide
End Sub



Bonsoir,
Le textbox a ete remplace par une boite message pour indique le nombre
de refus.

Private Sub CommandButton1_Click()
Dim Total As Integer, i As Integer, Refus As String, Result As String
Total = 0
For i = 1 To 3
If UserForm1.Controls("CheckBox" & i).Value Then Total = Total + i
Next i
For i = 1 To 2
If UserForm1.Controls("OptionButton" & i).Value Then Total = Total + (20
/ i)
Next i
If OptionButton3.Value = True Then Total = Total - 20
AttendreRefus:
Refus = InputBox("Veuillez entrer le nombre de refus :" & Chr(10) & Chr(13)
& "(un chiffre entre 0 et 3)")
If Not IsNumeric(Refus) Then GoTo AttendreRefus
If CInt(Refus) > 0 And CInt(Refus) < 3 Then
Total = Total - CInt(Refus) * 4
If Total = 1 Then
ActiveCell.Value = Total & " point"
Else
ActiveCell.Value = Total & " points"
End If
Else
ActiveCell.Value = "EL"
End If
UserForm1.Hide
End Sub



Re (Bonsoir)
Je souhaiterais que par défaut la valeur du textbox soit égale à 0.
Merci


Re bonsoir,
OK, essayer ceci en conservant le textbox pour indiquer le nombre de refus.
( sinon comment le déterminer ? )

Private Sub CommandButton1_Click()
Dim Total
Total = 0

'vérifie nombre de refus
'un chiffre a été entré ?
If IsNumeric(Trim(Textbox1.Text)) Then
Select Case Val(Textbox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
Textbox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
'3 refus, Eliminé
ActiveCell.Value = "EL"
Exit Sub
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Textbox1.SetFocus
Exit Sub
End If

'Total si moins de 3 refus
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9

'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'OK, une des 3 option est sélectionnée
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton2.Value = True Then Total = Total + 10
If OptionButton3.Value = True Then Total = Total - 20
'Résultat dans la cellule
ActiveCell.Value = Total

ActiveCell.Offset(0, -2).Select
Hide
End Sub

Bonne soirée
CT

"nicolas65" a écrit dans le message de
news:
Les OptionButton me permettent de "calculer" la valeur du dernier
obstacle.
Ce choix est obligatoire quand le cavalier n'est pas éliminé.

Du total je soustrais éventuellement les refus.
Si j'ai 3 refus le total est égal à éliminé et non zéro
Si j'ai 2 refus je sosutrais 8 points
Si j'ai un refus je soustrais 4 points
Merci

Voila mon code acturel:
Private Sub CommandButton1_Click()
Dim Total
Total = 0
If CheckBox1.Value = True Then Total = Total + 1
If CheckBox2.Value = True Then Total = Total + 2
If CheckBox3.Value = True Then Total = Total + 3
If CheckBox4.Value = True Then Total = Total + 4
If CheckBox5.Value = True Then Total = Total + 5
If CheckBox6.Value = True Then Total = Total + 6
If CheckBox7.Value = True Then Total = Total + 7
If CheckBox8.Value = True Then Total = Total + 8
If CheckBox9.Value = True Then Total = Total + 9
If OptionButton1.Value = True Then Total = Total + 20
If OptionButton3.Value = True Then Total = Total - 20
If OptionButton2.Value = True Then Total = Total + 10
ActiveCell.Value = Total
ActiveCell.Offset(0, -2).Select
UserForm1.Hide

End Sub



Bonsoir,
J'ai peut-être été un peu vite. J'aurais dû demander quel est le rôle des
3
boutons d'options.
Est-ce à partir du choix de l'un de ces 3 boutons que se fait
l'information
des refus ?
Quelques précisions seraient bienvenues.
CT

"nicolas65" a écrit dans le message
de
news:
Bonsoir,

Au secours je suis perdu. Je n'y arrive plus !

Mes boutons sont bien nommés optionButton1 , OptionButton2 &
OptionButton3
La première partie du code fonctionne mais je n'arrive pas à faire
fonctionner la deuxième.
J'ai créé le textbox. J'ai rentré des valeurs mais je n'obtiens pas les
résultats que je souhaitais.
1ère erreur lorsque j'ai 3 refus le total dans la cellule est de 0 or
il
devrait apparaitre EL
2ème erreur il me demande de saisir une valeur dans un des OptionButton
1,
2
ou 3 or un cavalier ne peut pas franchir le dernier obstacle s'il a 3
refus

Je ne pense pas non plus qu'un textbox dans lequel on rentre un nombre
soit
la solution la plus pratique. Est-ce qu'il ne serait pas possible de
rentrer
directement un texte ou les valeurs 1 et 2 pour un refus ou deux refus
et
enlever le nombre de points correspondants? Si on rentre EL il renvoit
EL
,
si on rentre AB il renvoit AB, si on rentre F il renvoit F, si on
rentre
NP
il renvoit NP , si on rentre 1 il enlève 4 pts au total, si on rentre 2
il
enlève 8 pts au total.

Merci pour votre patience


En supposant que les boutons option soient nommés option1, option2,
option3
:
dans le code du bouton OK, tester qu'au moins une des 3 valeurs est à
vrai
Pour les refus, créer un contrôle textbox où sera saisi le nombre de
refus
et tester sa valeur dans le code du bouton OK

Private Sub CommandButton1_Click()
'vérifie qu'une des 3 options est sélectionnée
If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "Sélectionner une des 3 options !"
Exit Sub
End If
'vérifie nombre de refus
If IsNumeric(Trim(TextBox1.Text)) Then
Select Case Val(TextBox1.Text)
Case Is < 0
MsgBox "Entre 0 et 3, SVP !"
TextBox1.SetFocus
Exit Sub
Case 0
'ne rien faire
Case 1
'enlever 4 du total
Total = Total - 4
Case 2
Total = Total - 8
Case Is > 2
Total = 0
End Select
Else
MsgBox "Vous devez entrer un nombre entre 0 et 3 !"
Exit Sub
End If

If Total = 0 Then
ActiveCell.Value = "Eliminé !"
Else
ActiveCell.Value = Total
End If

'..... suite de la procédure

End Sub

Cela convient ?
CT

"nicolas65" a écrit dans le
message
de
news:
Merci Claude

1°) Comment faut-il faire pour obliger celui qui remplit un userform
à
cocher un des 3 OptionButton numérotés de 1 à 3 et qui appartient au
même
groupe (le groupe Option 1) ?

2°) Je voudrais pouvoir supprimer du total de mes checbox les refus
effectués par le cavalier.
Si le cavalier effectue un refus je retire 4 points du total
Si le cavalier effectue un deuxième refus je retire à nouveau 4
points
du
total
S'il effectue un troisième refus il sera éliminé

Merci

Bonjour,

Je me suis lancé dans la construction d'un petit programme pour
gérer
les
concours de saut d'obstacle. Grace à votre aide j'ai pu avancer
bien
mon
programme mais là je suis à nouveau bloqué par plusieurs problèmes.

1)Je voudrais faire apparaitre mon userform chaque fois que je
sélectionne
une cellule vide de la colonne H comprise entre H10 et la dernière
cellule de
la colonne A qui contient une valeur autrement rien ne s'affiche.
exemple: Si j'ai des valeurs jusqu'en A120 il faudra que je puisse
faire
apparaitre mon userform lorsque je cliquerais sur une cellule vide
comprise
entre H10 et H 120.

2)J'ai un bouton Ok. Je voudrais que lorque je clique sur ce bouton
Ok
il
me
renvoi dans la cellule à partir de laquelle il a été appelé la
somme
des
Checbox. Si le checkbox 1 est coché il rapporte un point, si le
checbox 2
est
coché 2 points... jusqu'au checkbox10. Si le checbox 1 n'est pas
coché
il
rapporte 0, si le 2 n'est pas coché 0 ...
(Pour ceux qui connaisse l'equitation et le CSO il s'agit en fait
de
programmer la gestion d'une épreuve à difficultées progressives)

S'il vous plait ne me laisser pas tomber

Merci



























1 2