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

wolf-securite Messages postés 370 Statut Membre -  
jjsteing Messages postés 1803 Statut Contributeur -
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 1803 Statut Contributeur 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