Discussion :

[SportUltime54]

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.

[Invité]

Code :

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

if textbox6>6 then textbox7=comboBox

[SportUltime54]

Bonjour

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

[goldstar]

Bonjour,

Code :

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

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,

[SportUltime54]

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,

[Invité]

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

Code :

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

1
2
3
4
5
Private Sub comboBox_Change()
 
If Me.TextBox6 >6 Then     Me.TextBox7 = Me.comboBox else   Me.comboBox =""
 
End Sub

[kiki29]

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.

[SportUltime54]

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

Code :

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

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.

[Invité]

désolé!

Code :

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

1
2
3
4
5
Private Sub comboBox_Change()
 
If Me.TextBox6 >6 Then     Me.TextBox7 = Me.comboBox else   Me.TextBox7  =""
 
End Sub

[SportUltime54]

Merci ça commence à prendre forme
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é

[joe.levrai]

Bonjour,

je n'ai pas testé

Code :

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

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

[SportUltime54]

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

[Invité]

Code :

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

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

[joe.levrai]

Quel travail d'équipe !

[Invité]

Le taylorisme (la division du travail)!

[SportUltime54]

Merci a tous,

Cela fonctionne tout bien comme je le voulais

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

[SportUltime54]

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