je ne sais pas ou le placer .
Private Sub CommandButton1_Click()
Textbox2= CDbl(Replace(TextBox1, ".", ",")) * ComboBox1
' ou
Label1.caption = CDbl(Replace(TextBox1, ".", ",")) * ComboBox1
End Sub
Bonjour Paf
Il n'y a que 2 choix possible dans le combobox1 (1 et 2) donc pas de virgule , j'ai raccourci a la ligne ci-dessous mais je ne sais pas ou le placer .
Résultat = CDbl(TextBox1 * ComboBox1)
Après plusieurs essais sans résultat je reviens vers toi
Re...Re Paf,Jacky67
Le code fonctionne bien mais j'ai un petit problème, en faite a chaque fois que je sélectionne le combobox1 le résultat dans le textbox1 est multiplié d'autant
Dans le fichier final je suis passé par des solutions je pense un peu tirées par les cheveux, si vous pouviez me donner vos solutions cela me permettrait de comparer
Fonctionnement:
1-je sélectionne un chiffre dans le combobox2
2-je sélectionne un chiffre dans le combobox3
3- le chiffre situé a l'intersection des 2 sélections dans le tableau s’inscrit dans le textbox1
Exemple:
Choix dans le combobox2 = 3
Choix dans le combobox3 = 4
Résultat dans le textbox1 =12
4- je sélectionne 1 ou 2 dans le combobox1, si c'est 1 le chiffre dans le textbox1 ne change pas et si je selectionne 2 le chiffre dans le combobox1 est multiplié par 2
Si je re-sélectionne 1 dans le combobox1 le chiffre repasse a 12
Dans l'ensemble de l'userform il n'y a rien a saisir, juste des selections
merci