XL 2013 Trouver la valeur d'un Textbox en fonction de la valeur d'un autre

[Appo1985]

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

 

[ChTi160]

Bonjour le Fil
a dit :

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

 

[Appo1985]

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 :

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.

C'est la course en vitesse 60m

Merci à tous

 

[Appo1985]

Bonjour le Fil
a dit :


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

Merci
Tous les nombres ont 1 chiffre après la virgule donc par exemple 7,1. 7,2. 7,3.

Ceux qui ont plus de 12 secondes ont automatiquement zéro comme point

Personne ne peut faire aussi moins de 7 secondes.

 

[jcf6464]

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,

au plaisir jcf

 

[Eric C]

Re le fil

@ jcf : C'est la course en vitesse 60m

 

[ChTi160]

Re
Donc on a de 7 a 12 avec un pas de 1 a 9
7.1,7.2 ....7.9
8.1,8.2.....8.9
Etc
11.1, 11.2 ......11.9
Y'a t'il 7.0 , 8.0....11.0 , 12.0 ?
Jean marie

 

[jcf6464]

Bonsoir Appo, chti60, eric, les autres et le forum,

Si je crois des dire d'eric voici le barème des filles et garçons

au plaisir jcf

 

[Eric C]

Re le fil

@ jcf : Ce ne sont pas mes dires mais ceux de notre ami appo1985 :

vous m'avez fourni comme code me permettra d'y arriver.

C'est la course en vitesse 60m

Merci à tous


Voir post #17
@+ Eric c