Userform

Bonjour,
Intégrer ce qui suit dans le module VBA de l'onglet contenant les données


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'dernière cellule non vide colonne A
der = Range("A65536").End(xlUp).Row
If Target.Column = 8 And Target.Row > 9 And Target.Row < der + 1 Then
MonUSerform.Show
End If
End Sub

Pour la deuxième partie, je ne comprends pas.
Où est le bouton OK ? Sur la userform ? Dans l'onglet de données ?
Les checkbox sont-ils aussi dans la userform ?
la cellule appelante est-elle la cellule vide de la colonne H comprise dans
l'intervalle
10-der ??
En attente de la réponse
CT

"nicolas65" <nicolas65@discussions.microsoft.com> a écrit dans le message de
news: D9090CB3-9611-4D66-A807-5C6DF8EC5825@microsoft.com...

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

Bonjor Claude,

Merci pour ta réponse que je vais m'empresser de tester.
Pour la deuxième partie de ma question.
Oui le bouton ok ainsi que les checkbox sont dans le userform
Oui la cellule appelante est la cellule vide de la colonne H comprise dans
l'intervalle 10-der ??

Bonjour,
Intégrer ce qui suit dans le module VBA de l'onglet contenant les données


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'dernière cellule non vide colonne A
der = Range("A65536").End(xlUp).Row
If Target.Column = 8 And Target.Row > 9 And Target.Row < der + 1 Then
MonUSerform.Show
End If
End Sub

Pour la deuxième partie, je ne comprends pas.
Où est le bouton OK ? Sur la userform ? Dans l'onglet de données ?
Les checkbox sont-ils aussi dans la userform ?
la cellule appelante est-elle la cellule vide de la colonne H comprise dans
l'intervalle
10-der ??
En attente de la réponse
CT

"nicolas65" <nicolas65@discussions.microsoft.com> a écrit dans le message de
news: D9090CB3-9611-4D66-A807-5C6DF8EC5825@microsoft.com...

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

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)

Salut,
Si j'ai bien compris une boucle for devrait faire l'affaire
En admettant que les checkbox sont numéroté de 1 à 10 et s'appelle
Checkboxn, n allant de 1 à 10
A inserer dans le code de ton bouton ok
Dim Somme as integer
Somme=0
for i = 1 to 10
if me.controls("Checkbox" & i).calue=true then Somme=Somme + n
next i


A toi de dispacher Somme


Ps : le code est écrit sans vérification
En espérant t'avoir aider
Jc

Bonjour,

1- Dans le module de code de la feuille qui contient les données :

'================= Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H10:H" & _
Cells(Rows.Count, "a").End(xlUp).Row)) Is Nothing Then
MsgBox "coucou"
End If
End Sub
'================= (en supposant que ton userform s'appelle UserForm1)

2 - Dans l'événement Click du bouton OK (je me suis arrêté à 5 checkboxes) :

'================= 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
ActiveCell.Value = Total
End Sub
'=================
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

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

Merci pour votre aide.
Comment faut-il faire pour que les ceckbox soit cochées par défaut?

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

Re bonjour,
Copier le code ci-dessous dans l'évènement Initialize du userform

Private Sub UserForm_Initialize()
For i = 1 To 10
Me.Controls("Checkbox" & i).Value = True
Next i
End Sub

Bon après-midi
CT

"nicolas65" <nicolas65@discussions.microsoft.com> a écrit dans le message de
news: DE4092DF-3314-48AA-AF40-F0020E9B3032@microsoft.com...

Merci pour votre aide.
Comment faut-il faire pour que les ceckbox soit cochées par défaut?

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

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

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" <nicolas65@discussions.microsoft.com> a écrit dans le message de
news: F4457AB0-CB62-4CA0-A95E-C6B5103ED10F@microsoft.com...

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

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" <nicolas65@discussions.microsoft.com> a écrit dans le message de
news: F4457AB0-CB62-4CA0-A95E-C6B5103ED10F@microsoft.com...

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

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" <nicolas65@discussions.microsoft.com> a écrit dans le message de
news: AEBBB1D1-01AC-4931-9FD5-4409AAE918CA@microsoft.com...

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" <nicolas65@discussions.microsoft.com> a écrit dans le message
de
news: F4457AB0-CB62-4CA0-A95E-C6B5103ED10F@microsoft.com...

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