Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Textbox en fonction de trois combobox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fatoum
  • 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 !

S'inscrire

fatoum

XLDnaute Nouveau
Bonjour! J'ai réellement besoin de votre Aide. J'ai un userform qui comprend un textbox et trois combobox. Le textbox affiche une valeur seulement si les trois combobox sont renseignés. Mon programme fonctionne très bien mais je le trouve très long. n’y aurai t'il pas un moyen très simple de le faire?

je m'excuse de ne pas pouvoir joindre mon fichier il pèse énormément. Je vous remercie d'avance pour votre intérêt.
 
Trier par date Trier par votes
Bonjour,
Je voudrais bien t'aider mais mon fichier pèse aussi très lourd et je m'excuse de ne pouvoir le joindre.
Je passe donc le relais à d'autres personnes pour qui le fichier ne pèse pas trop lourd .....
Cordialement
Lolote83
 
Vote positif 0 Vote négatif
VB: 
Private Sub ComboBox1_Change()
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2017").Range("J8")
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2017").Range("K8")
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2017").Range("L8")
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2017").Range("M8")

If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2017").Range("J9")
If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2017").Range("K9")
If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2017").Range("L9")
If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2017").Range("M9")

If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2017").Range("J10")
If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2017").Range("K10")
If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2017").Range("L10")
If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2017").Range("M10")

'2018
'2018
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2018").Range("J8")
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2018").Range("K8")
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2018").Range("L8")
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2018").Range("M8")

If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2018").Range("J9")
If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2018").Range("K9")
If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2018").Range("L9")
If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2018").Range("M9")

If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2018").Range("J10")
If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2018").Range("K10")
If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2018").Range("L10")
If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2018").Range("M10")



'2019
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2019").Range("J8")
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2019").Range("K8")
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2019").Range("L8")
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2019").Range("M8")

If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2019").Range("J9")
If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2019").Range("K9")
If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2019").Range("L9")
If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2019").Range("M9")

If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2019").Range("J10")
If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2019").Range("K10")
If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2019").Range("L10")
If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2019").Range("M10")


'2020
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2020").Range("J8")
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2020").Range("K8")
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2020").Range("L8")
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2020").Range("M8")

If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2020").Range("J9")
If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2020").Range("K9")
If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2020").Range("L9")
If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2020").Range("M9")

If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2020").Range("J10")
If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2020").Range("K10")
If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2020").Range("L10")
If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2020").Range("M10")


End Sub

Private Sub ComboBox2_Change()
'2017
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2017").Range("J8")
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2017").Range("K8")
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2017").Range("L8")
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2017").Range("M8")

If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2017").Range("J9")
If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2017").Range("K9")
If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2017").Range("L9")
If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2017").Range("M9")

If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2017").Range("J10")
If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2017").Range("K10")
If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2017").Range("L10")
If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2017").Range("M10")


'2018
'2018
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2018").Range("J8")
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2018").Range("K8")
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2018").Range("L8")
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2018").Range("M8")

If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2018").Range("J9")
If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2018").Range("K9")
If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2018").Range("L9")
If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2018").Range("M9")

If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2018").Range("J10")
If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2018").Range("K10")
If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2018").Range("L10")
If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2018").Range("M10")



'2019
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2019").Range("J8")
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2019").Range("K8")
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2019").Range("L8")
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2019").Range("M8")

If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2019").Range("J9")
If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2019").Range("K9")
If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2019").Range("L9")
If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2019").Range("M9")

If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2019").Range("J10")
If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2019").Range("K10")
If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2019").Range("L10")
If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2019").Range("M10")


'2020
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2020").Range("J8")
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2020").Range("K8")
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2020").Range("L8")
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2020").Range("M8")

If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2020").Range("J9")
If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2020").Range("K9")
If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2020").Range("L9")
If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2020").Range("M9")

If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2020").Range("J10")
If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2020").Range("K10")
If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2020").Range("L10")
If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2020").Range("M10")


End Sub

Private Sub ComboBox3_CLICK()
'2017
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2017").Range("J8")
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2017").Range("K8")
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2017").Range("L8")
If ComboBox1 = "2017" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2017").Range("M8")

If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2017").Range("J9")
If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2017").Range("K9")
If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2017").Range("L9")
If ComboBox1 = "2017" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2017").Range("M9")

If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2017").Range("J10")
If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2017").Range("K10")
If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2017").Range("L10")
If ComboBox1 = "2017" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2017").Range("M10")


'2018
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2018").Range("J8")
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2018").Range("K8")
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2018").Range("L8")
If ComboBox1 = "2018" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2018").Range("M8")

If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2018").Range("J9")
If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2018").Range("K9")
If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2018").Range("L9")
If ComboBox1 = "2018" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2018").Range("M9")

If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2018").Range("J10")
If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2018").Range("K10")
If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2018").Range("L10")
If ComboBox1 = "2018" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2018").Range("M10")


'2019
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2019").Range("J8")
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2019").Range("K8")
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2019").Range("L8")
If ComboBox1 = "2019" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2019").Range("M8")

If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2019").Range("J9")
If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2019").Range("K9")
If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2019").Range("L9")
If ComboBox1 = "2019" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2019").Range("M9")

