Val(Text4.Text) * combo 1 ??? comment faire

wolf-securite Messages postés 293 Date d'inscription   Statut Membre Dernière intervention   -  
jjsteing Messages postés 1670 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

slt à tous les membres de cmt ca marche ..... je souhaite que vous m'aiderai

voilà mon problème :

Text6.Text = Val(Text4.Text) *Val(Text5.Text)

je veux remplacer Val(Text5.Text) par Me.Combo1.AddItem "1946 ==> Coeff 42.472 % "


sachant que la liste de combo contient 20 éléments et chaque élément est suivi par un coefficient
par Exemple si l'utilisateur choisira 1946
automatiquement visual basic fera comme de suite
Text6.Text = Val(Text4.Text) * Me.Combo1.AddItem "1946 ==> Coeff 42.472 % "

Merci de me donner le code correct pour faire cet opération j'espère ke mon message est claire

Cordialement
A voir également:

1 réponse

Réponse 1 / 1
jjsteing Messages postés 1670 Date d'inscription   Statut Contributeur Dernière intervention   181
 
bonjour :)

en supposant que le chiffre du coef soit toujours à la meme place (au caractere pres) et qu il soit toujours sous la forme 00.000

=>

Private Sub ComboBox1_Change()
moncoef = Mid(ComboBox1, 16, 6)
Text6.Text = Val(Text4.Text) * moncoef / 100

End Sub
1

Discussions similaires

[Word] je veux savoir comment justifier un texte
Seynabou -
STEREX -

20 réponses
Chatroulette, demande d'un code sms..
Auurelia67 -
Hugh -

9 réponses