Bonjour à tous,
Ma formation sur vba est encore loin d'être achevée étant donné toutes les difficultées que je rencontre, si quelqu'un pouvait me rendre service sur ce travail je lui en serait très reconnaissant.
J'ai crée un userform dans lequel je veux qu'une textbox3 maffiche un certain texte en fonction du message affiché dans ma textbox2.
Je m'explique, j'ai de nombreux tableau sur excel qui s'activent et dont les valeurs changent en fonction des dates que je choisis. tous ces tableau représentent des produits qui ont des dates différentes mais pour lesquels les calculs sont les mêmes. J'ai crée une textbox (textbox2) dans laquelle s'affiche la valeur maximum que je peux obtenir pour chaque date choisis mais j'aimerai que dans ma textbox3 cela affiche du coup des messages liés à chacune des cellules des différents tableau.
Exemple: si le message de la textbox2 est égal au chiffre présent dans ma cellule I17, j'aimerais que ma textbox3 affiche "SC 9500 LC 8000".
C'est peut être très mal expliqué donc n'hésitez pas à me demander des informations complémentaire.
Mon fichier est beaucoup trop lourd pour que je puisse le joindre donc je vous copiecolle le code que j'ai tappé.
(Pour info, il marche pour seulement quelques valeurs).
MERCI A VOUS.
Sheets("BDD").Select
If TextBox2.Text = Range("I15") Or Range("AE15") Or Range("BA15") Or Range("BW15") Or Range("CS15") Or Range("DO15") Or Range("EK15") Then
Range("C12") = Text
TextBox3.Text = "SC 8500 LC 8000"
ElseIf TextBox2.Text = Range("I16") Or Range("AE16") Or Range("BA16") Or Range("BW16") Or Range("CS16") Or Range("DO16") Or Range("EK16") Then
Range("C12") = Text
TextBox3.Text = "SC 9000 LC 8000"
ElseIf TextBox2.Text = Range("I17") Or Range("AE17") Or Range("BA17") Or Range("BW17") Or Range("CS17") Or Range("DO17") Or Range("EK17") Then
Range("C12") = Text
TextBox3.Text = "SC 9500 LC 8000"
ElseIf TextBox2.Text = Range("I18") Or Range("AE18") Or Range("BA18") Or Range("BW18") Or Range("CS18") Or Range("DO18") Or Range("EK18") Then
Range("C12") = Text
TextBox3.Text = "SC 1000 LC 8000"
ElseIf TextBox2.Text = Range("K16") Or Range("AG16") Or Range("BC16") Or Range("BY16") Or Range("CS16") Or Range("DQ16") Or Range("EM16") Then
Range("C12") = Text
TextBox3.Text = "SC 9000 LC 8500"
ElseIf TextBox2.Text = Range("K17") Or Range("AG17") Or Range("BC17") Or Range("BY17") Or Range("CS17") Or Range("DQ17") Or Range("EM17") Then
Range("C12") = Text
TextBox3.Text = "SC 9500 LC 8500"
ElseIf TextBox2.Text = Range("K18") Or Range("AG18") Or Range("BC18") Or Range("BY18") Or Range("CS18") Or Range("DQ18") Or Range("EM18") Then
Range("C12") = Text
TextBox3.Text = "SC 1000 LC 8500"
ElseIf TextBox2.Text = Range("M17") Or Range("AI17") Or Range("BE17") Or Range("CA17") Or Range("CU17") Or Range("DS17") Or Range("EO17") Then
Range("C12") = Text
TextBox3.Text = "SC 9500 LC 9000"
ElseIf TextBox2.Text = Range("M18") Or Range("AI18") Or Range("BE18") Or Range("CA18") Or Range("CU18") Or Range("DS18") Or Range("EO18") Then
Range("C12") = Text
TextBox3.Text = "SC 1000 LC 9000"
ElseIf TextBox2.Text = Range("O18") Or Range("AK18") Or Range("BG18") Or Range("CC18") Or Range("CW18") Or Range("DU18") Or Range("EQ18") Then
Range("C12") = Text
TextBox3.Text = "SC 1000 LC 9500"
End If
Ma formation sur vba est encore loin d'être achevée étant donné toutes les difficultées que je rencontre, si quelqu'un pouvait me rendre service sur ce travail je lui en serait très reconnaissant.
J'ai crée un userform dans lequel je veux qu'une textbox3 maffiche un certain texte en fonction du message affiché dans ma textbox2.
Je m'explique, j'ai de nombreux tableau sur excel qui s'activent et dont les valeurs changent en fonction des dates que je choisis. tous ces tableau représentent des produits qui ont des dates différentes mais pour lesquels les calculs sont les mêmes. J'ai crée une textbox (textbox2) dans laquelle s'affiche la valeur maximum que je peux obtenir pour chaque date choisis mais j'aimerai que dans ma textbox3 cela affiche du coup des messages liés à chacune des cellules des différents tableau.
Exemple: si le message de la textbox2 est égal au chiffre présent dans ma cellule I17, j'aimerais que ma textbox3 affiche "SC 9500 LC 8000".
C'est peut être très mal expliqué donc n'hésitez pas à me demander des informations complémentaire.
Mon fichier est beaucoup trop lourd pour que je puisse le joindre donc je vous copiecolle le code que j'ai tappé.
(Pour info, il marche pour seulement quelques valeurs).
MERCI A VOUS.
Sheets("BDD").Select
If TextBox2.Text = Range("I15") Or Range("AE15") Or Range("BA15") Or Range("BW15") Or Range("CS15") Or Range("DO15") Or Range("EK15") Then
Range("C12") = Text
TextBox3.Text = "SC 8500 LC 8000"
ElseIf TextBox2.Text = Range("I16") Or Range("AE16") Or Range("BA16") Or Range("BW16") Or Range("CS16") Or Range("DO16") Or Range("EK16") Then
Range("C12") = Text
TextBox3.Text = "SC 9000 LC 8000"
ElseIf TextBox2.Text = Range("I17") Or Range("AE17") Or Range("BA17") Or Range("BW17") Or Range("CS17") Or Range("DO17") Or Range("EK17") Then
Range("C12") = Text
TextBox3.Text = "SC 9500 LC 8000"
ElseIf TextBox2.Text = Range("I18") Or Range("AE18") Or Range("BA18") Or Range("BW18") Or Range("CS18") Or Range("DO18") Or Range("EK18") Then
Range("C12") = Text
TextBox3.Text = "SC 1000 LC 8000"
ElseIf TextBox2.Text = Range("K16") Or Range("AG16") Or Range("BC16") Or Range("BY16") Or Range("CS16") Or Range("DQ16") Or Range("EM16") Then
Range("C12") = Text
TextBox3.Text = "SC 9000 LC 8500"
ElseIf TextBox2.Text = Range("K17") Or Range("AG17") Or Range("BC17") Or Range("BY17") Or Range("CS17") Or Range("DQ17") Or Range("EM17") Then
Range("C12") = Text
TextBox3.Text = "SC 9500 LC 8500"
ElseIf TextBox2.Text = Range("K18") Or Range("AG18") Or Range("BC18") Or Range("BY18") Or Range("CS18") Or Range("DQ18") Or Range("EM18") Then
Range("C12") = Text
TextBox3.Text = "SC 1000 LC 8500"
ElseIf TextBox2.Text = Range("M17") Or Range("AI17") Or Range("BE17") Or Range("CA17") Or Range("CU17") Or Range("DS17") Or Range("EO17") Then
Range("C12") = Text
TextBox3.Text = "SC 9500 LC 9000"
ElseIf TextBox2.Text = Range("M18") Or Range("AI18") Or Range("BE18") Or Range("CA18") Or Range("CU18") Or Range("DS18") Or Range("EO18") Then
Range("C12") = Text
TextBox3.Text = "SC 1000 LC 9000"
ElseIf TextBox2.Text = Range("O18") Or Range("AK18") Or Range("BG18") Or Range("CC18") Or Range("CW18") Or Range("DU18") Or Range("EQ18") Then
Range("C12") = Text
TextBox3.Text = "SC 1000 LC 9500"
End If