Alimenter un Textbox a partir d'une ComboBox

Bonjour a tous,

Je me tourne vers vous, espérant que vous pourrez m'aider, étant débutant en code VBA, je suis un peu perdu.

Mon problème est le suivant:

J'ai un Userform qui possède Une comboBox et 8 TextBox. Je voudrai que la valeur de la ComboBox ce met dans la Textbox n°7, seulement si la Textbox n°6 est égale ou supérieur à 7.:?

Après des semaines et semaines de recherche je n'arrive pas, et je ne peux pas avancer dans mon projet sans ceci :?

Merci.

Code:

---

if textbox6>6 then textbox7=comboBox

---

Bonjour

Merci pour ce code, je l'ai essayé mais rien n'apparait lorsque ma TextBox 6 est supérieur à 7.

:roll:

Bonjour,

Code:

---

1 2 3 4 5 6 7

Private Sub comboBox_Change()   If Me.TextBox6 >= 7 Then Me.TextBox7 = Me.comboBox End If   End Sub

---

Cordialement,

Salut GoldStar

Merci pour le code, il y a enfin un quelque chose qui s'affiche, mais ce code m'affiche la valeur du ComboBox même si la TextBox6 est inférieur à 7.

Je suis désolé :(

Cordialement,

supérieur à 6 vaut supérieur ou égale à 7 plus court à écrire je suis un feignant!

Code:

---

1 2 3 4 5

Private Sub comboBox_Change()   If Me.TextBox6 >6 Then Me.TextBox7 = Me.comboBox else Me.comboBox =""   End Sub

---

Salut, de toute façon, à lire et assimiler : Utiliser les UserForm en VBA Excel et Utiliser les contrôles dans un UserForm, en VBA Excel.

Citation:

---

Envoyé par rdurupt

supérieur à 6 vaut supérieur ou égale à 7 plus court à écrire je suis un feignant!

Code:

---

1 2 3 4 5

Private Sub comboBox_Change()   If Me.TextBox6 >6 Then Me.TextBox7 = Me.comboBox else Me.comboBox =""   End Sub

---

---

Merci pour l'aide,

La valeur reste de la comboBox reste toujours dans la TextBox7, malgré que la valeur de TextBox6 soit inférieur à 7.

:(

désolé!

Code:

---

1 2 3 4 5

Private Sub comboBox_Change()   If Me.TextBox6 >6 Then Me.TextBox7 = Me.comboBox else Me.TextBox7 =""   End Sub

---

Merci ça commence à prendre forme:lol:
Mais ce code marche que si je remplis ma ComboBox APRES avoir remplis ma TextBox6.
Alors que lors de ma Saisie, je saisie la Textbox1 après le ComboBox ensuite TextBox4,........, Textbox6.

Je suis désolé :?

Bonjour,

je n'ai pas testé

Code:

---

1 2 3 4 5 6

Private Sub TextBox6_Change() With Me If .TextBox6 = "" Or Not IsNumeric(.TextBox6) Then .TextBox7 = "": Exit Sub If .TextBox6 > 6 Then .TextBox7 = Me.comboBox Else .TextBox7 = "" End With End Sub

---

Bonjour,

Un grand Merci, sa fonctionne comme je voulais.
Juste une question pour information, Est ce que c'est normal que ça marche pas quand je mets un chiffre un "Point" en guise de virgule.
Il faut toujours utiliser des virgules et jamais de points lors d'une saisie de chiffre avec décimal ?

Merci beaucoup

Code:

---

1 2 3 4 5 6

Private Sub TextBox6_Change() With Me If Not IsNumeric(replace(trim("" & .TextBox6),".",",")) Then .TextBox7 = "": Exit Sub If val(.TextBox6) > 6 Then .TextBox7 = Me.comboBox Else .TextBox7 = "" End With End Sub

---

Quel travail d'équipe ! :ptdr:

Le taylorisme (la division du travail)!

Merci a tous,

Cela fonctionne tout bien comme je le voulais :D

J'ai du changer le >6 en >=7, parce que si ma textBox6 était à 6.2 par exemple il me mettait la valeur de la comboBox a lieu de "".

Merci beaucoup a vous tous

Je suis sur un nouveau problème, je vais le tenté de le résoudre, sinon je viendrai vers vous pour un petit coup de pouce :)

Cordialement

Bonjour,

J'aurai besoin d'un coup de main, pour un code VBA.
Toujours dans le même Userform, j'ai le 4 textbox (textbox2 à textbox5) ou je rentre des nombre, j'aimerai que dans la textbox6 se mette instantanément la moyenne des 4 textbox ci dessous. Mais je souhaiterai que le code additionne les 4 chiffre, puis soustrait le plus petit chiffre et le plus grand chiffre des 4 textbox puis divise le tout par 2.
Si cela est possible que la moyenne soit arrondit au centièmes près ?

Merci beaucoup, ceci depasse de mes compétences de débutant :?:?:?