If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2019").Range("J10")
If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2019").Range("K10")
If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2019").Range("L10")
If ComboBox1 = "2019" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2019").Range("M10")



'2020
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2020").Range("J8")
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2020").Range("K8")
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2020").Range("L8")
If ComboBox1 = "2020" And ComboBox2 = "Barka" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2020").Range("M8")

If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2020").Range("J9")
If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2020").Range("K9")
If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2020").Range("L9")
If ComboBox1 = "2020" And ComboBox2 = "Espoir" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2020").Range("M9")

If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G0" Then TextBox1.Text = Sheets("2020").Range("J10")
If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G1" Then TextBox1.Text = Sheets("2020").Range("K10")
If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G2" Then TextBox1.Text = Sheets("2020").Range("L10")
If ComboBox1 = "2020" And ComboBox2 = "FBC6" And ComboBox3.Value = "G3" Then TextBox1.Text = Sheets("2020").Range("M10")



End Sub
 
Vote positif 0 Vote négatif
Bonjour le fil, bonjour forum,

Je te propose le code ci-dessous à la place de ce que as envoyé. Il implique que les 2 premières ComboBoxes soient renseignées avant la troisième :
VB: 
Private O As Worksheet
Private LI As Integer
Private COL As Integer

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Application.Transpose(Array("2017", "2018", "2019", "2020"))
Me.ComboBox2.List = Application.Transpose(Array("Barka", "Espoir", "FBC6"))
Me.ComboBox3.List = Application.Transpose(Array("G0", "G1", "G2", "G3"))
End Sub

Private Sub ComboBox1_Change()
Set O = Worksheets(Choose(Me.ComboBox1.ListIndex + 1, "2017", "2018", "2019", "2020"))
End Sub

Private Sub ComboBox2_Change()
LI = Me.ComboBox2.ListIndex + 8
End Sub

Private Sub ComboBox3_Change()
COL = Me.ComboBox3.ListIndex + 10
Me.TextBox1.Text = O.Cells(LI, COL).Value
End Sub
 
Vote positif 0 Vote négatif
salut c'est vraiment génial... je vous remercie grandement pour vos réponses. La réponse de JM27 me convient très bien, j'ai pas encore essayer celle de Robert que je trouve également intéressante.
Encore merci pour l'attention que vous avez porter a cette discussion.
 
Vote positif 0 Vote négatif
Bonjour le fil, bonjour le forum,

La liste des éléments d'une ListBox/ComboBox est indéxée de 0 (le premier élément) à X. X étant le nombre d'éléments de la combobox moins 1.
Si la ComboBox6 possède 15 éléments, par exemple, elle sera indexée de 0 à 14. Si tu sélectionnes le 4ème élément de la ComboBox6, la propriété [ListIndex] sera égale à 3. Vu la configuration de tes données, la TextBox1 prendra la valeur de la cellule se trouvant dans la ligne 3 + 8 et, de la même manière, dans la colonne égale à la propriété [ListIndex] de la ComboBox7 + 10, de l'onglet définit dans la ComboBox5...
Est ce plus clair pour toit ?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

P
  • Résolu(e)
Microsoft 365 Erreur d’exécution de type 13
Réponses
4
Affichages
498
Ptitloups56
P
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
  • Question Question
Microsoft 365 combobox afficher la liste dés la changement de la valeur
Réponses
2
Affichages
125
pascal21
E
  • Résolu(e)
XL 2019 défiler listbox en même temps que textbox dans une frame
Réponses
5
Affichages
376
escudo
E
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
630
KRUG WOO
K
  • Question Question
XL 2021 Alimenter une ComboBox dans l'ordre décroissant
2
Réponses
15
Affichages
448
murainesouspatate
  • Résolu(e)
XL 2010 Problème de propagation d'évènement Combobox
Réponses
11
Affichages
797
ChTi160
  • Résolu(e)
XL 2021 Colorer le mois en cours et le TextBox correspondant
Réponses
7
Affichages
450
AIXELS
A
  • Question Question
XL 2010 remplir plusieurs textbox en fonction d'un tri par deux comboBox
Réponses
8
Affichages
740
Dranreb
P
  • Question Question
Microsoft 365 garder en mémoire plusieurs listview d'un userform
Réponses
4
Affichages
652
patricktoulon
P
  • Question Question
XL 2013 Tri d'une listbox sur 2 combobox en cascade
2
Réponses
25
Affichages
2 K
Papy974
P
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
636
ChTi160
G
  • Résolu(e)
XL 2010 Mettre une textbox en négatif.
Réponses
6
Affichages
399
Phil69970
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
380
vgendron
L
  • Question Question
XL 2019 aligner textbox userform et valeur de cellule
Réponses
1
Affichages
447
fanfan38
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
353
Lau01150
L
  • Résolu(e)
XL 2010 Propriété MaxLength d'une TextBox pour saisie n° de téléphone
2
Réponses
23
Affichages
2 K
Eric C
G
  • Question Question
Microsoft 365 Convertir CSV en tableau de nombres
Réponses
7
Affichages
442
sylvanu
C
  • Question Question
Autres bug sur une procédure avec textbox contenant un code barre
2
Réponses
15
Affichages
2 K
TooFatBoy
  • Question Question
XL 2019 Combobox, Listbox, Textbox
Réponses
6
Affichages
766
chinel
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…