VBA simplification de Combobox

B

Bens7

XLDnaute Impliqué

• 10 Juillet 2013

• #2

Re : VBA simplification de Combobox

Une ligne simple genre :

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juillet 2013

• #3

Re : VBA simplification de Combobox

Bonjour,

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

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 10 Juillet 2013

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juillet 2013

• #5

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...

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 10 Juillet 2013

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juillet 2013

• #7

Re : VBA simplification de Combobox

Re,

A la place de ceci dans ton code :

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

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 10 Juillet 2013

• #8

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juillet 2013

• #9

Re : VBA simplification de Combobox

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 10 Juillet 2013

• #10

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juillet 2013

• #11

Re : VBA simplification de Combobox

Re,

avec un "array" :

Code:

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

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 10 Juillet 2013

• #12

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 :

Code:

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 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juillet 2013

• #13

Re : VBA simplification de Combobox

Re,

Ya t'il une autre solution ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 10 Juillet 2013

• #14

Re : VBA simplification de Combobox

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

Code:

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

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 10 Juillet 2013

• #15

Re : VBA simplification de Combobox

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

 

Vote positif 0 Vote négatif