VBA simplification de Combobox

[Bens7]

Bonjour a tous !!
J'ai un userform avec 2 combobox qui a chaque choix renvoie une valeur dans un TextBox le probleme c'est que je suis novice et je suis persuade qu'il y a une facon plus simple de renvoyer le resultat dans les Textbox....
Voir piece jointe

P.S: sans Row Index uniquement dans le code direct

Merci a tous !!!

 

[Bens7]

Re : VBA simplification de Combobox

Une ligne simple genre :

ComboBox1.List = Array("1 DIFFUSIONS", "2 DIFFUSIONS", "3 DIFFUSIONS", "4 DIFFUSIONS", "5 DIFFUSIONS")

 

[Pierrot93]

Re : VBA simplification de Combobox

Bonjour,

essaye peut être ceci, enfin si j'ai bien compris, pas sur :

With ComboBox1
    If .ListIndex <> -1 Then TextBox1 = Left(.List(.ListIndex), 1)
End With

bonne journée
@+

 

[Bens7]

Re : VBA simplification de Combobox

Bonjour Pierrot !
Ok mais desole toujours le meme probleme peut tu me dire ou mettre le code excatement je suis debutant et je ne connais pas encore ListIndex

 

[Pierrot93]

Re : VBA simplification de Combobox

Re,

dans l'événement change de ton combo, en lieu et place de celui présent pour alimenter ta textbox...

 

[Bens7]

Re : VBA simplification de Combobox

Mais a tu ouvert la pieces jointes ? Je veux pas la valeur de la Combobox dans la TextBox mais une autre valeur

 

[Pierrot93]

Re : VBA simplification de Combobox

Re,

A la place de ceci dans ton code :

If ComboBox1 = "1 DIFFUSIONS" Then
TextBox1 = "1"
End If
If ComboBox1 = "2 DIFFUSIONS" Then
TextBox1 = "2"
End If
If ComboBox1 = "3 DIFFUSIONS" Then
TextBox1 = "3"
End If
If ComboBox1 = "4 DIFFUSIONS" Then
TextBox1 = "4"
End If
If ComboBox1 = "5 DIFFUSIONS" Then
TextBox1 = "5"
End If

 

[Bens7]

Re : VBA simplification de Combobox

Ok alors pour referencer un chiffre j'ai compris ca marche donc c'est deja ca de gagner
mais disons que maintenant comment faire si c'est pas un chiffre que je veux referencer mais du texte comme la Combobox 2

 

[Pierrot93]

Re : VBA simplification de Combobox

Re,

pour la totalité du mot, tu supprimes la fonction "left" :

With ComboBox1
    If .ListIndex <> -1 Then TextBox1 = .List(.ListIndex)
End With

 

[Bens7]

Re : VBA simplification de Combobox

Oui mais je ne veut pas le choix de la Combobox2 dans la Text Box2 (regarde le fichier)
Je veux une autre valeur
exemple:
Combobox2: 1/4 >>>> TextBox2:400

 

[Pierrot93]

Re : VBA simplification de Combobox

Re,

avec un "array" :

Dim t() As Variant
t = Array("200", "300", "400", "500", "600")
With ComboBox2
    If .ListIndex <> -1 Then TextBox2 = t(.ListIndex)
End With

 

[Bens7]

Re : VBA simplification de Combobox

Voilaaaaa excatement ce que je cherchais !!!
Pendant que tu est la j'en profite comment simplifier les mise a jour des sommes sans faire a chaque Combobox :

Private Sub ComboBox1_Change()
If ComboBox2 <> "" Then
TextBox3 = CDbl(TextBox1) * CDbl(TextBox2) 'HORS TAX
TextBox4 = CDbl(TextBox3) * "0,08"              'TVA
TextBox5 = CDbl(TextBox3) + TextBox4         'TOTAL TTC
End If

Ya t'il une autre solution ?

 

[Pierrot93]

Re : VBA simplification de Combobox

Re,

Ya t'il une autre solution ?

bah... celle-ci me parait bien, non...

 

[Bens7]

Re : VBA simplification de Combobox

Et une autre question estce que jepeux faire un truc comme ca:

Private Sub ComboBox2_Change()
Dim Prix() As Variant
 Prix = Array(TextBox3,TextBox4,TextBox5,TextBox6,TextBox7)
 With ComboBox2
     If .ListIndex <> -1 Then TextBox2 = Prix(.ListIndex)
 End With

que les valeur a renvoyer sont les valeur presente dans d'autre Text Box

 

[Bens7]

Re : VBA simplification de Combobox

Ho oui ca marche Genial !!!!!
Merci Beaucoup Pierrot !!! Le VBA c'est extraordinaire !