VBA lien tableau textbox

[ugb]

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

 

[Compte Supprimé 979]

Re : VBA lien tableau textbox

Bonjour Ugb

Si tu ne peux pas joindre ton fichier directement sur le forum,
tu peux le mettre sur : Free - Envoyez vos documents (ce n'est pas faute de le répéter)
Et nous donner le lien

A+

 

[Pierrot93]

Re : VBA lien tableau textbox

Bonjour,

modifie peut être comme suit :

If TextBox2.Text = Range("I15") Or TextBox2.Text = Range("AE15") Or TextBox2.Text = Range("BA15") Or TextBox2.Text = Range("BW15") Or TextBox2.Text = Range("CS15") Or TextBox2.Text = Range("DO15") Or TextBox2.Text = Range("EK15") Then

non testé, à adapter à toa procédure

bonne journée
@+


Edition : bonjour Bruno

 

[ugb]

Re : VBA lien tableau textbox

C'est top ca fonctionne!!!!

Merci beaucoup, bonne journée

 

[ugb]

Re : VBA lien tableau textbox

Re,

je suis ("déjà") de nouveau confronté à un pb....

Je voudrais savoir si il est possible de coder un graphique qui serait toujours déterminé par 4 points et dont les quatre points seraient déterminés par des calculs de chiffres, ces derniers étant extrait de la fonction de calcul de la valeur de ref.
Ma valeur de ref est le max de toutes mes valeur issue de cette fonction:

Function BS(ByVal Spot As Double, ByVal S1 As Double, ByVal S2 As Double, ByVal PA As Double, ByVal PV As Double)

If Spot - S1 > 0 And Spot - S2 > 0 Then
BS = (Spot - S1) - PA - (Spot - S2) + PV
End If

If Spot - S1 > 0 And Spot - S2 < 0 Then
BS = (Spot - S1) - PA + PV
End If

If Spot - S1 < 0 And Spot - S2 > 0 Then
BS = 0 - PA - (Spot - S2) + PV
End If

If Spot - S1 < 0 And Spot - S2 < 0 Then
BS = 0 - PA - PV
End If

If PA = 0 Or PV = 0 Then
BS = "Expiré"
End If

End Function

Ex: je choisis une date, le maximum que je peux avoir pour cette date est x, j'aimerai alors que lorsque je tape sur ma commandbutton (du graph), s'affiche un graphe avec une courbe suivant 4 points:
Le premier = (7000;-PA)
le deuxième=(S1;PA)
le troisième=(S2;S2-S1+PA-PV)
Le quatrème=(10000;S2-S1+PA-PV)

(*PA,PV,S1 et S2 étant ceux de ma valeur de ref)

Encore un grand merci!