Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonsoir à tous
J’ai deux Textbox, le premier indique la performance et le deuxième le point selon l’option cochez.
Je voudrais de l’aide pour qu’en saisissant la performance, je puisse trouver le point.
Ci-joint le fichier
Merci par avance
Private Sub TextBox3_Change()
Select Case True
Case OptionButton1 = True And TextBox3.Value = "7.3"
TextBox6.Value = "20"
Case OptionButton2 = True And TextBox3 = "7.3"
TextBox6.Value = "19"
Case OptionButton3 = True And TextBox3 = "7.3"
TextBox6.Value = "18"
Case Else
TextBox6.Value = ""
End Select
End Sub
Le barème va de 7,0 à 12,1 seconde et chaque 0,1 seconde de plus , on retranche 1 point. le 0, 1 n'est pas aussi systématique. Il ya des exceptions (souvent c'est 0,2 seconde de plus). Il y en a donc beaucoup.
le barème Normal correspond à ces Limites soit de 7.00 ,7.01 ,7.02 ,7.03 etc. etc. jusqu'à 12.10 (ce qui représente 511 valeurs)
y'a t'il des Plages exemple valeur Entre 7.02 et 7.20 alors - 1 ?
c'est en dessous ou au dessus des ces valeurs qu'il y a traitement différent
c'est ca ?
Jean marie
Re le forum,
Bonjour Appo1985, bonjour Jean-Marie, bonjour jcf
Pour poursuivre avec le fichier de notre ami Jean-Marie (je n'avais pas utilisé le Select Case pensant qu'il n'y avait que 3 éléments à traiter... mais là effectivement..)
Une idée :
VB:
Option Explicit
Private Sub CommandButton1_Click()
Dim Ctrl As MSForms.Control
For Each Ctrl In UserForm1.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then Ctrl.Value = False
If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = ""
Next Ctrl
End Sub
Private Sub TextBox1_Change()
Select Case True
Case OptionButton1 = True And TextBox1.Value = "7.3" Or TextBox1.Value = "7.4"
TextBox2.Value = "20"
Case OptionButton1 = True And TextBox1.Value = "7.5" Or TextBox1.Value = "7.6"
TextBox2.Value = "19"
Case OptionButton1 = True And TextBox1.Value = "7.7" Or TextBox1.Value = "7.8"
TextBox2.Value = "18"
'Etc jusqu'à la note la plus basse
'-----------------
Case OptionButton2 = True And TextBox1 = "7.3" Or TextBox1.Value = "7.4"
TextBox2.Value = "20"
Case OptionButton3 = True And TextBox1 = "7.5" Or TextBox1.Value = "7.6"
TextBox2.Value = "19"
Case OptionButton2 = True And TextBox1.Value = "7.7" Or TextBox1.Value = "7.8"
TextBox2.Value = "18"
'Etc jusqu'à la note la plus basse
'-----------------
Case OptionButton3 = True And TextBox1 = "7.3" Or TextBox1.Value = "7.4"
TextBox2.Value = "20"
Case OptionButton3 = True And TextBox1 = "7.5" Or TextBox1.Value = "7.6"
TextBox2.Value = "19"
Case OptionButton3 = True And TextBox1.Value = "7.7" Or TextBox1.Value = "7.8"
TextBox2.Value = "18"
'Etc jusqu'à la note la plus basse
Case Else
TextBox2.Value = ""
End Select
End Sub
Il doit certainement y avoir plus simple mais bon...
@+ Eric c
Bonsoir.. infiniment merci.
Cette approche me va très bien. C'est ce que je voulais.
J'ai seulement pris des exemples d'une manière aléatoire.
Le barème se trouve dans un support papier que je n'ai pas le droit de publier.
L'interprétation se faisant toujours de façon manuel je cherchais un moyen pour aller plus vite et ce que vous m'avez fourni comme code me permettra d'y arriver.
le barème Normal correspond à ces Limites soit de 7.00 ,7.01 ,7.02 ,7.03 etc. etc. jusqu'à 12.10 (ce qui représente 511 valeurs)
y'a t'il des Plages exemple valeur Entre 7.02 et 7.20 alors - 1 ?
c'est en dessous ou au dessus des ces valeurs qu'il y a traitement différent
c'est ca ?
Jean marie
Bonsoir Appo, chti60, eric, les autres et le forum,
Je suis peut être rabat-joie, de quel sport l'on parle.!!!,
au fait 7,1 cela correspond a quoi note minute ou seconde,
7,1 combien de point
7,2 combien de point
7,3 combien de point
etc...
12 = zéro point si j'ai bien compris
faite nous un exemple de barème sur 10 lignes ou plus sur toutes les classe,
c'est pourquoi j'ai demander le barème des notes cela doit exister en pdf,
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD