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

  • Initiateur de la discussion Initiateur de la discussion Appo1985
  • Date de début Date de début

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 !

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

Solution
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
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
 
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:
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
 
Re
peux tu expliquer la démarche ?
C'est l'inverse ?
Jean marie
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
 
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
 
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
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.
 
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
 
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

- 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

Discussions similaires

Retour