Discussion :

[Arone77]

Bonjour à tous,

je travaille actuellement sur une petite macro où lorsque je rempli mon userform, j'indique les deux choses suivantes:
- pourcentage obtenu de l'affaire (combobox1)
- montant de l'affaire (textbox2)

Lorsque je clique sur mon bouton valider pour rentrer les valeurs dans leur cellule, j'obtiens pour une affaire à 100 euros avec un pourcentage dessus à 50% en faisant la multiplication 50%*100:

-Pourcentage: 50%
Montant de l'affaire: 50 euros.

Mon problème est quand je fais apparaître mon deuxième userform pour faire apparaître mes données afin de les modifier.
Pour l'instant, j'ai codé de la manière suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Combobox1.value= cell(ligne,3).value
Textbox2.value= cell(ligne,4).value

Mon problème est que si je modifie ma combobox1 pourcentage, mon textbox2 ne s'actualise pas. C'est à dire que si je change le pourcentage de 50% à 90%, il faudrait que ma textbox passe de 50 à 90 euros en calculant automatiquement.

Je ne sais pas du tout comment faire le raisonnement suivant:

Combobox1=50 % ---> 50 euros= Textbox2

                  X

Combobox1=90 %  ---> x euros = Textbox2

Du coup, il faut réussir à coder pour dire que si la combobox1 subit un changement, alors la valeur de la textbox2= (90%*50euros / 50%)

J'ai aucune idée de comment faire, qui peut m'aider ?!

merci énormément !

Cordialement

[joe.levrai]

Bonjour,

utilise la procédure évènementielle MonCombobox_Change(), où MonCombobox représente le nom de ton combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox1_Change()
    ' ici se lancera la procédure à chaque fois que tu changes la valeur sélectionnée de ton combobox
End Sub

[Arone77]

Bonjour !

J'ai bien imaginé de coder de cette façon mais je n'arrive pas à poser le produit en croix pour un code.
En partant de l'exemple basique cité ci dessus:
combobox1=50 %
textbox2=50 euros

Si je passe combobox1 à 100%, je dois obtenir 100 euros dans ma textbox2. Le problème, c'est qu'avec la logique du produit en croix, je ne sais pas comment dissocier la valeur initiale de combobox1 et textbox2 et la valeur nouvelle de combobox1 pour obtenir celle nouvelle de textbox2, c'est à dire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox1_Change()
TextBox2_new.value = (ComboBox1_initial.value* TextBox2_initial.value) / (ComboBox1_new.value)
End Sub

Merci beaucoup !!!

[joe.levrai]

Bonjour,

nous n'avons pas suffisament de précision pour te donner la solution immédiatement.

On commence le userform avec une valeur de départ (qui représente donc 100%) et quand on change le pourcentage dans la combobox, ça affiche la portion de valeur (par rapport à la valeur initiale) dans textbox2 ?

Ou alors on commence par une valeur de départ, et à chaque changement de combobox il faut modifier au fur et à mesure des étapes ?

si on est dans le cadre 1,
il faut stocker la valeur initiale de ton textbox pour ensuite mettre à jour l'affichage en fonction du pourcentage
par exemple (attention, je ne sais pas quel est le format de ton pourcentage dans combobox) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim ValeurDepart As Double
 
Private Sub ComboBox1_Change()
'admettons que le pourcentage soit écrit sur 2-3 chiffres sans le %
Me.TextBox1.Value = ValeurDepart * CDbl(Me.ComboBox1.Value) / 100
 
End Sub
 
Private Sub UserForm_Initialize()
ValeurDepart = 100
Me.TextBox1.Value = ValeurDepart
End Sub

pour tout autre cadre, il faudra peut être utiliser une seconde variable (pour stocker le pourcentage initial) et/ou éventuellement affecter à ValeurDepart (et Pourcentage Initial) la valeur qui a été recalculée à chaque fois, afin de la stocker pour la prochaine opération