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

A

Appo1985

XLDnaute Occasionnel
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
 

Pièces jointes

  • trouver_point_en_fonction_performance.xlsm
    17 KB · Affichages: 6
Solution
ChTi160
Bonsoir le Fil
une autre approche
VB: 
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
Bonne fin de Journée
Jean marie
Trier par date Trier par votes
Eric C

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour Appo1985

Essaie avec ceci car tu entres une valeur dans TextBox1 qui n'existe pas (de même que TextBox2) :
VB: 
Private Sub TextBox3_Change()
If OptionButton1 = True And TextBox3.Value = "7.3" Then
TextBox6.Value = "20"
Else
If OptionButton2 = True And TextBox3 = "7.3" Then
TextBox6.Value = "19"
Else
If OptionButton3 = True And TextBox3 = "7.3" Then
TextBox6.Value = "18"
End If: End If: End If
End Sub
Bonne fin de dimanche à toutes & à tous
@+ Eric c
 
Vote positif 0 Vote négatif
Eric C

Eric C

XLDnaute Barbatruc
Re le forum
Bonjour Oneida

Ou encore :
VB: 
Option Explicit

Private Sub OptionButton1_Click()
TextBox3 = "": TextBox6 = ""
End Sub

Private Sub OptionButton2_Click()
TextBox3 = "": TextBox6 = ""
End Sub


Private Sub OptionButton3_Click()
TextBox3 = "": TextBox6 = ""
End Sub

Private Sub TextBox3_Change()
If OptionButton1 = True And TextBox3 = "7.3" Then
TextBox6 = "20"
Else
If OptionButton2 = True And TextBox3 = "7.3" Then
TextBox6 = "19"
Else
If OptionButton3 = True And TextBox3 = "7.3" Then
TextBox6 = "18"
End If: End If: End If
End Sub
@+ Eric c
 
Dernière édition:
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
Bonsoir le Fil
une autre approche
VB: 
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
Bonne fin de Journée
Jean marie
 
Vote positif 0 Vote négatif
Solution
A

Appo1985

XLDnaute Occasionnel
ChTi160 à dit:
Re
peux tu expliquer la démarche ?
C'est l'inverse ?
Jean marie
Cliquez pour agrandir...
En fait c'est une course mais il ya un barème déjà établi.
Quand c'est un enfant qui a couru je dois cliquer sur optionbuttons1 et mettre le nombre de seconde.
Si c'est une femme optionbuttons2
C'est c'est un homme adulte optionbuttons3
Selon le barème le même nombre de seconde(performance) donne des points différents selon que c'est un enfant , une femme ou un homme.
Comme le barème indique beaucoup de performance à trouver l'équivalent de leur point , je ne pas pu les citer dans mon explication.
Je voulais une piste pour pouvoir trouver les points quelque.soit le nombre de seconde que la personne a pu faire (en suivante barème) et aussi une astuce pour amoindrir les répétitions dans le code
 
Vote positif 0 Vote négatif
jcf6464

jcf6464

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

il serai bien d'avoir le barème lier avec les secondes (7.3 seconde =20 pour l'instant , mais si le gamin mais 7.5= combien de points etc....

je suppose que si je rentre 7.5 cela ne fonctionne pas

bonne continuation jcf
 
Vote positif 0 Vote négatif
A

Appo1985

XLDnaute Occasionnel
jcf6464 à dit:
Bonsoir Appo, chti60, eric, les autres et le forum,

il serai bien d'avoir le barème lier avec les secondes (7.3 seconde =20 pour l'instant , mais si le gamin mais 7.5= combien de points etc....

je suppose que si je rentre 7.5 cela ne fonctionne pas

bonne continuation jcf
Cliquez pour agrandir...
Bonsoir
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.
 
Vote positif 0 Vote négatif
jcf6464

jcf6464

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

Déjà quel sport

Il y a bien un support papier pour le barème à appliquer pour les 3 catégories ,
donne des exemples de barèmes

7.0 =1 point
7.01= 2 points
etc...

bonne continuation jcf
Bonne journée
 
Vote positif 0 Vote négatif
Eric C

Eric C

XLDnaute Barbatruc
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
 

Pièces jointes

  • trouver_point_en_fonction_performance 2.xlsm
    20.6 KB · Affichages: 1
Vote positif 0 Vote négatif

Discussions similaires

A
  • Résolu(e)
XL 2013 valeur cellule en fonction de valeur combobox et optionbtutton
Réponses
4
Affichages
137
Appo1985
A
N
  • Question
XL 2016 Rechercher la valeur la plus à droite dans une plage en fonction d'un seuil
Réponses
14
Affichages
267
patricktoulon
patricktoulon
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
6
Affichages
228
Appo1985
A
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
3
Affichages
191
job75
job75
P
  • Résolu(e)
Microsoft 365 SetFocus sur le premier Texbox vide de la Frame
9 10 11
Réponses
150
Affichages
4 K
Piment
P
L
  • Résolu(e)
XL 2019 Correction de la formule
Réponses
7
Affichages
416
labombola46
L
L
  • Question
XL 2019 aligner textbox userform et valeur de cellule
Réponses
1
Affichages
130
fanfan38
fanfan38
E
  • Question
Microsoft 365 Relier une valeur à une référence avec RECHERCHE V ou fonction INDEXE ?
2
Réponses
15
Affichages
568
AtTheOne
AtTheOne
A
  • Question
XL 2010 remplir plusieurs textbox en fonction d'un tri par deux comboBox
Réponses
8
Affichages
399
Dranreb
Dranreb
R
  • Question
XL 2019 comparaison des dernieres entrees en stock
Réponses
0
Affichages
190
Romain.Gib
R

Membres actuellement en ligne

15 membres et 118 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 328
Messages
2 087 317
Membres
103 515
dernier inscrit
Cherbil12345